头一次遇到这样的有关问题！

2013-12-21

头一次遇到这样的问题！！！简单的测试代码：一个定时器和一个鼠标钩子，结果2种途径得到的鼠标位置不一致！！很

头一次遇到这样的问题！！！
简单的测试代码：一个定时器和一个鼠标钩子，结果2种途径得到的鼠标位置不一致！！很奇怪。。。。。

窗体代码：

Option Explicit
Private Sub Form_Load()
    MouseHook
End Sub
Private Sub Form_Unload(Cancel As Integer)
    UnMouseHook
End Sub
Private Sub Timer1_Timer()
    Dim lp As PointAPI
    GetCursorPos lp
    Lab.Caption = lp.X & "," & lp.Y
End Sub

模块中代码：

Option Explicit
''使用鼠标钩子在Module模块里:
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 WH_KEYBOARD_LL = 13
Private Const WH_MOUSE_LL = 14 '消息
Private Const HC_ACTION = 0
Private Const HC_SYSMODALOFF = 5
Private Const HC_SYSMODALON = 4 '鼠标消息
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
Public Type PointAPI
    X As Long
    Y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Public lMouseHook As Long
Public Sub MouseHook()
    lMouseHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf CallMouseHookProc, App.hInstance, 0)
End Sub
'卸钩子
Public Sub UnMouseHook()
    UnhookWindowsHookEx lMouseHook
End Sub
'鼠标钩子
Public Function CallMouseHookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If code = HC_ACTION Then '下面是鼠标的消息类型，你想怎么做就怎么做...
        Select Case wParam
        Case WM_MOUSEMOVE
            Dim lp As PointAPI
            GetCursorPos lp
            Form1.Caption = lp.X & "," & lp.Y
        Case WM_LBUTTONDOWN
        Case WM_LBUTTONUP
        Case WM_LBUTTONDBLCLK
        Case WM_RBUTTONDOWN
        Case WM_RBUTTONUP
        Case WM_RBUTTONDBLCLK
        Case WM_MBUTTONDBLCLK
        Case WM_MBUTTONUP
        Case WM_MOUSEACTIVATE
        Case WM_MOUSEFIRST
        Case WM_MOUSELAST
        Case WM_MOUSEWHEEL
        End Select
    End If
    If code <> 0 Then
        CallMouseHookProc = CallNextHookEx(0, code, wParam, lParam)
    End If
End Function

[解决办法]
我觉得应该是WM_MOUSEMOVE不是每个像素点都触发，所以可能会与实际位置有一点偏差。

   If code = HC_ACTION Then '下面是鼠标的消息类型，你想怎么做就怎么做...
            Dim lp As PointAPI
        Select Case wParam
        Case WM_MOUSEMOVE
            GetCursorPos lp
            Form1.Caption = lp.X & "," & lp.Y
        Case WM_LBUTTONDOWN
            GetCursorPos lp
            Form1.Caption = lp.X & "-" & lp.Y '两个值不一致的时候点一下就能看到与timer一致了
        Case WM_LBUTTONUP
        Case WM_LBUTTONDBLCLK
        Case WM_RBUTTONDOWN
        Case WM_RBUTTONUP
        Case WM_RBUTTONDBLCLK
        Case WM_MBUTTONDBLCLK
        Case WM_MBUTTONUP
        Case WM_MOUSEACTIVATE
        Case WM_MOUSEFIRST
        Case WM_MOUSELAST
        Case WM_MOUSEWHEEL
        End Select
    End If

[解决办法]
可能就是蚜虫说的那个原因吧。
很多时候就是１象素的差异，楼主没必要太在乎这个吧。头一次遇到这样的有关问题！
只要都在使用同一个地方（我是指获取鼠标位置坐标）获取的值来处理就行了。

热点排行

VB

头一次遇到这样的有关问题！