Change backcolor of textboxes if they are a certain color

Question

0.00/5 (No votes)

See more:

I have 40 textboxes inside panels, spread over 4 tabpages in a tabcontrol, I need to be able to click my KennelStatus button and if the textbox has been changed to orange by the user, then it changes to CadetBlue.

I have tried the attached code, which I thought should work, but nothing happens. Is it because the textboxes are in panels maybe??

I know that I can do each textbox seperately, and it works, but there has to be an easier way than writing it out separately for 40 textboxes.
Any help would be much appreciated

Diane

What I have tried:

VB

Private Sub KennelStatus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KennelStatus.Click

Dim a As Control

        For Each a In Me.TabControl1.Controls

            If TypeOf a Is TextBox Then
                If a.BackColor = Color.Orange Then
                    a.BackColor = SystemColors.CadetBlue
                End If

            End If


        Next

End Sub

I know the following works for each textbox separately:

VB

Private Sub KennelStatus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KennelStatus.Click

If Kennel1StatusTbox.BackColor = Color.Orange Then
            Kennel1StatusTbox.BackColor = SystemColors.CadetBlue
        End If
End sub

Posted 16-Apr-18 21:41pm

Member 13138523

Updated 16-Apr-18 22:07pm

RickZeeland

v2

Add a Solution

1 solution

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)

OriginalGriff · Answer 1 · 2018-04-16T22:07:00

If your textboxes are inside any other control - and a Panel counts - then the "outer control" acts as a Container, and has it's own separate Controls collection that you need to search as well.
The simplest solution is just to recurse:

Private Sub ScanContainer(ByVal controls As Control.ControlCollection)
    For Each c As Control In controls
        If TypeOf c Is TextBox Then
            ...
        End If

        If c.Controls IsNot Nothing AndAlso c.Controls.Count > 0 Then
            ScanContainer(c.Controls)
        End If
    Next
End Sub