程序:
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
Public Function CallHookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim pt As POINTAPI
bflag = False
If code = HC_ACTION Then
CopyMemory msgs, lParam, LenB(msgs)
Select Case wParam
Case WM_MOUSEMOVE
pt.X = msgs.message
pt.Y = msgs.paramL
Case WM_LBUTTONDOWN
form1.text1 = "WM_LBUTTONDOWN"
Case WM_LBUTTONUP
form1.text1 = "WM_LBUTTONUP"
Case WM_LBUTTONDBLCLK '就是这个不触发
form1.text1 = "WM_LBUTTONDBLCLK"
Case WM_RBUTTONDOWN
form1.text1 = "WM_RBUTTONDOWN"
Case WM_MBUTTONDOWN
form1.text1 = "WM_MBUTTONDOWN"
End Select
End If
If code <> 0 Then
CallHookProc = CallNextHookEx(0, code, wParam, lParam)
End If