Solved

Loop through Controls in .NET

Posted on 2003-10-28
5
186 Views
Last Modified: 2010-05-01
You would think this would be the easiest task to do in VB .Net, but the old way of doinf thinsg does not seem to work
And do you reckon I can find it anywhere on the Microsoft Site?

Can someone tell me how I loop through all Textboxes on a Form to simply empty them.
The textboxes are inside a TabPage

Wayne
0
Comment
Question by:wlawson
  • 3
  • 2
5 Comments
 
LVL 3

Expert Comment

by:bacon7181
ID: 9639216
I just recently had to loop through all the controls on a form for something.

This is just one way that you could implement this loop, this uses a recursive function.

    Public Sub DoTheLoop()
        LoopThroughAllControls(Me.Controls)
    End Sub

    Private Sub LoopThroughAllControls(ByVal controls As ControlCollection)
        Dim c As Control
        For Each c In controls
            If GetType(TextBoxBase).IsInstanceOfType(c) Then
                ' c is a textbox based control, do something with it
            End If
            ' loop through sub controls
            LoopThroughAllControls(c.Controls)
        Next
    End Sub
0
 

Author Comment

by:wlawson
ID: 9639282
Thanks for that it works well for all Controls on the actual form, but it will not work for anything within the TabPage Control.

Wayne
0
 

Author Comment

by:wlawson
ID: 9639341
I can see what your code is trying to do and if feed the TabControl into your Sub Rountine I can count the Controls on the page, but when I try to loop through the controls I get an error "Specific Cast is not valid"
0
 
LVL 3

Accepted Solution

by:
bacon7181 earned 50 total points
ID: 9642965
Try this one:


    Private Sub LoopThroughAllControls(ByVal parentControl As Control)
        Dim c As Control

        ' Make sure there are children to iterate over
        If Not c.HasChildren Then
            Return
        End If

        For Each c In parentControl.Controls
            ' Find children of desired type
            If GetType(TextBox).IsInstanceOfType(c) Then
                ' c is a textbox based control, do something with it
                c.Text = "Howdy"
            End If
            ' If this control also has children
            If c.HasChildren Then
                ' loop through sub children
                LoopThroughAllControls(c)
            End If
        Next
    End Sub
0
 

Author Comment

by:wlawson
ID: 9646597
Top Shelf ... Worked a treat
0

Featured Post

Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

Join & Write a Comment

Introduction While answering a recent question (http://www.experts-exchange.com/Q_27402310.html) in the VB classic zone, I wrote some VB code in the (Office) VBA environment, rather than fire up my older PC.  I didn't post completely correct code o…
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

757 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now