最全的API鼠标函数

2024年4月29日发(作者：)

最全的API鼠标函数

鼠标类函数

得到当前鼠标指针的坐标：

GetCursorPos函数

声明：

public Type POINTAPI

x As Long

y As Long

End Type

Public Declare Function GetCursorPos Lib "user32" _

(lpPoint As POINTAPI) As Long 参数缺省为byref指针传递

调用：先声明一个自定义类型变量： Dim z As POINTAPI

Private Sub Timer1_Timer()

GetCursorPos z 注：这里z是引用地址传递，其值改变，就象"返回值"

n = z.x

n = z.y

End Sub

参数lpPoint返回鼠标在屏幕上坐标（不限于程序窗体），如将鼠标指针移到屏幕左

上角时，z.x=0,z.y=0,而鼠标移到屏幕右下角时，z.x=639;z.y=477

==================================================

=========

设置鼠标在屏幕上的坐标 ： SetCursorPos函数

声明：

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y

As Long) As Long

调用如：Private Sub Command1_Click()

Call SetCursorPos(600, 100) 将鼠标定位到屏幕(600，100)处。

End Sub