2012-11-15 204 views
0

遇到一些麻烦显示在1个标签3个单选按钮,在其上选择单选按钮,所以我有3个单选按钮,显示哪个单选按钮选择

收音机按钮名称:

Single 
Season 
Flex 

所以如果单选按钮1中选择显示在lblReceiptAns.Text =“选项:”,

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 

回答

1

我将创建一个新的模块级字符串变量 - 说RadioButtonSelected,然后将其设置在吨值他RadioButton_CheckChanged模块。

然后你只需要:

lblReceiptAns.Text = "Option: " & RadioButtonSelected