新建一个模块，把下面的代码复制进去
Option Explicit
Type POINTAPI ' Declare types
X As Long
Y As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long ' Declare API
在窗体上创建两个label控件，一个timer控件，然后把timer的数值设为10
再复制下面的代码
Option Explicit
Dim z As POINTAPI ' 声明变量
Private Sub Timer1_Timer()
GetCursorPos z ' 得到坐标
Label1 = "x: " & z.X ' 得到X坐标
Label2 = "y: " & z.Y ' 得到Y坐标
End Sub
剩下的你要的功能就很简单了吧看
如果还不会的话，联系我。我直接给你发源程序
本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。
热心网友
回答时间：2025-03-18 03:38
