удаление строки из listbox

[Anta]

Здраствуйте, необходимо удалить строку из listbox во время события TextChange, происходящему в combobox. То есть пользователь выбирает строку из выпадающего списка в combobox и такая строка должна быть удалена из списка listbox,но мой код работает, только в том случае, если искомая строка является первой в списке, в других случаях вылетает ошибка: InvalidArgument= value '-1' for index.

Код: Выделить всё

Private Sub ComboBox1_TextChanged(sender As Object, e As EventArgs) Handles ComboBox1.TextChanged
        Dim k As Integer

        For k = ListBox1.Items.Count - 1 To 0 Step -1

            k = ListBox1.FindStringExact(ComboBox1.Text)

            ListBox1.Items.RemoveAt(k)

ListBox1.Refresh()---если добавить эту строку, то удаляется нужная строка в любой позиции, но сразу же после удаления снова вылетает ошибка индекс=-1

        Next

    End Sub

Подскажите как решить проблему. Получается, что в списке listbox не содержится эелементов, если значение индекса элемента равно -1?

[Qwertiy]

For k = ListBox1.Items.Count - 1 To 0 Step -1

Что это?

[Viper]

Anta, а зачем все это делать в цикле (тем более, что в середине цикла изменяется переменная цикла)? При помощи ListBox.FindExactString найти позицию искомой строки и, если она найдена, удалить ее при помощи ListBox.RemoveAt. Никакого цикла организовывать не надо.

[Anta]

For k = ListBox1.Items.Count - 1 To 0 Step -1

Что это?

Спасибо, Qwertiy и Viper!!! А если предположить, что пользователь выбрал элемент, уже удаленный ранее, то с чем сравнить "к"? if k =? (nullable) то msg("Элемент отсутствует в списке")

[Qwertiy]

А если предположить, что пользователь выбрал элемент, уже удаленный ранее, то с чем сравнить "к"?

Ответ:

в других случаях вылетает ошибка: InvalidArgument= value '-1' for index.

[Anta]

догадалась)) Спасибо