Makro starten, wenn Textbox in Frame aktiviert

Hallo liebe Forumsgemeinde,
ich hab da mal wieder ein Problem und bislang keine Lösung gefunden dafür. Daher meine große Hoffnung hier wieder Hilfe zu finden....:
Ich möchte gerne, dass, wenn innerhalb eines Frames ein beliebiges Steuerelement (5 Textboxes) aktiviert worden ist (per Setfocus oder per Maus), die Special-Effect Eigenschaft des Frames sich ändert. Mit den Ereignissen des Frames bekomme ich das nicht wirklich hin...lediglich mit dem Afterupdate-Ereignis der Textboxes, aber das ist mir zu spät. Ich möchte dass das Ereignis sofort eintritt, in dem Moment, wo die Textbox angewählt wird...Geht das? Habe mal von der Funktion "getfocus" gelesen, aber da komme ich nicht so wirklich weiter mit.
Kann mir wer helfen?
Gruß
Olli

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Olli!
Ohne eigene Klasse geht's Z.B. so.

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub Frame1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TypeOf Frame1.ActiveControl Is MSForms.TextBox Then TB_Exit Frame1.ActiveControl
End Sub

Private Sub TextBox1_Enter()
TB_Enter TextBox1
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TB_Exit TextBox1
End Sub

Private Sub TextBox2_Enter()
TB_Enter TextBox2
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TB_Exit TextBox2
End Sub

Private Sub TextBox3_Enter()
TB_Enter TextBox3
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TB_Exit TextBox3
End Sub

Private Sub TextBox4_Enter()
TB_Enter TextBox4
End Sub

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TB_Exit TextBox4
End Sub

Private Sub TextBox5_Enter()
TB_Enter TextBox5
End Sub

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TB_Exit TextBox5
End Sub

Private Sub TextBox6_Enter()
TB_Enter TextBox6
End Sub

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TB_Exit TextBox6
End Sub

Private Sub TB_Enter(ByRef txtBox As MSForms.TextBox)
txtBox.SpecialEffect = fmSpecialEffectRaised
End Sub

Private Sub TB_Exit(ByRef txtBox As MSForms.TextBox)
txtBox.SpecialEffect = fmSpecialEffectSunken
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Makro starten, wenn Textbox in Frame aktiviert

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread