Question

vb使用GetCursorPos获取鼠标位置？

vb怎样用GetCursorPos获取鼠标位置？

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

Private Type POINTAPI
        X As Long
        Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim p As POINTAPI
Cls
GetCursorPos p
Print "x=" & p.X & ", y=" & p.Y
End Sub

追问

能有不用坐标系的办法吗？，就直接获取x，y的值