Question

vb怎么使用api获取鼠标的位置信息呢？

Answer 1

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)  '点击窗体运行
Dim p As POINTAPI
GetCursorPos p
MsgBox "当前鼠标相对于窗口的所在位置：(" & X \ Screen.TwipsPerPixelX & "," & Y \ Screen.TwipsPerPixelY & ")" & vbCrLf & "相对于屏幕的所在位置：(" & p.X & "," & p.Y & ")"
End Sub

Answer 2

Option Explicit
Type POINTAPI
    x As Long
    y As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Option Explicit

Private Sub Command1_Click()
    Dim point As POINTAPI
    GetCursorPos point
    MsgBox "(x,y)=(" & point.x & "," & point.y & ")", , "Êó±êλÖÃ"
End Sub

Answer 3

都不能用