I just started playing a bit with SubClassing form/control.
I was wondering which way is the best to get the mouse X and Y coordinates?
I currently use this for code
This is working great, however would this be a good way to get the X/Y?
Would you suggest something else?
I can have a look around and find information i know but i like to know what people think about it.
I was wondering which way is the best to get the mouse X and Y coordinates?
I currently use this for code
Code:
'This code is in a Module
'After I SubClass a Form/Control...
Public Function GET_Y_LPARAM(ByVal lParam As Long) As Long
Dim HexStr As String
HexStr = Right("00000000" & Hex(lParam), 8)
GET_Y_LPARAM = CLng("&H" & Left(HexStr, 4))
End Function
Public Function GET_X_LPARAM(ByVal lParam As Long) As Long
Dim HexStr As String
HexStr = Right("00000000" & Hex(lParam), 8)
GET_X_LPARAM = CLng("&H" & Right(HexStr, 4))
End Function
Public Function MyWindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If uMsg = WM_MOUSEMOVE Then Debug.Print "X: " & GET_X_LPARAM(lParam) & " - Y: " & GET_Y_LPARAM(lParam)
MyWindowProc = CallWindowProc(PrevWndProc, hw, uMsg, wParam, lParam)
End FunctionWould you suggest something else?
I can have a look around and find information i know but i like to know what people think about it.