 |
||
| ||
| |||||
| Dernière réponse | |
|---|---|
| Sujet : Connaitre position souris [VB] | |
| karlkox | Dans un bas :
----------- Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Const WM_LBUTTONUP = &H202 Public Const WM_MBUTTONUP = &H208 Public Const WM_RBUTTONUP = &H205 Public Const WM_LBUTTONDOWN = &H201 Public OldWindowProc As Long, OldWindowProc2 As Long Public Function NewWindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If Msg = WM_LBUTTONDOWN Then Debug.Print "CLICK" Exit Function End If NewWindowProc = CallWindowProc( _ OldWindowProc, hwnd, Msg, _ wParam, lParam) End Function Dans le Form : ------------- Private Sub Form_Load() OldWindowProc = SetWindowLong(hwnd, _ GWL_WNDPROC, AddressOf NewWindowProc) end Sub Private Sub Form_Unload(Cancel As Integer) SetWindowLong hwnd, GWL_WNDPROC, _ OldWindowProc End Sub En gros c'est ca. |
| Vue Rapide de la discussion |
|---|
