control arrays in vb 2005

Posted on 2006-06-27
Last Modified: 2010-04-23
In VB 6 or earlier I have used control arrays before. I understand they are not supported anymore in vb 2005.
I have tried to look the workings of it up but still have a problem accessing an individual control by index.

I have 6 textboxes withing a tablelayout. In VB 6 I would have created a control array and accessed the contain like below:

Dim i as integer = 4   ' number comes from some other code
textbox(i).text = "some Text"

How can I do this in vb 2005.

The code below lets me change all of my textboxes but I am struggling if I want to change the text for only one of the textboxes like above.

Private Sub ClearText(ByVal container As Control)
    Dim ctrl As Control
    For Each ctrl In container.Controls
        If TypeOf (ctrl) Is TextBox Then
            ctrl.Text = "some text"
        End If
End Sub


Question by:maxgall
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
LVL 48

Accepted Solution

AlexFM earned 250 total points
ID: 16990669
Private Sub SetText(ByVal textBoxNumber as Integer, ByVal text as String)
    Dim ctrl As Control
    Dim n As Integer = 0

    For Each ctrl In container.Controls
        If TypeOf (ctrl) Is TextBox Then
            if ( n = textBoxNumber ) Then
                ctrl.Text = text
                Exit Sub
            End If
            n = n + 1
        End If
End Sub
LVL 19

Expert Comment

ID: 16990753
Hi maxgall
VB6 gave a good visual way of creating control array, and we used to access it using the index because they all had the same Name
However in .NET we do not have more than one control with the same name, so earlier we neede to know the index to access the control now we need to know the Name
So if you know the name of the control instead of
     Dim i as integer = 4   ' number comes from some other code
you would have
     Dim str as String= "Txt1"   ' Name comes from some other code
Then you can access it like this


so you can have     Controls.Item(str).Text = "Some New value"


Author Comment

ID: 16990980
Ok thanks vm bit confused now not sure if I can use string. The easiest is probably to show you what I need. see below:

Dim isToday =
Dim intDayofWeek as integer = istoday.dayofWeek     ' this returns integer

textbox(intDayofWeek).text = "some text"

I think it was as easy as that before. What would you recommend I do for this example please.

LVL 48

Expert Comment

ID: 16990991
You can use function from my first post:

SetText(intDayofWeek - 1, "some text")

SetText uses 0-based indexing, you can change this if you want.

Author Comment

ID: 16991144
I have allocated the points to AlexFM as that solution works fine for me and was the first.

thanks vm

Featured Post

Revamp Your Training Process

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.

Question has a verified solution.

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

Article by: jpaulino
XML Literals are a great way to handle XML files and the community doesn’t use it as much as it should.  An XML Literal is like a String ( Literal, only instead of starting and ending with w…
Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
If you're a developer or IT admin, you’re probably tasked with managing multiple websites, servers, applications, and levels of security on a daily basis. While this can be extremely time consuming, it can also be frustrating when systems aren't wor…
Monitoring a network: why having a policy is the best policy? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the enormous benefits of having a policy-based approach when monitoring medium and large networks. Software utilized in this v…

729 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