✔ BackColor Problem

[xaelze]

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:

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

 

[wincnc]

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.