如何禁止RICHTEXT控件自动换行？

问题描述：

如何禁止RICHTEXT控件自动换行？

处理方案：

第一步：声明外部函数：

Function ulong SendMessage(ulong hwnd,ulong wMsg,ulong wParam,ulong lParam) LIBRARY "user32.dll" ALIAS FOR "SendMessageA"

 

第二步：在一个按钮里写脚本：

 

SendMessage(ole_1.object.Hwnd,1096, 0, 1)

 

第三步：测试---先在RICHTEXT控件中写若干行东西，然后点按钮，可以看到这些多行自动变成一行，并且不会再自动换行；

 

补充：如果想再恢复成自动换行，请参考下文，我没有继续编写：

《将RichTextBox设置为自动换行或非自动换行》

http://www.csdn.com.cn/program/3411.htm