恩,这样是可以的: 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这样可以使RichTextBox1不自动换行。就可以用横向滚动条
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这样可以使RichTextBox1不自动换行。就可以用横向滚动条