怎么鼠标移动的,获取其坐标？

Question

怎么鼠标移动的,获取其坐标？
高人指点....

Answer 1

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Type POINTAPI '定义点(Point)结构
X As Long '点在X坐标(横坐标)上的坐标值
Y As Long '点在Y坐标(纵坐标)上的坐标值
End TypeSub PrintCursorPos()
Dim dl As Long
Dim MyPoint As POINTAPI
dl& = GetCursorPos(MyPoint) '调用函数，获取屏幕鼠标坐标
'Debug.Print "X=" & Str(MyPoint.X) & " and " & "Y=" & Str(MyPoint.Y)
Label1.Caption = "当前横坐标：" & str(MyPoint.X)
Label2.Caption = "当前纵坐标：" & str(MyPoint.Y)
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
PrintCursorPos
End Sub
添加一个或两个标签、一个Timer,设置inteval为500，就可以，你试试吧！

Answer 2

相对哪里的坐标？ 相对Form？还是屏幕？

Answer 3

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
获取屏幕上的鼠标位置

Answer 4

网页里的坐标！
顺便问一下，在vb.net 中，怎么添加鼠标移动的消息处理函数啊？

Answer 5

给一个  C# 的语法：
[DllImport("user32")]
static extern int GetCursorPos(POINTAPI lpPoint);