Schriftfarbe bei deaktivierten Feldern
21.01.2015 11:53:54
Peter
ich bin (dank eurer Hilfe) mit meinem Userform schon recht weit. Allerdings habe ich ein kosmetisches Problem.
Wenn eine TextBox deaktiviert wurde, wird der Inhalt eindrücklich, aber schlecht leserlich, in grau dargestellt. Ich habe nun versucht dies mit obj.ForeColor = RGB(0, 0, 0) zu ändern:
Private Sub Bearbeiten()
'Bearbeitung der Felder aktivieren/deaktivieren. Hierzu wird in den entsprechenden
'Routinen die Variable blnAktiv auf FALSE (deaktiviert) bzw. TRUE (aktiviert) gesetzt.
Dim obj As Object
Dim i As Integer
'Namen für Optionsschaltflächen einlesen
For Each obj In Me.Controls
If Left(TypeName(obj), 7) = "TextBox" Or Left(TypeName(obj), 12) = "OptionButton" Then
i = i + 1
If blnAktiv = True Then
obj.Enabled = True
obj.Locked = False
Else
obj.Enabled = False
obj.Locked = True
obj.ForeColor = RGB(0, 0, 0)
End If
End If
Next obj
End Sub
Gruß,
Peter