Как я могу зеркалировать отмеченные элементы из одного CheckedListBox другому?

Question

У меня есть 2 элемента управления контрольным списком и вы хотите, чтобы элементы во втором элементе управления отображали состояние, указанное в первом. Например:

Checklistbox1 = ЯБЛОКО, MANGGO, банановый, клубничный, виноградный

Затем я проверил manggo и виноград.

checklistbox2 = 0,1,0,0,1

Как я могу идти об этом?

Answer 1

Это должно выполнить то, что вы хотите. Обратите внимание, что если у вас есть событие CheckedListBox2_SelectedIndexChanged, вы можете получить неожиданные результаты, так как этот код вызовет его.

Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CheckedListBox1.SelectedIndexChanged 
    Dim i As Integer 
    For i = 0 To CheckedListBox2.Items.Count - 1 
     CheckedListBox2.SetItemChecked(i, False) 
    Next 
    For Each i In CheckedListBox1.CheckedIndices 
     CheckedListBox2.SetItemChecked(i, True) 
    Next 
End Sub 

Answer 2

Если у вас большой список, это может быть немного более эффективным, но вы получите тот же результат.

Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CheckedListBox1.SelectedIndexChanged 
    Dim i As Integer 
    For i = 0 To CheckedListBox2.Items.Count - 1 
     CheckedListBox2.SetItemChecked(i, CheckedListBox1.GetItemCheckState(i)) 
    Next 
End Sub 

Кроме того, вы можете иметь checkonclick свойство вашего ListBoxes значение ИСТИНА, чтобы спасти вас, чтобы нажать на пункт дважды - и она дает более consitent результаты как с моим кодом и кодом от @josh, но если вам нужно что-то сделать, когда вы выбираете элемент, вы можете его отключить