UC知道模拟鼠标单击问题
来源：百度知道 编辑：UC知道 时间：2024/06/05 01:25:17
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
窗体按钮command1(&C)
Private Sub Command1_Click()
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
为什么不能实现单击的效果。
窗体按钮command1(&C)
Private Sub Command1_Click()
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
为什么不能实现单击的效果。
在声明部分增加下面代码即可：
'对API变量的定义
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
注意：
1、应该是按ALT+C才有效果
2、此函数仅实现鼠标单击效果，如果你要移动鼠标，还要用MoveMouse来实现。