UC知道vb 显示光标坐标
来源：百度知道 编辑：UC知道 时间：2024/05/05 21:26:00
运行以后显示光标在form中的坐标 也就是光标指哪 哪的坐标数字
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Sub Command1_Click()
Dim p As POINTAPI
GetCursorPos p
Text1.Text = "x=" & p.x & ", y=" & p.y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cls
Print "鼠标坐标为：(" & X & "," & Y & ")"
End Sub