Solved

Loop through Controls in .NET

Posted on 2003-10-28
5
189 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

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

856 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