控件:窗体上加两个label ( label1 和 label2 ) ,再加一个timer1
增加一个模块
窗体代码:
- Dim z As POINTAPI ' 声明变量
- Private Sub Form_Load()
- Timer1.Interval = 1 '设置时钟为1毫秒
- End Sub
- Private Sub Timer1_Timer()
- GetCursorPos z ' 得到坐标
- Label1.Caption = "x: " & z.x ' 得到X坐标
- Label2.Caption = "y: " & z.y ' 得到Y坐标
- End Sub
模块代码:
- Type POINTAPI ' Declare types
- x As Long
- y As Long
- End Type
- Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
运行就可以看到显示的XY坐标,而且即使失去焦点也可以显示坐标.