VB6 代码管家-取鼠标坐标2024年12月8日 21:52
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Timer1_Timer()
Dim a As POINTAPI
GetCursorPos a
Text1.Text = "x=" & a.x & ", y=" & a.y
End Sub
全部回复（0）