listbox.aspx

来自「ASP.NET精彩编程百例」· ASPX 代码 · 共 57 行

ASPX
57
字号
<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 + =
减小字号Ctrl + -
显示快捷键?