Ch08-03-05.aspx Web控件的CheckBoxList控件
' 用户单击“确定”按钮的事件处理程序
Sub Button_Click(obj As Object, e As EventArgs)
Dim strA As String
Dim I as Integer
For I = 0 To Peripheral.Items.Count-1
If Peripheral.Items(I).Selected = True Then
strA = strA & Peripheral.Items(I).Text & ""
End If
Next
strA = "可以让计算机运作的基本配置为:1.键盘、" & _
"2.液晶显示器、5.鼠标" & _
"用户选择:" & strA
Show1.InnerHtml = strA
End Sub
请选择可以让计算机运作的基本配置:
RepeatLayout="Flow" Runat="Server" >
OnServerClick="Button_Click" />