TextBox aktiv Farbe

Forumthread: TextBox aktiv Farbe

TextBox aktiv Farbe

13.01.2005 16:01:33

walter

Hallo,
wie kann ich die aktive TextBox farbig gestalten.
Immer wenn der Focus drauf ist, soll Rot (hell) erscheinen.
Wenn die TextBox verlassen wird soll wider weiß sein.
Gruß walter

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: TextBox aktiv Farbe

13.01.2005 16:11:01

Josef Ehrensberger
AW: TextBox aktiv Farbe

13.01.2005 16:23:39

walter
AW: TextBox aktiv Farbe

13.01.2005 16:31:15

Josef Ehrensberger
Bitte Info...

13.01.2005 16:47:43

walter
AW: Bitte Info...

13.01.2005 19:44:12

Josef Ehrensberger
DANKE

13.01.2005 19:52:55

walter
AW: TextBox aktiv Farbe

13.01.2005 16:16:45

Willie
Danke

13.01.2005 16:25:07

walter

AW: TextBox aktiv Farbe

13.01.2005 16:11:01

Josef Ehrensberger

Hallo Walter!
Das geht zB. so:


Private Sub TextBox1_Enter()
TextBox1.BackColor = &HC0C0FF
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.BackColor = &H80000005
End Sub

Gruß Sepp

AW: TextBox aktiv Farbe

13.01.2005 16:23:39

walter

Hallo Sepp,
herzlichen Dank für die Info.
Ich habe allerdings jede Menge (15 ) TextBoxen,
wie geht das denn ?
Gruß walter

AW: TextBox aktiv Farbe

13.01.2005 16:31:15

Josef Ehrensberger

Hallo Walter!
Über ein Klassenmodul!
Ist bei "VBA nur mit Rekorder" aber nicht so einfach.

Gruß Sepp

Bitte Info...

13.01.2005 16:47:43

walter

Hallo Sepp,
wie muß ich das machen ?
Alle TextBoxen etv. auch ComBoBoxen dann einsetzen ?
Gruß Walter

AW: Bitte Info...

13.01.2005 19:44:12

Josef Ehrensberger

Hallo Walter!
Klassenmodul ist nicht, weil dort das Ereignis "Enter" bzw. "Exit" nicht zur verfügung steht!
Abkürzen kannst du das aber zB. so:


Private Sub TextBox1_Enter()
txt_F TextBox1
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txt_N TextBox1
End Sub
Private Sub TextBox2_Enter()
txt_F TextBox2
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txt_N TextBox2
End Sub
Private Sub TextBox3_Enter()
txt_F TextBox3
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txt_N TextBox3
End Sub
Private Sub TextBox4_Enter()
txt_F TextBox4
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txt_N TextBox4
End Sub
Private Sub txt_F(box As MSForms.Control)
box.BackColor = RGB(255, 192, 192)
End Sub
Private Sub txt_N(box As MSForms.Control)
box.BackColor = RGB(255, 2552, 255)
End Sub

Gruß Sepp

DANKE

13.01.2005 19:52:55

walter

Hallo Sepp,
Danke das ist ein sehr gutes Beispiel !!!!
Walter

AW: TextBox aktiv Farbe

13.01.2005 16:16:45

Willie

Hallo Walter
So funktioniert es! Es wird rot wenn die Textbox Aktiv ist


Private Sub TextBox1_Enter()
TextBox1.BackColor = RGB(255, 0, 0)
End Sub

und wenn du sie verlässt, dann wird sie wieder weiss


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.BackColor = RGB(255, 255, 255)
End Sub

Gruß
Willie

Danke

13.01.2005 16:25:07

walter

Hallo Willie,
Danke für die schnelle Info.
Wie bei Sepp habe jedoch 15 TextBoxen auf der UF kann man das gemeinsam regeln ?
Gruss Walter

Beliebteste Forumthreads (12 Monate)

Forumthread: TextBox aktiv Farbe

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread