vb中如何触发form的dblclick事件而不触发form的click事件

Posted 2023-02-26

vb中如何触发form的dblclick事件而不触发form的click事件

参考技术A 就是，VB没有区分 Click 和 DblClick 事件，系统设了个双击延时好象是自己用的一样，实在不行你就只有自己做个延时，在DblClick 关闭Timer延时，Click事件启动Timer.在Timer里执行Click事件.如：
Private Sub Form_Click()
Me.Form_ClickTime.Enabled = True
End Sub

Private Sub Form_ClickTime_Timer()
Me.Caption = "11111111111111111111111"
End Sub

Private Sub Form_DblClick()
Me.Form_ClickTime.Enabled = False
Me.Caption = "2"
End Sub
Private Sub Form_Click()
Me.Form_ClickTime.Enabled = True
End Sub

Private Sub Form_ClickTime_Timer()
Me.Caption = "11111111111111111111111"
End Sub

Private Sub Form_DblClick()
Me.Form_ClickTime.Enabled = False
Me.Caption = "2"
End Sub
Timer延时可以在50~300之间。 参考技术B 如果同时在 Click 和 DblClick 事件处理器中编了代码的话，则必然会触发 Click 事件的，这也没什么可以解决的方法，VB就这样，其它开发工具好像也有此类问题，只好用其中一种了，即：用单击就不要用双击了。本回答被提问者采纳 参考技术C 在Form的DblClick事件下编程,不要在Click事件下即可
例如:
-----
Private Sub Form_DblClick()

MsgBox "双击效果"

End Sub