achtergrondkleur wijzigen

Status
Niet open voor verdere reacties.

Sytse1

Gebruiker
Lid geworden
9 aug 2007
Berichten
584
Office versie
miDer
Het is niet omdat het moet maar meer of het kan

Middels vba wil ik alle textboxen, labels, comboboxen in een form selecteren en dan de BackColor en de ForeColor wijzigen.
Voor de textbox lukt mij dit maar voor de labels enz krijg ik het niet voor elkaar.
Hoe moet dit voor Caption en ComboBox?

Code:
'wijzig de kleur in een textbox
Dim tb As Control
For Each tb In Me.Controls
        If TypeOf tb Is TextBox Then
            tb.BackColor = RGB(255, 250, 250)
            tb.ForeColor = RGB(255, 64, 64)
        End If
Next
 
zo:
Code:
[COLOR="#008000"]'wijzig de kleur in controls[/COLOR]
For Each ctl In Me.Controls
    Select Case TypeName(ctl)
        Case "TextBox"
            ctl.BackColor = RGB(255, 250, 250)
            ctl.ForeColor = RGB(255, 64, 64)

        Case "Label"
            ctl.BackColor = RGB(255, 250, 250)
            ctl.ForeColor = RGB(255, 64, 64)

        Case "ComboBox"
            ctl.BackColor = RGB(255, 250, 250)
            ctl.ForeColor = RGB(255, 64, 64)
        End If
    End Select
Next ctl
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan