Type POINTAPI x As Long y As Long End Type Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long ' Ensuite dans le Code de votre Formulaire mettez ceci : Private Sub Timer1_Timer() Dim pos As POINTAPI Dim ret As Long ret = GetCursorPos(pos) Text1.Text = Str(pos.x) + " " + Str(pos.y) End Sub
tres bon !
Bonne sourec simple et efficace...
bonjour comment on fait en vb 2005?...
oui pareil en vb express 2008, je n'arrive pas a faire fonctionner cela. Autant le setcursorpos, il fonctionne que le getcursorpos, j'y arrive pas...
arff bah je viens de trouvé, :) en faite il n'y a pas besoin de se faire chier... juste mettre : pos=cursor.position :)
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte