s3cur17y

Hi, I am looking for a way to see if a user has clicked a command button twice, and then if so I would like to disable the command button..

Private Sub btn_equipment_Click(Index As Integer)
Dim tmpFlash, tmpSmoke As String
tmpFlash = 0 'Flash click counter starts at zero.
tmpSmoke = 0 'Smoke click counter starts at zero.

If btn_equipment(2) Then 'If btn_equipment(2) is clicked then.
tmpFlash = tmpFlash + 1 'Add 1 to tmpFlash
If tmpFlash >= 2 Then 'Check to see if command button has been clicked twice.
btn_equipment(2).Enabled = False 'Disable command button.
Else
btn_equipment(2).Enabled = True 'Enable command button
End If
Debug.Print
End If

Debug.Print btn_equipment(Index).Tag
End Sub

reboot

Static tmpFlash As String, tmpSmoke As String

s3cur17y

I tryed doing that but it is not working...

Private Sub btn_equipment_Click(Index As Integer)
Static tmpFlash, tmpSmoke As String
tmpFlash = 0 'Flash click counter starts at zero.
tmpSmoke = 0 'Smoke click counter starts at zero.



and also I am getting an error on this line...

If btn_equipment(2) Then 'If btn_equipment(2) is clicked then.




ALSO it is not adding 1 to tmpFlash

reboot

ok well, if you set them back to 0 each time, how is it ever going to get to 2?

s3cur17y

How do i make it so it does not reset to zero?

reboot

Oh I don't know... maybe take out the tmpFlash = 0 line?

4x2y

you can rewrite the code as follow

the command button disabled when clicked towice even if the period between the 2 clicks is too long, but if you want it work as double click behaviour, this is another story