VB代码 单击后,再过四秒才响应第二次单击

来源：百度知道 编辑：UC知道 时间：2024/06/06 04:49:32
按F9实现如下功能:

单击一次后(这里的单击包括双击中的第一击也算.)过四秒后才能响应第二次单击.而且当第二次单击响应后,再击也不响应.

作计时器用,防止比赛选手多击或快击计时器开关.
按F10取消该功能

加班中，吃晚饭时抓紧试着写了一个，不是很完善：

Option Explicit

Dim bolState As Boolean
Dim Num As Long

Sub LetButtonEnabled()
Num = Num + 1
If bolState Then
Command1.Enabled = False
If Num = 1 Then Timer1.Enabled = True
End If
End Sub

Private Sub Command1_Click()
LetButtonEnabled
'其它处理代码
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
Case vbKeyF9
bolState = True
Num = 0
Case vbKeyF10
bolState = False
Timer1.Enabled = False
Command1.Enabled = True
End Select

End Sub

Private Sub Form_Load()
Me.KeyPreview = True
Timer1.Enabled = False
Timer1.Interval = 4000
End Sub

Private Sub Timer1_Timer()
Command1.Enabled =