A voir également:
- Connaitre pos souris sur l'écran
- Delphi pos - Forum Delphi / Pascal
- Fond ecran simple - Forum Visual Basic
- Changer fond d'ecran - Forum Visual Basic 6
- Pos delphi ✓ - Forum Delphi / Pascal
- Ecran d attente - Forum Visual Basic
1 réponse
Utiliser la fonction API : GetCursorPos :
Dans General Declaration :
Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x as Long
y as Long
End Type
Dans le Code :
Dim Pos as pointApi
GetCursorPos Pos
' Pour avoir x et y en Pixel :
x = Pos.x
y = Pos.y
That's all . Bon Reveillon
Dans General Declaration :
Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x as Long
y as Long
End Type
Dans le Code :
Dim Pos as pointApi
GetCursorPos Pos
' Pour avoir x et y en Pixel :
x = Pos.x
y = Pos.y
That's all . Bon Reveillon
