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

[ASPBIT]

我该发送什么消息恢复??

以下代码：
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Const WM_USER = &H400
Const EM_SETTARGETDEVICE = (WM_USER + 72)

Private Sub Form_Load()
Call SendMessage(RichTextBox1.hwnd, EM_SETTARGETDEVICE, 0, 1)
End Sub

[Montaque]

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

[TechnoFantasy]

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

[ASPBIT]

回复： TechnoFantasy

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

[TechnoFantasy]

最近比较忙 :-)

[TechnoFantasy]

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

[ASPBIT]

Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Call SendMessage(RichTextBox1.hwnd, EM_SETTARGETDEVICE, GetDC(RichTextBox1.hwnd), RichTextBox1.Width)

这样吗?
没用呀@!!!!

[ASPBIT]

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

[TechnoFantasy]

呵呵，这个问题我在新闻组回答了，答案如下：

如果要恢复自动换行，使用下面的代码：

Private Sub Command2_Click()
Debug.Print (SendMessage(RichTextBox1.hwnd, EM_SETTARGETDEVICE, _
GetDC(RichTextBox1.hwnd), RichTextBox1.Width / 15))
RichTextBox1.RightMargin = 1
End Sub

[TechnoFantasy]

呵呵，这个问题我在新闻组回答了，答案如下：

如果要恢复自动换行，使用下面的代码：

Private Sub Command2_Click()
Debug.Print (SendMessage(RichTextBox1.hwnd, EM_SETTARGETDEVICE, _
GetDC(RichTextBox1.hwnd), RichTextBox1.Width / 15))
RichTextBox1.RightMargin = 1
End Sub

[TechnoFantasy]

呵呵，这个问题我在新闻组回答了，答案如下：

如果要恢复自动换行，使用下面的代码：

Private Sub Command2_Click()
Debug.Print (SendMessage(RichTextBox1.hwnd, EM_SETTARGETDEVICE, _
GetDC(RichTextBox1.hwnd), RichTextBox1.Width / 15))
RichTextBox1.RightMargin = 1
End Sub