Comment capturer les coordonnées de la souris ?

Michael - 23 févr. 2001 à 23:56
 Michael - 24 févr. 2001 à 01:27
Pourriez-vous me dire comment capturer les coordonnées du curseur quelque sit sa position sur l'écran ?
Merci

2 réponses

C'est une fonction API :

Private Type POINTAPI
x as Long
y as Long
End Type

Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

Puis dans le code :
Dim Tampon as PointAPI
GetCursorPos Tampon
Label1.Caption = Tampon.x
Label2.Caption = Tampon.y

That's all

a+
0
je te remercie !
0
Rejoignez-nous