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

来源：百度知道 编辑：UC知道 时间：2024/09/22 20:35:30
例如： 我想水平向右相对移动100像素，我用了Call mouse_event(MOUSEEVENTF_MOVE, 100, 0, 0, 0) 可是为什么向右相对移动了200多像素？怎么才能准确相对移动？还望高手不吝赐教 可以聊系我QQ271072330 多谢哦~ 最好要源码哦~一定要用它mouse_event移动 不要用 SetCursorPos设置坐标！ 是相对移动 谢谢！

'我还就给你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

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

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