Solved

control arrays in vb 2005

Posted on 2006-06-27
5
216 Views
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
    Next
End Sub

thanks

Max
0
Comment
Question by:maxgall
  • 2
  • 2
5 Comments
 
LVL 48

Accepted Solution

by:
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
    Next
End Sub
0
 
LVL 19

Expert Comment

by:arif_eqbal
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

    Controls.Item(str)

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

0
 

Author Comment

by:maxgall
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 = date.now()
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.



0
 
LVL 48

Expert Comment

by:AlexFM
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.
0
 

Author Comment

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

thanks vm
0

Featured Post

Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Introduction When many people think of the WebBrowser (http://msdn.microsoft.com/en-us/library/2te2y1x6%28v=VS.85%29.aspx) control, they immediately think of a control which allows the viewing and navigation of web pages. While this is true, it's a…
Creating an analog clock UserControl seems fairly straight forward.  It is, after all, essentially just a circle with several lines in it!  Two common approaches for rendering an analog clock typically involve either manually calculating points with…
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

762 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

22 Experts available now in Live!

Get 1:1 Help Now