Checking separate controls fvrom within a single loop...

Question

Is there any way to programmatically check for one of several individual controls being true: For instance take the following example: I want to allow the user of this program to check a radio button and depending on which radio button is checked the program will average the numbers up to the coresponding sequential text box. I have already validated that text fields are correct in entry and once the radio button that is checked is found any following fields with info in them are to be ignored... Now my dilemma is this...i would like to compact this process down to ta single loop that simply checks for the next radio button in the line for a check-mark very much like an old-style array-string search... Any ideas or tips would be greatly appreciated. thank you and take care... If you have a solution or think of anything please e-mail me at ad0084@aol.com

rdi · Answer

Try putting them in a group box. Then run a for loop against the group box. Private Sub Button10_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles Button10.Click Dim chk As CheckBox Dim i As Integer Dim rdo As RadioButton 'Group box of radio buttons For Each rdo In GroupBox6.Controls If rdo.Checked = True Then i = 0 End If Next 'Group box of checkboxes For Each chk In GroupBox7.Controls If chk.Checked = True Then i = 0 End If Next End Sub

joy.simpson · Answer

Only one radio button in a group can be true. Maybe you mean checkboxes. Here is a simple program that identifies checkboxes that have been checked and displays the result in a label. Hope this helps. Private Sub Button1_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles Button1.Click Dim strok As String strok =  If CheckBox1.Checked = True Then strok = strok + 1  If CheckBox2.Checked = True Then strok = strok + 2  If CheckBox3.Checked = True Then strok = strok + 3  If CheckBox4.Checked = True Then strok = strok + 4  If CheckBox5.Checked = True Then strok = strok + 5  If CheckBox6.Checked = True Then strok = strok + 6  Label1.Text = strok End Sub