捕获鼠标位置[在屏幕上的位置]

 

窗体内需要以下几个控件:

label1       label2     timer1

设置:

timer1的间隔为1

代码部分:

 

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

Private Type POINTAPI ' 声明数据类型
x As Long
y As Long
End Type

Dim z As POINTAPI ' 变量

Private Sub Timer1_Timer()
GetCursorPos z ' 获取坐标
Label1.Caption = "x: " & z.x * 15
Label2.Caption = "y: " & z.y * 15
End Sub