0

ラジオボタンが選択されている1つのラベルに3つのラジオボタンを表示するのに問題があるため、3つのラジオボタンがあります。

ラジオボタン名:

Single
Season
Flex

そのため、lblReceiptAns.Text = "Option: " に表示されるラジオ ボタン 1 が選択されている場合、

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
4

1 に答える 1

1

新しいモジュールレベルの文字列変数を作成します-言うRadioButtonSelected、そしてその値をRadioButton_CheckChangedモジュールに設定します。

次に、あなたは単に持っています：

lblReceiptAns.Text = "Option: " & RadioButtonSelected
于 2012-11-15T22:35:41.373 に答える