Funktionalitätserweiterung für Textbox per Doppelclick

[sotaros]

Hallo Experten,
ich bräuchte mal kurz Rat:

Mit folgendem Code reagiert eine Textbox auf Mausbewegungen:

Code:

Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
MsgBox "Maus losgelassen"
End Sub

Analog gibt es ja noch das MouseDown Ereignis.

Ich möchte für meine Textboxen die Funktionalität dahingehend erweitern, dass auch ein Doppelclick Ereignis mit der linken Maustaste registriert werden kann. Ist so etwas möglich und wenn ja, wie
lautet der Code?

[atilla]

Hallo,

jedes Steuerelement hat verschiedene eigene Ereignisse.

Wenn Du im VBA Editor bist, mach auf der Form einen Doppelklick auf die Textbox.
Es wird das Codefenster geöffnet und Du hat das Grundgerüst für das einfache Change Ereignis.

Las den Cursor innerhalb dieses Codes. Oben im Codefenster siehst Du zwei Dropdownfelder.
Links steht Textbox und rechts Change. Im rechten Dropdown stehen die andere Ereignisse für die Textbox.
Unter anderem das DblClick Ereignis:

Code:

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

[sotaros]

Hallo Attila,

hat super funktioniert. Danke für deine schnelle Antwort.