![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
vb 双击事件
PrivateDeclareSubmouse_eventLib"user32"(ByValdwFlagsAsLong,ByValdXAsLong,ByValdYAsLon...
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
我把鼠标移动到需要点击的怎么不能实现到 展开
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
我把鼠标移动到需要点击的怎么不能实现到 展开
展开全部
Private Sub Command1_Click() '这个是单击事件,并且按钮事件只有单击没有双击的说法
只有FROM之类的才有双击事件,如:
Private Sub Form_DblClick() ‘在窗体上双击事件
如果你是模拟双击事件
mouse_event
我只能说,你写错了,一次只能模拟一种情况,不能又按下,又弹起的,要分开的
只有FROM之类的才有双击事件,如:
Private Sub Form_DblClick() ‘在窗体上双击事件
如果你是模拟双击事件
mouse_event
我只能说,你写错了,一次只能模拟一种情况,不能又按下,又弹起的,要分开的
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询