2
Сентябрь
2008
Отслеживаем координаты мыши
Отслеживаем координаты указателя мыши, находит широкое применение.
Option Explicit
Private Declare Function GetCursorPos Lib _
"user32" (ast As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim position As POINTAPI
Dim p As Integer
Private Sub Form_Load()
Me.WindowState = 2
End Sub
Private Sub Form_MouseMove _
(Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)
p = GetCursorPos(position)
Form1.Caption = "X: " & position.X _
& Space(3) & "Y: " & position.Y
End Sub