VB水平滚动条无效？

来源：百度知道 编辑：UC知道 时间：2024/07/01 15:14:52
richtextbox里加了滚动条，multiline 为true，scrollbars为3，但是在运行时候水平滚动条无效，再怎么输入，效果都好像自动换行那样，不能向右移动，该怎样水平滚动条才可以用啊？
垂直滚动条就正常。。

以下代码：
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

使RichTextBox控件中的文本不换行
========================
上面的代码可以使multiline 为true，scrollbars为3的RichTextBox，即有水平滚动条，也有竖直滚动条。