Ch07-05-03.aspx 选项按钮控件
' 用户单击确定按钮的处理事件
Sub Button_Click(obj As Object, e As Eventargs)
If CreditCard.Checked Then
Show1.InnerHTML = CreditCard.Value & ""
End if
If Postal.Checked Then
Show1.InnerHTML = Postal.Value & ""
End if
If ATM.Checked Then
Show1.InnerHTML = ATM.Value & ""
End if
Show1.InnerHTML = "消费者选择的付款方式为:" & _
Show1.InnerHTML
End sub
选择付款方式:
Runat="Server" Value="信用卡">信用卡
Runat="Server" Value="邮政电汇">邮政电汇
Runat="Server" Value="ATM转账">ATM转账
OnClick="Button_Click" Runat="Server" />