Bonjour,

J'ai dans mon projet VB une petite fenetre se trouvant dans un coin de l'écran contenant deux labels. Je voudrais faire apparaitre dans ces deux labels les coordonnées de la souris quand elle se trouve sur n'importe quel partie de l'écran, y compris en dehors de l'application...
Pour cela en cherchant sur le net je suis tombé plusieurs fois sur le code suivant :

Pour les autres évènements, par exemple Click ou DblClick, les coordonnées se récupèrent via les API Windows. Copiez ces déclarations au début du module de la form :

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 Type POINTAPI
    X As Long
    Y As Long
End Type
 

Puis la fonction ci-dessous, qui renvoie les coordonnées de la souris exprimées en twips, par rapport au coin haut gauche de la form :

Private Function GetMousePosition() As POINTAPI

Dim pos As POINTAPI

GetCursorPos pos
ScreenToClient Me.hwnd, pos
pos.X = Screen.TwipsPerPixelX * pos.X
pos.Y = Screen.TwipsPerPixelY * pos.Y
GetMousePosition = pos

End Function

Configuration: Windows XP
Internet Explorer 6.0