Click Event bei TextBox auslösen

[Lupy]

Hallo,

bräuchte mal folgende Info von euch.
Die Syntax für die Auslösung eines Doppelclick Events lautet ja bekanntlich:
Sub TextBox1_DblClick(ByVal As MsForms.ReturnBoolean)
..
End Sub

Wie heißt die Syntax zur Auslösung eines einfachen Click Events?

Danke im voraus.

[Rabe]

Hi,

Wie heißt die Syntax zur Auslösung eines einfachen Click Events?

vielleicht
sub textbox1_enter()
oder
sub textbox1_activate()
?

[Lupy]

Hi,
Danke schon mal für die Hilfe funktioniert aber nicht.
Ich will mein Problem nochmal etwas weiter ausführen.

Mit MouseUP/ MouseDown
Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X as Single, ByVal Y as Single)

schaffe ich es ein einfaches "Click" Event auszulösen.

Mit
Sub TextBox1_DblClick(ByVal Cancel As MsForms.ReturnBoolean)

schaffe ich es ein DoppelClick Event auszulösen.

Was ich nicht schaffe, den Code so zu schreiben, das ich beides zusammen unterbringe. Habe ich das eine funktioniert das andere nicht.

Die TextBox soll also sowohl auf Click als auch auf Doppelclick Ereignisse (mit unterschiedlichem Code) reagieren können.

[Steffl]

Hallo,

wird vermutlich nicht gehen. Wie soll Excel wissen, ob Du einen einfachen oder einen doppelten Klick machen willst?

[RPP63]

Moin!
Das Problem ist ja, dass jeder Doppelklick aus zwei Klicks besteht.
Heißt, man kann da nicht unterscheiden (Double löst Single aus).
Eine für VBA auswertbare Variante ist die Unterscheidung rechts/links.
Außerdem geben die Parameter des _MouseDown reichlich Varianten.

Gruß Ralf

[schauan]

Hallöchen,

ein bisschen geht schon. Ob's hilft, sei mal dahingestellt. Der code schreibt nach E1, ob man MouseDown hatte oder Doppelklick.

Code in einem Userform mit textbox1:

PHP-Code:

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
strClick = "Dbl"
Application.OnTime Now + TimeValue("0:0:1"), "Klicker"
End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
strClick = "Dow"
Application.OnTime Now + TimeValue("0:0:1"), "Klicker"
End Sub 


Code in einem Modul:

Code:

Public strClick$
Public Sub Klicker()
Cells(1, 5).Value = strClick
End Sub