Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Sub File_Klikken()
If LastClickObj = "" Then
LastClickObj = Application.Caller
LastClickTime = CDbl(Timer)
Else
If CDbl(Timer) - LastClickTime > 0.25 Then
LastClickObj = Application.Caller
LastClickTime = CDbl(Timer)
Else
If LastClickObj = Application.Caller Then
MsgBox ("Dubbelklik)
LastClickObj = ""
Else
LastClickObj = Application.Caller
LastClickTime = CDbl(Timer)
End If
End If
End If
End Sub
Nee, daar is geen dubbelklik event voor.
Maar je kan het wel simuleren:
De 2e klik van een "dubbelklik" dient dan binnen een kwart seconde na de eerste klik te gebeuren.Code:Sub File_Klikken() If LastClickObj = "" Then LastClickObj = Application.Caller LastClickTime = CDbl(Timer) Else If CDbl(Timer) - LastClickTime > 0.25 Then LastClickObj = Application.Caller LastClickTime = CDbl(Timer) Else If LastClickObj = Application.Caller Then MsgBox ("Dubbelklik) LastClickObj = "" Else LastClickObj = Application.Caller LastClickTime = CDbl(Timer) End If End If End If End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.