1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Private Type POINTAPI 'structure pour les coordonnées d'un point
X As Long 'abcisse du point
Y As Long 'ordonnée du point
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Sub positions(objet As Object)
Dim pos As POINTAPI
If objet.Name = Me.Name Then nom$ = "(La feuille elle même)" Else nom$ = objet.Name
nom$ = TypeName(objet) & " " & nom$: lblctrl1.Caption = nom$
GetCursorPos pos
ecranx.Caption = pos.X: ecrany.Caption = pos.Y
ScreenToClient Me.hwnd, pos
formex.Caption = pos.X: formey.Caption = pos.Y
GetCursorPos pos
ScreenToClient objet.hwnd, pos
ctrlx.Caption = pos.X: ctrly.Caption = pos.Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 0 Then positions Me 'appel de la procédure positions pour la form
End Sub
Private Sub Testecommand_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
positions testecommand 'appel de la procédure positions pour Testecommand
End Sub |
Partager