Question

vb中怎么获取鼠标的坐标

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 Command1_Click()
Dim Point As POINTAPI
GetCursorPos Point
Print "鼠标横坐标为：" & Point.X
Print "鼠标纵坐标为：" & Point.Y '打印鼠标位置坐标
End Sub

Answer 2

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Cls
  CurrentX = X + 100
  CurrentY = Y
  Print "(" & X & "," & Y & ")"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Cls
  CurrentX = X + 100
  CurrentY = Y
  Print "(" & X & "," & Y & ")"
End Sub

Answer 3

可以在 MouseMove 事件中获得。