求教鼠标移动的问题

Question

我想将当前鼠标位置移动到300,300的坐标上,请问如何实现?

Answer 1

Public Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long一看这个函数的参数你就明白了

Answer 2

'--新建一个窗体,纵制一个Commandbutton按钮Command1，然后贴入如下代码；
-------------------------------------------------------------------------------------
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
    '以下调用两者选一    '1.> 默认单位为像素
    SetCursorPos 300, 300
    
    '2.> 如果要转换成小单位,可以
    'SetCursorPos 300 / Screen.TwipsPerPixelX, 300 / Screen.TwipsPerPixelY
End Sub

Answer 3

再请教个问题
当执行SetCursorPos 300, 300 数标已到达指定位置后,如何再执行数标的左键单击?

Answer 4

可以用 mouse_event, PostMessage, SendMessage