Question

vb中如何实现按钮重复点击无效

试着做了一个游戏，用到了timer控件，正确时间段时点击”cmd1“ 加1分，正确时间段点击”cmd2”加2分，但是有个问题是，如果在该时间段内快速点击按钮就不停加分，怎么才能避免这样呢？
我按下面的方法解决刷分的问题，但又出现了其它问题，谁还有其它办法?
Private Sub Cmd1_Click()
If a = 2 Then
c = c + 1 '加一分
end if
a =99 '改变a的值避免再按cmd1还加分
end sub

timer中会出现a=2的时候

Answer 1

Dim ts, a As Integer
Dim c As Integer
Private Sub Command1_Click()
If a = 1 Then
c = c + 1
a = 2
ts = 1
Timer1.Interval = 1000 ' 1000=1秒
Timer1.Enabled = True
End If
Me.Caption = c
End Sub
Private Sub Timer1_Timer()
ts = ts + 1
If ts > 5 Then a = 1: Timer1.Enabled = False '5秒后允许加分
End Sub

Answer 2

在Timer中
当前时间=正确时间
a=2
当前时间 != 正确时间
a !=2 '这样？

Answer 3

直接cmd1.enabled=false好了。