Looping Captions and Option Buttons

Hi,

I am new to programming and am trying to develop a GIS based application. Very simple, I have code to copy text into an attribute table. I have a form which has several option boxes with captions of different attributes, I need to be able to produce a loop code to discover which option buttons value=true and for each of these to store the caption as a string into a predefined string (mytext) seperated by a comma.

So I have 4 optionbuttons (Optionbutton1 - OptionButton4)

This is as far as I have got...

Dim mytext as String

For x = 1 To 4 'x being the number after the optionbox name
If Optionbuttons(x).value = True Then 'this line doesn't work as it wont recognise the control numbers with x as a suffix
(Store caption into mytext with comma at the end)
End If
Optionbox(x).Value = False

I would appreciate any help, as I said I am a beginner and sorry if I am wasting anyones time.

Many Thanks

Craig

You're not wasting anyone's time, stop apologising...

I'd suggest you make use of a For Each loop here. Inside the For Each loop you can determine if the current object is an option button or not, and then get or set the text accordingly

Hope this helps

Code:

---

  Dim sb As New System.Text.StringBuilder
        For index As Integer = 1 To 4
            Dim rbutton() As Control
            rbutton = Me.Controls.Find("Radiobutton" & index.ToString, True)
            'Button Found
            If rbutton.Length = 1 Then
                'Check if it is Radio Button
                If rbutton(0).GetType.Name.ToLower = "radiobutton" Then
                    Dim rb As RadioButton = TryCast(rbutton(0), RadioButton)
                    If Not rb Is Nothing AndAlso rb.Checked = True Then
                        'Append the Text
                        sb.AppendLine(rb.Text)
                        'Make it uncheck
                        rb.Checked = False
                        rb.Dispose()
                        rb = Nothing
                    End If
                End If
               
            End If
        Next
        'display the string
        MessageBox.Show(sb.ToString)

---

BTW : Welcome to Forums

Thanks for your help so far, I think the VB edition I am using is a little old now, VB 6.5 so some of the code isn;t recognised. I've put it into 2008 and it seems to be working however there a few issues, I need to be able to select more than one radio button and for the captions to be displayed in a textbox for instance.

So close....