鼠标WM_LBUTTONDOWN时GetCapture为空?

Question

 If wParam = WM_LBUTTONDOWN Then
                Debug.Print "Cap:" & GetCapture
Print结果始终为0,得不到焦点控件的句柄,而WM_LBUTTONUP时则可以

Answer 1

 If wParam = WM_LBUTTONDOWN Then
                Debug.Print "Cap:" & GetFocus

Answer 2

这是鼠标全局hook的一行代码,在截获鼠标信息后的判断的一句话,判断左键按下(wParam = WM_LBUTTONDOWN )并判断某个控件是否获得焦点(GetCapture)
GetCapture()总是返回Null
如果是判断左键抬起wParam = WM_LBUTTONUP )则GetCapture()能返回正确的控件句柄

Answer 3

应该不行，单击窗体时其实已经触发了GetCapture
你试一试捕获单击消息是调用GetCapture，应该可以。

Answer 4

捕获单击消息?
那不还是用WM_LBUTTONDOWN 或WM_LBUTTONUP啊?

Answer 5

贴代码吧,网上找了好多VB做的鼠标全局hook的代码'模块部分
Option Explicit
Private Declare Function GetCapture Lib "user32" () As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private 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
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lparam As Any) As Long
Private Const HC_ACTION = 0
Private Const WH_MOUSE_LL As Long = 14
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_MBUTTONDOWN = &H207
Private Const WM_MBUTTONUP = &H208
Private Const WM_MBUTTONDBLCLK = &H209
Private Const WM_MOUSEACTIVATE = &H21
Private Const WM_MOUSEFIRST = &H200
Private Const WM_MOUSELAST = &H209
Private Const WM_MOUSEWHEEL = &H20A   '以上是鼠标的各个值
Private Type POINTAPI
   x As Long
   y As Long
End Type
Private Type MSLLHOOKSTRUCT
    pt As POINTAPI
    mouseData As Long
    Flags As Long
    time As Long
    dwExtraInfo As Long
End Type
Public hHook As Long
Public Sub EnableHook()
    If hHook = 0 Then
       hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf HookProc, App.hInstance, 0)
    End If
End Sub
Public Sub FreeHook()
    If hHook <> 0 Then
       Call UnhookWindowsHookEx(hHook)
       hHook = 0
    End If
End Sub
Public Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lparam As Long) As Long
    Dim typMHS As MSLLHOOKSTRUCT, pt As POINTAPI
    If wParam = WM_MOUSEMOVE Then
        Call CopyMemory(typMHS, ByVal lparam, LenB(typMHS))
        pt = typMHS.pt
        Debug.Print "mouse Cursor at " + CStr(pt.x) + "," + CStr(pt.y)
    End If
    
    Debug.Print "----------------------------------"
    Debug.Print Hex(wParam)
    
    If wParam = WM_LBUTTONUP Then
       If GetCapture=FindWindow(...) Then _'这里GetCapture能正确返回
       Debug.Print "u"
    End If
    
    If wParam = WM_LBUTTONDOWN Then
       If GetCapture=FindWindow(...) Then _'这里GetCapture总是返回null
       Debug.Print "d"
    End If
    
    HookProc = CallNextHookEx(hHook, nCode, wParam, lparam)End Function

Answer 6

看我前面贴出的代码
WM_LBUTTONDOWN 不行 WM_LBUTTONUP可以