Hallo,

ich bins mal wieder.

Ich will alle meine Textboxen ausgrauen wenn diese nicht leer sind. Das habe ich auch über eine Schleife gelöst. Nur das Schreibfeld bleibt in der vordefinierten Farbe (bei mir weiß) ich hätte aber gerne grau gehabt. Über "textbox.BackColor = vbGray" würde das auch gehen aber es verträgt sich nicht mit "textbox.Enable = false" dann springt die Hintergrundfarbe der Textbox wieder auf die vordefinierte Farbe. Gibts irgend eine Einstellung die das ändert oder ist diese Kombination schlicht weg nicht möglich ?

Hier die Funktion:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Function TextBoxAusgrauen(Setzen As Boolean) 'Setzen = True zum ausgrauen     Dim cont As control     For Each cont In Me.Controls         If TypeOf cont Is TextBox Then             If IsNull(cont) Or cont = "" Then                 cont.BackColor = 12632256  'Hell Grau                 cont.Enabled = Not Setzen             Else                 cont.BackColor = vbWhite                 cont.Enabled = Setzen             End If         End If     Next End Function

Danke schon mal

MfG Alex

Hallo

Setze die TextBox die Du auf Enabled False setzen willst auf einen Panel.
Lasse die TextBox auf Enabled True und setze dafür das Panel auf Enabled False.
Die TextBox wird dadurch auch gesperrt, die Farbe bleibt aber frei wählbar.