?? ex12vb.aspx
字號:
<html>
<head>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, e As EventArgs)
If Not IsPostBack Then
'定義一個ArrayList，然后為其賦值
Dim values As New ArrayList()
values.Add (" 加 ")
values.Add (" 減 ")
values.Add (" 乘 ")
values.Add (" 除 ")
values.Add (" 或 ")
values.Add (" 與 ")
StateSelect.DataSource = values
'為HtmlSelect控件設(shè)置數(shù)據(jù)源
StateSelect.DataBind()
'數(shù)據(jù)綁定
End If
End Sub
Sub SubmitBtn_Click(sender As Object, e As EventArgs)
If (Radio1.Checked = true)
'如果Radio1被選擇，那么為控件HtmlSelect增加新的選項值：“開方”
StateSelect.Items.Add ("開方")
Span1.InnerHtml = "您加入新值: <font color=red Size=5>開方</font>"
End If
If (Radio2.Checked = true)
'如果Radio2被選擇，那么為控件HtmlSelect增加新的選項值：“平方”
StateSelect.Items.Add ("平方")
Span1.InnerHtml = "您加入新值:<font color=red Size=5>平方</font> "
End If
If (Radio3.Checked = true)
'如果Radio3被選擇，那么為控件HtmlSelect增加新的選項值：“消元”
StateSelect.Items.Add ("消元")
Span1.InnerHtml = "您加入新值: <font color=red Size=5>消元</font>"
End If
'如果三個Radio都沒有選中，那么顯示錯誤信息
If Radio1.Checked = false And Radio2.Checked = false And Radio3.Checked = false
Span1.InnerHtml = "請您先選擇上面的Radio再點擊此按鈕"
End if
End Sub
Sub Button1_Click(sender As Object, e As EventArgs)
'移走當(dāng)前的選項內(nèi)容
Span1.InnerHtml = "您移走了選項:<font color=red Size=5>" & StateSelect.Value & "</font>"
StateSelect.Items.Remove(StateSelect.Value)
End Sub
</script>
</head>
<body>
<h3><font face="Verdana">第十二例 HtmlInputRadioButton和 HtmlSelect控件使用</font></h3>
<form runat="server">
選擇一個選項:
<select id="StateSelect" runat="server" />
<BR>
<p>
<input type="radio"
id="Radio1"
name="Mode"
runat="server"/>
開方<br>
<input type="radio"
id="Radio2"
name="Mode"
runat="server"/>
平方<br>
<input type="radio"
id="Radio3"
name="Mode"
runat="server"/>
消元<br>
<p>
<p>
<input type="submit" value="加入選擇選項"
OnServerClick="SubmitBtn_Click" runat="server">
<input type="button" id="Button1" value="移走當(dāng)前的選項"
OnServerClick="Button1_Click" runat="server">
<H5><span id="Span1" runat="server" /></H5>
</form>
</body>
</html>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -