studycheckboxlist.aspx.vb

来自「该文件包括了WEB标单控件应用的所有实例代码」· VB 代码 · 共 15 行


Partial Class studyCheckBoxList
    Inherits System.Web.UI.Page

    Protected Sub Check_Clicked(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBoxList1.SelectedIndexChanged
        Message.Text = "<b>Selected programming language(s):</b><br><br>"
        Dim i As Integer
        For i = 1 To CheckBoxList1.Items.Count
            If CheckBoxList1.Items(i - 1).Selected Then
                Message.Text = Message.Text & CheckBoxList1.Items(i - 1).Text & "<br>"
            End If
        Next i
    End Sub
End Class