VB.NET: filling a sequence named textboxes using for next.

[thelner]

Hi, quick question.

I have numbered labels and i want to fill the text using for next.

txt1
txt2
.
.
.
.
.
txt15


i tried using

dim x as integer
for x=i to 15
txt(x).text = x and txt[x].text = x
next

Unfortunately it doesnt work.

Can somebody please tell me how to do it right. Thanks in advance.

[nev]

dim x as integer = 1

for each ctl as control in frmMain
if typeof ctl is textbox then
ctl.name = "textboxno" & x
x += 1
end if
next

[thelner]

Thanks nev ive edited t a bit and it works :D

Dim x As Integer
For x = 1 To 15
    For Each ctl As Control In Me.Controls
        If TypeOf ctl Is TextBox Then
            If ctl.Name = "txt" & x Then
                ctl.Text = x
            End If
        End If
    Next

Now the problem is it doesnt work on textboxes inside a groupbox.

What's the work around for this?

[QVeen72]

Hi,

I think, you are using VB.net.. Check this Code :

 
Dim i As Integer
Dim ctl As System.Windows.Forms.TextBox
For Each ctl In GroupBox1.Controls()
   i = i+1
   ctl.Text = i
Next
 

Regards
Veena

[nev]

Hello thelner mah boy! Have you tried queen's code? The groupbox control is a type of container control so instead of reading the controls in the form container, read it in form.groupbox container :-)

The code reads like

For each control inside this container...
'do this
Next

[thelner]

Woot!!! Thanks qveen72! Everything works now.

        Dim x As Integer
 
        For x = 1 To 15
            For Each grp As GroupBox In Me.Controls
                If grp.Name = "grp" & x Then
                    For Each ctl As Control In grp.Controls
                        If TypeOf ctl Is TextBox Then
                            ctl.Text = x
                        End If
                        If TypeOf ctl Is RadioButton Then
                            If ctl.Name = "rb" & x & "a" Then
                                ctl.Text = "a"
                            ElseIf ctl.Name = "rb" & x & "b" Then
                                ctl.Text = "b"
                            ElseIf ctl.Name = "rb" & x & "c" Then
                                ctl.Text = "c"
                            ElseIf ctl.Name = "rb" & x & "d" Then
                                ctl.Text = "d"
                            End If
                        End If
                    Next
                End If
            Next
        Next

[thelner]

Next question, what if i want to check if those radio buttons (see last post) is checked?

ctl.checked = True doesnt work.

[QVeen72]

Hi,

use this :

ctl.Value = True

or

ctl.Checked = True


Regards
Veena

[thelner]

Thanks for the reply but it still doesnt work. Value and checked doesnt show after ctl.

[thelner]

Figured it out. :)

DirectCast(ctl, RadioButton).Checked

Thanks all.