关于激发事件的疑问
激发某一事件的时候会伴随其他事件的发生,那如果我同时定义了DblClick、Click事件,我怎么才可以在激发DblClick事件的时候不激发Click事件呢?
Private Sub Form_Click()
Print "Click"
End Sub
Private Sub Form_DblClick()
Print "DblClick"
End Sub
会两个都激发,不信试试
基本上是不可能的,在触发dbclick之前你已经触发了click
自己做个延时(有点傻 -_-d):
Timer1.Interval = 200'(经测试200很合适)
'////////////////
Private Sub Form_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_DblClick()
Timer1.Enabled = False
Print "DblClick"
End Sub
Private Sub Timer1_Timer()
Print "Click"
Timer1.Enabled = False
End Sub
连这你也弄出来了啊?i 服了 you!