191问答库 > VB 如何用API mouse_event 函数实现鼠标相对移动？

VB 如何用API mouse_event 函数实现鼠标相对移动？

2025-04-08 23:49:05

推荐回答（3个）

回答1：

'我还就给你SetCursorPos了，要不要？

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

Private Sub Command1_Click()
Dim P1 As POINTAPI
GetCursorPos P1
screenx = P1.X
screeny = P1.Y
Call SetCursorPos(screenx + 100, screeny)
End Sub

回答2：

已通过短消息与人作了沟通。

回答3：

控制面板-鼠标-指针选项，取消勾选“提高鼠标指针精确度”