在VB中,如何让TEXT1 和RichTextBox1用同一个滚动条

来源：百度知道 编辑：UC知道 时间：2024/06/27 15:24:17
在VB中,如何让TEXT1 和RichTextBox1用同一个滚动条,我点中RichTextBox1的垂直滚动条时,text1也滚到相同位置,当我点水平的时候,text2也滚到相同位置!
用全局变量赋值 ,谁有实例.发下,谢谢!

分二步：
一、建立一个模块，复制下面代码：
'=====模块代码====
Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function CallWindowProc _
Lib "user32" Alias "CallWindowProcA" _
(ByVal lpPrevWndFunc As Long, _
ByVal hwnd As Long, _
ByVal Msg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Private Declare Function SetWindowLong _
Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Const WM_HSCROLL = &H114
Private Const WM_VSCROLL = &H115

Private Const EM_GETFIRSTVISIBLELINE = &HCE
Private Const EM_LINESCROLL = &