[02/03] Accessing controls dynamically

[pvbangera]

Hi,

Say I have 5 textboxes on my form (TextBox1, TextBox2, ...TextBox5).

Now I want to access them using their names:

Something like me.Controls("TextBox" & n.ToString).Text.

Is there any way out?

[josep]

Check this code

Dim c As Control
 
        For Each c In Me.Controls
            If TypeOf c Is TextBox AndAlso CType(c, TextBox).Name = "textbox1" Then
                'you find it just do whatever you want
                CType(c, TextBox).Text = "anything"
            End If
        Next

Hope this helps

[pvbangera]

I need something like this

i = 0
Do While rdr.Read
  me.controls("txtMyTextBox" & i.ToString).Text = "Some text"
  i += 1
Loop

If TypeOf c Is TextBox AndAlso CType(c, TextBox).Name = "textbox1" Then

If I know the name of the textbox then I could have easily written it as me.TextBox1.

[josep]

You have the name property on the controls collection, but there is no way to call an object like you are want, just a loop on all controls checking the name of the desired control once you get, do the action.

[jmcilhinney]

Argh! It hurts me physically every time I see this question. Put you controls in an array and then access them by index:

Private textBoxes As TextBox()
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.textBoxes = New TextBox() {Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.TextBox5}
End Sub
 
Private Sub PopulateTextBoxes()
    For i As Integer = 0 To Me.textBoxes.GetUpperBound(0)
        Me.textBoxes(i).Text = "TextBox" & (i + 1)
    Next i
End Sub

[pvbangera]

This is really cool buddy. Sorry for hurting you. But I still miss VB 6 control arrays, wherein we easily assign index to them and use it accordingly.

Anyways....thx a tonne.