Как получить отмеченные элементы в контрольном списке

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