Changing multiple control's (back/fore)color vb.net

Question

0.00/5 (No votes)

See more:

Hello.

Well, I have a form loaded with lots of (Label/TextBox)s, and i have a color switch option in the form, And I'm using the simple code which is this:

VB

TLab.ForeColor = My.Settings.B
HLine1.BackColor = My.Settings.B
HLine2.BackColor = My.Settings.B
UpdateLog.ForeColor = My.Settings.B

*That's only 4 Controls, I have nearly 90 controls to change.

As you can see I'm not only changing a label's BackColor, But I'm also changing the ForeColor of a diffident label or textbox.

What I have tried:

So i was thinking about a loop or something simple. like the following :D:

VB

Dim Obj = {TLab.ForeColor, HLine1.BackColor, HLine2.BackColor, UpdateLog.ForeColor}
For Each NC In Obj
    NC = My.Settings.B
Next

Thanks in Advance :)

Posted 2-Mar-16 8:51am

Fa3o

Updated 14-Aug-20 8:23am

Add a Solution

3 solutions

Solution 3

Dim rnd as New Random

If Label1.ForeColor = Visible Then
Label1.FolorColor = Invisible
Else
Label1.ForColor = Color.FromArgb(rnd.Next(256), rnd.Next(256), rnd.Next(256))

Posted 14-Aug-20 8:23am

Member 14914654

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Michael_Davies · Accepted Answer · 2016-03-02T09:46:00

You can enumerate the controls in a form without keeping a separate list of objects.

Probably best done as a recursive function as you can have container controls inside container controls and the example below only goes two deep.

VB

For Each x As Control In form1.Controls
           If x.HasChildren Then
           '
           ' Enumerate a containers controls
           '
               For Each z As Control In x.Controls
                       If TypeOf (z) Is CheckBox Then
                           ' Do what you want with a checkbox
                       ElseIf TypeOf (z) Is TextBox Then
                           ' etc.
                       ElseIf TypeOf (z) Is NumericUpDown Then
                           'etc.
                       ElseIf TypeOf (z) Is ComboBox Then
                           ' etc.
                       End If
           else
           '
           ' Not a container control, handle it
           '
              If TypeOf (z) Is CheckBox Then
                     ' Do what you want with a checkbox
              ElseIf TypeOf (z) Is TextBox Then
                     ' etc.
              ElseIf TypeOf (z) Is NumericUpDown Then
                     'etc.
              ElseIf TypeOf (z) Is ComboBox Then
                     ' etc.
              End If
           end if
 Next

FatzBomb · Accepted Answer · 2016-03-03T22:51:00

Michael presents a very good solution. However, you can shorten your code if all of the controls are of a certain type using the OfType(Of Type) parameter. Labels are not Container Controls so the recursive function below is pointless, but you can use it for any control type you want.

VB

' Put function in a sub using the parent control as a parameter so that the routine may be used for other objects. e.g. Pass Panel1 as MainParent and it will only affect the controls inside Panel1
Public Sub ChangeLabelColors(ByRef MainParent as Control)

' Check if there are any controls to change
If Not MainParent.HasChildren Then Exit Sub

'Use OfType to only enumerate Label controls
For Each x as Label in MainParent.Controls.OfType(Of Label)
    ' Recursively call the function for child container controls
    If x.HasChildren Then ChangeLabelColors(x)
    
    ' Assuming you are using Michael's tag suggestion indication not to change that control's color (Very good idea), this will skip controls with the .Tag "Don't Change Me"
    If Not x.Tag = "Don't Change Me" Then 
        x.BackColor = My.Settings.MCB
        x.ForeColor = My.Settings.MCF
    End If
Next

End Sub

Simply call:

VB

ChangeLabelColors(Me)

Alternatively, this can be modified to allow you to filter the type as well. This is basically Michael's solution that now allows recursion. I also used Select Case by choice, I believe it be faster (Not sure about that)

VB

Public Sub ChangeControlColors(ByRef MainParent as Control)
 
If Not MainParent.HasChildren Then Exit Sub
 
For Each x as Control in MainParent.Controls()

    Select Case True
        Case TypeOf x Is Label, TypeOf x is Checkbox, TypeOf x is Panel
            If x.HasChildren Then ChangeControlColors(x) 
            If Not x.Tag = "Don't Change Me" Then
                x.BackColor = My.Settings.MCB
                x.ForeColor = My.Settings.MCF
            End If
    End Select
Next
 
End Sub

Changing multiple control's (back/fore)color vb.net

3 solutions

Solution 1

Solution 2

Solution 3

Add your solution here

Preview 0