Как связать вертикальную прокрутку двух идентичных TextBox - VB - Ответ 4382744

Private Sub Form_Load()
    txtEdit(0).Text = txtEdit(1).Text
    Hook txtEdit(1).hwnd
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    UnHook txtEdit(1).hwnd
End Sub

Private Declare Function CallWindowProcA Lib "user32" (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 Declare Function SendMessageA Lib "user32" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function GetScrollPos Lib "user32" (ByVal hwnd As Long, ByVal nBar As Long) As Long
Private Declare Function GetMem2 Lib "msvbvm60" (ByVal pSrc As Long, ByVal pDst As Long) As Long
 
Dim lpPrevWndProc As Long
Private Const SB_VERT = 1
Private Const SB_TOP = 6
Private Const EM_SCROLL = &HB5
Private Const EM_LINESCROLL = &HB6
Private Const GWL_WNDPROC& = (-4&)
Private Const WM_VSCROLL = &H115
Private Const SB_THUMBTRACK = 5
Private Const SB_THUMBPOSITION = 4
Private Const SB_LINEDOWN = 1
Private Const SB_PAGEDOWN = 3
Private Const SB_PAGEUP = 2
 
Public Sub Hook(hwnd As Long)
    lpPrevWndProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub UnHook(hwnd As Long)
    Call SetWindowLong(hwnd, GWL_WNDPROC, lpPrevWndProc)
End Sub
Private Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Dim Pos As Long
    Select Case uMsg
    Case WM_VSCROLL
        If ((wParam And &HFFFF&) = SB_THUMBTRACK) Or ((wParam And SB_THUMBPOSITION) = SB_THUMBPOSITION) Then
            GetMem2 VarPtr(wParam) + 2, VarPtr(Pos)
            SendMessageA frmSynchTextBox.txtEdit(0).hwnd, EM_SCROLL, SB_TOP, ByVal 0&
            SendMessageA frmSynchTextBox.txtEdit(0).hwnd, EM_LINESCROLL, 0&, ByVal Pos
        ElseIf (wParam And &HFFFF&) = SB_LINEDOWN Then
            SendMessageA frmSynchTextBox.txtEdit(0).hwnd, EM_LINESCROLL, 0&, ByVal 1&
        ElseIf (wParam And &HFFFF&) = SB_PAGEDOWN Then
            SendMessageA frmSynchTextBox.txtEdit(0).hwnd, EM_SCROLL, SB_PAGEDOWN, ByVal 0&
        ElseIf (wParam And &HFFFF&) = SB_PAGEUP Then
            SendMessageA frmSynchTextBox.txtEdit(0).hwnd, EM_SCROLL, SB_PAGEUP, ByVal 0&
        ElseIf (wParam And &HFFFF&) = 0 Then
            SendMessageA frmSynchTextBox.txtEdit(0).hwnd, EM_LINESCROLL, 0&, ByVal -1&
        End If
    End Select
    WindowProc = CallWindowProcA(lpPrevWndProc, hwnd, uMsg, wParam, lParam)
End Function