vbs实现“当在应用中单击左键时，获得鼠标在应用中的坐标”

来源：百度知道 编辑：UC知道 时间：2024/06/18 12:31:40
用单击鼠标左键获得鼠标在一个应用中的坐标，提供给后面的参数。

Private Sub 控件名_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub
x,y 分别返回在控件上的位置
要返回桌面上鼠标的位置：
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
dim zuobiao as POINTAPI
GetCursorPos zuobiao
'以下在模块中
Public Type POINTAPI
x As Long
y As Long
End Type