Emplacement de la souris

comment je fai pour savoir le left pi le top de l'emplacement de la souris?

Private Type POINTAPI
    X As Long
    Y As Long
End Type

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

Private Sub Timer1_Timer()
    Dim Pt       As POINTAPI
  
    GetCursorPos Pt
    Text1 = Pt.X & " - " & Pt.Y
End Sub


Daniel

Essaie ça:

Private Declare Function GetCursorPos Lib "user32" ( _
                 lpPoint As PointAPI) As Long

Private Type PointAPI
    x As Long
    y As Long
End Type
Private Sub Form_Load()
Me.Timer1.Interval = 10
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Timer1_Timer()
Dim Tampon As PointAPI
GetCursorPos Tampon
Me.Caption = "Position : " & Tampon.x & "-" & Tampon.y
End Sub

One step away from ...

bon si tu ne veux que les coordonne de la soursis sur ton form alors utilises juste l'evenement Form_MouseMove
X et Y sont les coordonnes tchus sinon je confirmes ce que a dis les autresen haut.
MasterVB

---

Life is short...Learn more
Copy Rights <> Rights to Copy