CommandButton1_DblClick
13.05.2008 15:08:31
Matthias
meine Frage bezieht sich auf die Verarbeitung eines Click und eines Doppelclick Ereignisses.
Zielsetzung:
Nach einem Doppelclick Ereigniss soll das Click Ereigniss (das ja zwangsläufig eintritt) ignoriert werden.
Lösungsansatz:
Mit der Variablen "doppelt" prüfe ich ob ein Doppelclick stattgefunden hat.
Das Click Ereignis wird verzögert verarbeitet. Im Doppelclick Ereignis wird Variable "einfach" und Variable "doppelt" auf 2 gesetzt und im Modul "Eintragen" geprüft. Das funktioniert auch prima. Danach wird aber das Click Ereignis verarbeitet und die Variable "doppelt" ist dann leer.
Sub CommandButton1_Click()
Application.OnTime Now + TimeValue("00:00:01"), "Test_click"
End Sub
Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
einfach = 2
doppelt = 2
Eintragen einfach, doppelt
End Sub
Module:
Sub Test_Click()
einfach = 1
Eintragen einfach, doppelt
End Sub
Sub Eintragen(einfach, doppelt)
Range("A1").Value = einfach
Range("A2").Value = doppelt
If einfach = 2 And doppelt = 2 Then MsgBox ("doppelt")
If einfach = 1 And doppelt = 2 Then GoTo Ende
If einfach = 1 Then MsgBox ("einfach")
Ende:
End Sub