为什么我用Hook检索鼠标事件，不能检索到双击事件？？？？

[lg9wowo]

为什么我用Hook检索鼠标事件，不能检索到双击事件？？？？

[lg9wowo]

但down跟up事件可以

[evbsky]

没定义常量
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDBLCLK = &H206

[叶帆]

应该可以，如楼上所说，你看看你是否定义响应常量了。

否则，你有兴趣可以通过down、up事件和时间自己定义双击事件

[zyl910]

讲清楚点
是SubClass还是Hook

[lg9wowo]

已经定义了WM_LBUTTONDBLCLK ，WM_RBUTTONDBLCLK


程序：
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

End Function