<html>
<head>
<script language="VB" runat="server">
Sub Button1_Click(sender As Object, e As EventArgs)
Dim s As String = "选定项:<br>"
Dim i As Int32
For i = 0 to Check1.Items.Count-1
If Check1.Items(i).Selected Then
' 列出选定的项
s = s & Check1.Items(i).Text
s = s & "<br>"
End If
Next
Label1.Text = s
End Sub
Sub chkLayout_CheckedChanged(sender As Object, e As EventArgs)
If chkLayout.Checked = true Then
Check1.RepeatLayout = RepeatLayout.Table
Else
Check1.RepeatLayout = RepeatLayout.Flow
End If
End Sub
Sub chkDirection_CheckedChanged(sender As Object, e As EventArgs)
If chkDirection.Checked = true Then
Check1.RepeatDirection = RepeatDirection.Horizontal
Else
Check1.RepeatDirection = RepeatDirection.Vertical
End If
End Sub
</script>
</head>
<body>
<h3><font face="宋体">CheckBoxList 示例</font></h3>
<form runat=server>
<asp:CheckBoxList id=Check1 runat="server">
<asp:ListItem>项 1</asp:ListItem>
<asp:ListItem>项 2</asp:ListItem>
<asp:ListItem>项 3</asp:ListItem>
<asp:ListItem>项 4</asp:ListItem>
<asp:ListItem>项 5</asp:ListItem>
<asp:ListItem>项 6</asp:ListItem>
</asp:CheckBoxList>
<p>
<asp:CheckBox id=chkLayout OnCheckedChanged="chkLayout_CheckedChanged" Text="显示表布局" Checked=true AutoPostBack="true" runat="server" />
<br>
<asp:CheckBox id=chkDirection OnCheckedChanged="chkDirection_CheckedChanged" Text="水平显示" AutoPostBack="true" runat="server" />
<p>
<asp:Button id=Button1 Text="提交" οnclick="Button1_Click" runat="server"/>
<p>
<asp:Label id=Label1 font-name="宋体" font-size="9pt" runat="server"/>
</form>
</body>
</html>