Visual Basic 2008 中 checkedlistbox控件用法

Public Class Form3

    Private Sub 载入数据_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 载入数据.Click
        Dim i As Integer
        For i = 1 To 10
            CheckedListBox1.Items.Add(i)
        Next
    End Sub

    Private Sub 显示选中_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 显示选中.Click
        Dim i As Integer
        For i = 0 To CheckedListBox1.Items.Count - 1
            If CheckedListBox1.GetItemChecked(i) Then
                MsgBox(CheckedListBox1.Items(i))
            End If
        Next
    End Sub
End Class

 

精典：

显示选中的项目

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For i = 0 To CheckedListBox1.CheckedItems.Count - 1
            MsgBox(CheckedListBox1.CheckedItems(i))
        Next
    End Sub