Question

VB 如何实时获取鼠标坐标呢，然后点击一下坐标就输入到TEXT1 和 TEXT2 当中。

Answer 1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = X
Text2.Text = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = X & "," & Y
End Sub

Answer 2

实时坐标，不用点击
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim p As POINTAPI
Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()

GetCursorPos p

Text1 = p.X
Text2 = p.Y
End Sub

Answer 3

调用 api GetCursorPos函数