窗体内需要以下几个控件:
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
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