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

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way. I've always enjoyed working with graphics, but it's never too clever to re-invent …
Since .Net 2.0, Visual Basic has made it easy to create a splash screen and set it via the "Splash Screen" drop down in the Project Properties.  A splash screen set in this manner is automatically created, displayed and closed by the framework itsel…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…
How to Install VMware Tools in Red Hat Enterprise Linux 6.4 (RHEL 6.4) Step-by-Step Tutorial

733 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