Question

vb获取鼠标位置

将横坐标定义为x，纵坐标定义为y

若以下回答无法解决问题，邀请你更新回答

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 Timer1_Timer()
    Dim Point As POINTAPI
    GetCursorPos Point

    Me.Caption = Point.X & "," & Point.Y
End Sub

追问

这个是在屏幕上的坐标还是在窗体中的

追答

是屏幕坐标