Блог

Я пытаюсь удалить элементы из listbox на основе элементов в другом listbox, это кажется простым, но, видимо, я не могу заставить свой код работать, пожалуйста, посоветуйте. Спасибо.

    Dim listRemove As New List(Of ListItem)
    For Each item As ListItem In QualOutletToBox.Items
        listRemove.Add(item)                  ' Collect items from ListBox A
    Next
    For Each item In listRemove
        QualOutletFromBox.Items.Remove(item)  ' Remove items from ListBox B based on ListBox A
    Next
  

Что касается последующего вопроса, да, существует гораздо менее ресурсоемкий метод, один цикл:

 For Each item As ListItem In QualOutletToBox.Items
    QualOutletFromBox.Items.Remove(item)  ' Remove items from ListBox B based on ListBox A
Next