Question

vb获取鼠标的屏幕坐标

两位说得太复杂，我就是想要鼠标的屏幕坐标，并存入A，B两变量中。能不能帮改改。

Answer 1

GetCursorPos

VB声明
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
说明
获取鼠标指针的当前位置
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpPoint POINTAPI，随同指针在屏幕像素坐标中的位置载入的一个结构

Answer 2

这个吧,这个超简单了

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

A = Point.X
B = Point.Y
End Sub