checkboxlist apply Если заявления

Question

Я заявляю, что VB и так близко к VBScript, я получал удовольствие от него. Но теперь я столкнулся с «Checkboxlist».

Мой босс увидел, как я создал приложение Windows Forms и попросил его сделать его интерфейсом (GUI) для одного из его пакетных файлов. В партии вы начинаете с выбора между строками с 1 по 10, и все остальное. Поэтому я сделал Checkboxlist и сделал флажки от 1 до 10. Теперь я не уверен, как сказать, что, когда я нажимаю кнопку, оператор if смотрит на то, что было проверено, и предпринимает соответствующие действия.

Я думаю, что я предполагаю, чтобы начать с чем-то вроде

If CheckedListBox1.Items() = True then 

Но я знаю, что это не работает. Все, что поможет. Спасибо.

Answer 1

Похоже, что вы ищете событие ItemCheck. Это событие запускается при изменении состояния элемента.

Private Sub HandleCheckedListBox1ItemCheck(sender As Object, e As ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck 

    Dim item As Object = Me.CheckedListBox1.Items.Item(e.Index) 
    Dim text As String = Me.CheckedListBox1.GetItemText(item) 

    Select Case e.CurrentValue 
     Case CheckState.Unchecked 
      '... 
     Case CheckState.Checked 
      '... 
     Case CheckState.Indeterminate 
      '... 
    End Select 

End Sub 

Или перебирать все отмеченные элементы:

Private Sub HandleButton1Click(sender As Object, e As EventArgs) Handles Button1.Click 

    For Each item As Object In Me.CheckedListBox1.CheckedItems 
     Dim text As String = Me.CheckedListBox1.GetItemText(item) 
     '... 
    Next 

End Sub