发送EM_SETTARGETDEVICE消息使RichTextBox控件中的文本不换行,如何再恢复到原来自动换行的状态?

Question

可以在RichTextBox中内容有变化的时候，把内容里面的回车拿掉

Answer 1

试一下：
Call SendMessage(RichTextBox1.hwnd, EM_SETTARGETDEVICE, RichTextBox1.hDC, RichTextBox1.Width)

Answer 2

回复： TechnoFantasyRichTextBox没有hdc属性 :(
老大你的www.applevb.com怎么不更新了???
我很喜欢的

Answer 3

用API函数GetDC获得控件地设备环境。

Answer 4

Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongCall SendMessage(RichTextBox1.hwnd, EM_SETTARGETDEVICE, GetDC(RichTextBox1.hwnd), RichTextBox1.Width)这样吗?
没用呀@!!!!

Answer 5

TechnoFantasy你哪儿去了?
不行呀!!!

Answer 6

呵呵，这个问题我在新闻组回答了，答案如下：如果要恢复自动换行，使用下面的代码： Private Sub Command2_Click() 
Debug.Print (SendMessage(RichTextBox1.hwnd, EM_SETTARGETDEVICE, _ 
GetDC(RichTextBox1.hwnd), RichTextBox1.Width / 15)) 
RichTextBox1.RightMargin = 1 
End Sub 

Answer 7

呵呵，这个问题我在新闻组回答了，答案如下：如果要恢复自动换行，使用下面的代码： Private Sub Command2_Click() 
Debug.Print (SendMessage(RichTextBox1.hwnd, EM_SETTARGETDEVICE, _ 
GetDC(RichTextBox1.hwnd), RichTextBox1.Width / 15)) 
RichTextBox1.RightMargin = 1 
End Sub 

Answer 8

呵呵，这个问题我在新闻组回答了，答案如下：如果要恢复自动换行，使用下面的代码： Private Sub Command2_Click() 
Debug.Print (SendMessage(RichTextBox1.hwnd, EM_SETTARGETDEVICE, _ 
GetDC(RichTextBox1.hwnd), RichTextBox1.Width / 15)) 
RichTextBox1.RightMargin = 1 
End Sub