imleç koordinat alma 64 bit

[prgmalik]

Herhangi bir userform üzerinde imlecin koordinatını (x,y) nasıl alabilirim acaba 64 bit te yardımlarınız için şimdiden teşekkür ederim.

 

[prgmalik]

Tamam arkadaşlar ben buldum
Olay bir adet modülün içerisine 64 bit version için aşağıdaki kodu
Private Type POINTAPI
x As Long
y As Long
End Type

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

Dim pos As POINTAPI ' Declare variable


Private Sub CommandButton1_Click()
GetCursorPos pos ' Get Co-ordinates
'MsgBox "Cursor Pointer is at:" & vbNewLine _
& "x:=" & pos.x & vbNewLine _
& "y:=" & pos.y
x_coord = pos.x
y_coord = pos.y
End Sub

32 bit versiyon için aşağıdaki kodu yazın
Private Type POINTAPI
x As Long
y As Long
End Type

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

Dim pos As POINTAPI ' Declare variable


Private Sub CommandButton1_Click()
GetCursorPos pos ' Get Co-ordinates
'MsgBox "Cursor Pointer is at:" & vbNewLine _
& "x:=" & pos.x & vbNewLine _
& "y:=" & pos.y
x_coord = pos.x
y_coord = pos.y
End Sub