Conflicting Click and DblClick events

[Jaafar Tribak]

I have a commandbutton (from the ctl toolbbar) embeeded on a worksheet and I noticed that I cannot have a Click and a DblClick events at the same time .

The Click procedure always takes precedence over the DblClick.

Does anybody know of a workaround to this problem ?

 

[RoryA]

IMO having a click and double-click event violates good UI principles anyway, but I don't know of any way of stopping that sequence.

 

[Jaafar Tribak]

Thanks Rory for the reply.

I was expecting to make this work by using the GetDoubleClickTime and GetTickCount APIs but the results were inconsistent. To my surprise, just delaying the Click event by 0.1 secs via a simple loop seems to get the job done nicely...To see what I mean, just add a commandbutton to a worksheet and place the following code in the sheet module :

Option Explicit

Private bDblClicked As Boolean


Private Sub CommandButton1_Click()

    Call Briefdelay(0.1)
    Call DelayedClickEvent

End Sub

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    MsgBox "DblClick"
    bDblClicked = True

End Sub

Private Sub DelayedClickEvent()

    If bDblClicked Then bDblClicked = False: Exit Sub
    MsgBox "Click"

End Sub

Private Sub Briefdelay(TimeOut As Single)

    Dim t As Single
    
    t = Timer
    Do
        DoEvents
    Loop Until Timer - t >= TimeOut

End Sub

Hope this is consistent .