5-4.aspx

来自「asp做的新闻系统」· ASPX 代码 · 共 82 行

ASPX
82 行
字号 
<html>
 <head>
 <title>
 ListBox控件实例
 </title>
 </head>

  <script language="VB" runat=server>
  Sub Page_Load()

  '如果选中黑体复选控件，把文本标签的字体设为黑体
  If chkBold.Checked 
        lblTxt.font.bold=True
  Else
        lblTxt.font.bold=False
  End If

  '如果选中多选的单选控件，那么则把列表框设为允许多选
  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

  '对列表框list1的items集合轮询，根据其Selected属性，判断是否被选中
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="未选择"
  End If

  lblTxt.text="您选中的项为: " & tmpStr

  End If

End Sub
  </script>

   <body >
     <center>
      <h2>ListBox控件实例</h2>
      <hr>	
      <form method="POST" runat=server>
		请选择城市
<br>
	   <asp:ListBox id="list1" runat=server/>
<br>	
        <asp:CheckBox id="chkBold" text="黑体" runat=server />
<br>
        <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>

5-4.aspx - 源码说明

本页面展示了「asp做的新闻系统」中的 5-4.aspx 源码文件，采用 ASPX 编程语言编写，共 82 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?