координаты курсора

[Fedesius]

Скажите как отследить координаты курсора вне формы.

[Qubicz]

Апишкой:

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim bred As POINTAPI

Private Sub Form_Load()
GetCursorPos bred
MsgBox "x=" & bred.X & " y=" & bred.Y
End Sub

[Fedesius]

а уменя все равно только на форме определяется

[ANDLL]

А где ты ее(координаты) определяешь?

[GM]

Кладеш на форму таймер, и:

Код: Выделить всё

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim bred As POINTAPI
Private Sub Form_Load()
timer1.interval = 100
timer1.enabled = true
end sub
Private Sub Timer1_Timer()
GetCursorPos bred
MsgBox "x=" & bred.X & " y=" & bred.Y
End Sub


[Fedesius]

Все понятно, все работает, спасибо

[DragonTriste]

Кладеш на форму таймер, и: ....

сделал, только вывод координат изменил на лабелы на форме, а то мсг боксы не люблю... ну в общем о чём это я... а...
так вот заметил (пока говорил по телефону) что координаты меняются ±1. мышу я не трогаю, а они меняются кто знает почему ?

[tyomitch]

Если мышь оптическая, а поверхность гладкая, то так бывает...