vb6通过Hook技术监听文本框（Text1）的控件位置移动变化消息，窗口关闭事件，控件大小监视

vb6通过Hook技术监听文本框（Text1）的控件位置移动变化消息

VB6中，可以通过Hook技术监听文本框（Text1）的位置变化。根据搜索结果，可以使用 WH_CALLWNDPROC 钩子来截获窗口消息。当控件的位置发生变化时，会触发 WM_MOVE 消息。

以下是实现监听文本框位置变化的代码示例：

Form1.frm

vb复制

Private Sub Form_Load()
    ' 安装钩子
    hHook = SetWindowsHookEx(WH_CALLWNDPROC, AddressOf CallBackHookProc, App.hInstance, App.ThreadID)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ' 移除钩子
    Call UnhookWindowsHookEx(hHook)
End Sub

Module1.bas

vb复制

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Public Const WH_CALLWNDPROC = 4
Public Const WM_MOVE = &H3
Public Type CWPSTRUCT
    lParam As Long
    wParam As Long
    message As Long
    hwnd As Long
End Type

Public hHook As Long

Public Function CallBackHookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If nCode = 0 Then
        Dim Msg As CWPSTRUCT
        Call CopyMemory(Msg, ByVal lParam, Len(Msg))
        If Msg.message = WM_MOVE Then
            If Msg.hwnd = Form1.Text1.hwnd Then
                ' 文本框位置发生变化
                MsgBox "文本框位置发生变化"
            End If
        End If
    End If
    CallBackHookProc = CallNextHookEx(hHook, nCode, wParam, lParam)
End Function

代码说明：

1. WH_CALLWNDPROC：用于截获窗口消息。

2. WM_MOVE：当控件的位置发生变化时，会触发此消息。

3. CWPSTRUCT：用于解析消息结构，获取消息的详细信息。

4. 回调函数：在回调函数中检查消息类型是否为 WM_MOVE，并确认消息是否来自目标文本框（Text1）。

通过上述代码，可以实现对文本框位置变化的监听。

复制

分享

WH_CALLWN