vb获取鼠标的屏幕坐标

2024-12-19 16:55:13

推荐回答（2个）

回答1：

GetCursorPos

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

回答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