How to concat variable integer in control name in vb.net

Question

0.00/5 (No votes)

See more:

VS2012

Now I have a database and pull out that data and display it to form,i have a sequence of groupbox and radiobuttons, in each groupbox (groupbox1,groupbox2,etc...) there are 2 radio buttons namely rdbtn1Yes and rdbtn1No (then it increment +1 in next Groupbox). now i use for loop to go through every groupboxes and radio buttons. And this is my code:

VB

If sqlds.Tables(0).Rows.Count > 0 Then

        With sqlds.Tables(0).DefaultView.Item(0)

            txtDateCreated.Value = .Item(0).ToString
            txtComments.Text = .Item(1).ToString

            'check column if it contain FALSE/TRUE value
            'then toggle the radiobutton state to TRUE

            'In this part i know there is another/easiest way to checked radio buttons to TRUE value 
            'and this is my code using looping (below):

            If .Item(2) = False Then
                rdbtn1No.Checked = True
            Else
                rdbtn1Yes.Checked = True
            End If

            If .Item(3) = False Then
                rdbtn2No.Checked = True
            Else
                rdbtn2Yes.Checked = True
            End If

            If .Item(4) = False Then
                opt3N.Checked = True
            Else
                opt3Y.Checked = True
            End If
        End With
    End If

SAMPLE CODE FOR LOOPING:

VB

Dim itemNo As Integer
         Dim rdbtnSet As Integer = 1
         Dim grpboxCnt As Integer = 1

          For Each grpbx As GroupBox In Me.Controls.OfType(Of GroupBox)()
             For itemNo = 2 To sqlds.Tables(0).Columns.Count

                 If .Item(itemNo) = True Then
                     rdbtn & rdbtnSet & "Yes".checked = True 'I want to be this way but we know that this is not working or its not the proper way. That is my problem.
                 Else
                     rdbtn & rdbtnSet & "No".checked = True 'I want to be this way but we know that this is not working or its not the proper way. That is my problem.
                 End If

             Next
              rdbtnSet += 1
              grpboxCnt += 1
          Next

Thats all. Thank you in advance!

Posted 15-Aug-13 14:02pm

Uknownymous

Add a Solution

Comments

ZurdoDev 15-Aug-13 21:17pm

What's your question?

Uknownymous 15-Aug-13 21:35pm

check the second code sample (SAMPLE CODE FOR LOOPING) the commented part.

ZurdoDev 15-Aug-13 21:41pm

I don't quite follow exactly what each item is, but you could do something like rdbtn.Checked = rdbtnSet.checked = true to put them all in one line.

Uknownymous 19-Aug-13 4:08am

itemNo is the column index of dataset...

5 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Akbar Ali Hussain · Answer 1 · 2013-08-15T16:12:00

Solution 1

Use "Controls" property of GroupBox to get its child controls (RadioButton in your case) by its name.

((RadioButton)grpbx.Controls["rdbtn1Yes"]).Checked = true

Posted 15-Aug-13 16:12pm

Akbar Ali Hussain

Akbar Ali Hussain · Answer 2 · 2013-08-15T16:12:00

Solution 2

Use "Controls" property of GroupBox to get its child controls (RadioButton in your case) by its name.

((RadioButton)grpbx.Controls["rdbtn1Yes"]).Checked = true

Posted 15-Aug-13 16:12pm

Akbar Ali Hussain

Akbar Ali Hussain · Answer 3 · 2013-08-15T16:12:00

Solution 3

Use "Controls" property of GroupBox to get its child controls (RadioButton in your case) by its name.

((RadioButton)grpbx.Controls["rdbtn1Yes"]).Checked = true

Posted 15-Aug-13 16:12pm

Akbar Ali Hussain

Abhinav S · Answer 4 · 2013-08-15T16:59:00

Solution 4

What you are looking for is an equivalent to control arrays.
Here are some good articles that talk about solutions that are not based on control arrays -
http://msdn.microsoft.com/en-us/library/aa289142%28v=vs.71%29.aspx[^]
The Closest thing to a VB6 control array in VB.NET[^]

Posted 15-Aug-13 16:59pm

Abhinav S

KmgKrishnan · Answer 5 · 2013-08-16T13:35:00

I am not sure what you are exactly trying to do. But, here is my sample code and see if this helps and provide more details on what you need.

I would say name each option/radio button in the group box just to have a common char in the Name. So, it would be easy for you to identify while looping.

VB

Private Sub Groups_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    Display(Me)
End Sub
Private Sub Display(ByVal parent As Control)
    For Each childControl As Control In parent.Controls
        Select Case True
            Case TypeOf (childControl) Is RadioButton
                If childControl.Name.Contains("1") Then
                    DirectCast(childControl, RadioButton).Checked = True
                Else
                    DirectCast(childControl, RadioButton).Checked = False
                End If
            Case TypeOf (childControl) Is GroupBox
                Display(childControl)
        End Select
    Next
End Sub

How to concat variable integer in control name in vb.net

5 solutions

Solution 1

Solution 2

Solution 3

Solution 4

Solution 5

Add your solution here

Preview 0

Existing Members

...or Join us