Как получить значение из кнопки динамического радио

Question

я создаю 3 кнопку радио в частных подразделах, как, например:

For counter As Integer = 0 To rc - 1 

    'controller name Radio button and properties. 
    Dim dynRadio As New RadioButton() 
    Me.Controls.Add(dynRadio) 
    With dynRadio 
     .Name = CStr(ds.Tables("MakeThisNameMeaningful").Rows(counter).Item(0)) 
     .Location = New Point(xAxis, yAxis) 
     .TabStop = False 
     .Text = CStr(ds.Tables("MakeThisNameMeaningful").Rows(counter).Item(0)) 
     .Width = 80 
    End With 

    yAxis = yAxis + 40 
Next 

Радиостанция втянуться в порядке. Итак, у меня есть 3 радиостанции с текстом (результат выбора из db) controller1, controller2, controller3

У меня есть всевозможные и не могу найти что-нибудь в Google. О, я должен упомянуть, что я пытаюсь получить радио значение из другого частного суб. Я хочу сделать по линии:

If controller1.Selected = true then 
    'do stuff 
End if 

Я знаю, что выше неправильно, но не знаете, как определить, какой выбран радиоприемник :(

Cheers, J

Answer 1

Вы можете перебирать ваши кнопки радио в вашей 2-е частной суб.

Dim radios = Controls.OfType(Of RadioButton).AsQueryable() 

For Each r As RadioButton In radios 
    If r.Checked Then 
     'this radio is checked. do something. 
    End If 
Next