Показать, какой переключатель выбран

У меня возникли проблемы с отображением 3 переключателей в 1 ярлыке, на котором выбран переключатель, поэтому у меня есть 3 переключателя,

Названия радиокнопок:

Single
Season
Flex

поэтому, если выбрана радиокнопка 1, отображается в lblReceiptAns.Text = "Option: ",

Select Case True
  Case radSingle.Checked
    Pricez = CDbl(txtTickets.Text) * SINGLETICKETS
    TotalPricce = Pricez
  Case radSeason.Checked
    Pricez = CDbl(txtTickets.Text) * SEASONTICKCETS
    TotalPricce = Pricez
  Case radFlexPack.Checked
    Pricez = CDbl(txtTickets.Text) * FLEXPACK
    TotalPricce = Pricez
End Select

If txtVenue.Text = "STADIUM" Then
  lblReceiptAns.Visible = True
  lblReceiptAns.Text = "Option: " & 
Else

button radio-button vb.net
person iks lake    schedule 15.11.2012    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Я бы создал новую строковую переменную на уровне модуля - скажем, RadioButtonSelected, а затем установил ее значение в модуле RadioButton_CheckChanged.

Тогда у вас просто есть:

lblReceiptAns.Text = "Option: " & RadioButtonSelected
person John Bustos    schedule 15.11.2012