📄 listbox.aspx
字号:
<html>
<script language="VB" runat=server>
Sub Page_Load()
If rbtnMulti.Checked
list1.SelectionMode=ListSelectionMode.Multiple
Else
list1.SelectionMode=ListSelectionMode.Single
End If
If Not IsPostBack
Dim values as ArrayList=new ArrayList()
values.add("摩托罗拉")
values.add("索尼爱立信")
values.add("诺基亚")
values.add("三星")
list1.datasource=values
list1.databind
Else
Dim i as int32
Dim tmpStr as String
For i=0 to list1.items.count-1
If list1.items(i).selected
tmpStr=tmpStr & " " & list1.items(i).text
End If
Next
If tmpStr is Nothing
tmpStr="nothing!"
End If
lblTxt.text="您选择了: " & tmpStr
End If
End Sub
</script>
<body >
<H3>使用BoxList控件<Hr></H3>
<center>
<form method="POST" runat=server>
请选择
<br>
<asp:ListBox id="list1" runat=server/>
<p>
<asp:RadioButton id="rbtnSingle" Checked=True text="单项选择"
groupname="group1" runat=server />
<asp:RadioButton id="rbtnMulti" text="多项选择"
groupname="group1" runat=server />
<br>
<asp:button text="提交" runat=server />
<hr>
<asp:label id="lblTxt" runat=server />
</form>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -