如何获取checklistbox中勾选的项目

Question

我有一个清单框，它的项目来自我的数据库（tbl_Section），因此它加载所有部分编号（主键）。我有 5 个部分编号，其中 3 个将只分配给一名老师。我正在考虑使用 While 语句，但我不知道如何使用。

为了让您更简单，这就是我需要做的：

While //index(number) is checked
      //do something
Else (i know it should not be ELSE, but i dont know what keyword is to be used)
      //do something
End While

多谢！

Answer 1

您想要做的是遍历复选框中的每个项目。对于每个项目，您检查是否已选中，然后采取相应的操作：

'We will run through each indice
For i = 0 To CheckedListBox1.Items.Count - 1
    'You can replace As Object by your object type
    'ex : Dim Item As String = CType(CheckedListBox1.Items(i), String)
    Dim Item As Object = CheckedListBox1.Items(i)

    'We ask if this item is checked or not
    If CheckedListBox1.GetItemChecked(i) Then
        'Do something if Item is checked
    Else
        'Do something else if Item is not checked
    End If
Next