Question

vb 双击事件

Private 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)
Private Sub Command1_Click()
Me.Caption = "18913" & Int(Rnd() * 99999)
mouse_event MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
我把鼠标移动到需要点击的怎么不能实现到

Answer 1

Private Sub Command1_Click() '这个是单击事件，并且按钮事件只有单击没有双击的说法
只有FROM之类的才有双击事件，如：
Private Sub Form_DblClick() ‘在窗体上双击事件

如果你是模拟双击事件
mouse_event
我只能说，你写错了，一次只能模拟一种情况，不能又按下，又弹起的，要分开的

Answer 2

两次连续的鼠标左键单击事件 构成一次鼠标双击事件：
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0