Поиск по ListBox

[Leon144]

Всем Здрасьте.
Вопрос в следующем: На форме есть Label1 и Label2 и ListBox. Нужно: Когда в Label1 появляется текст происходит поиск в Списке ListBox на соответствие и если находиться такое же содержимое то в Label2 появляется надпись типа "Соответствие найдено" в противном случае "Ничего не найдено".
Испробовал несколько кодов но они не работают, постоянно высвечивается надпись ничего не найдено.

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

Вариант 1

ListBox1.SelectedIndex = -1
ListBox1.SelectedItem = Labell1.Text
If ListBox1.SelectedItems.Count = 0 Then MsgBox("No Items Found!")
else
MsgBox("Yes Items Found!")
end if

Вариант 2


If Mid(ListBox1.Items(i).toString, 1, Len(Label1.Text)).ToLower = Label1.Text.ToLower Then
      ListBox1.Items.Add(Str(i))
End If


Нашел эти два примера на другом форуме
Что не так и как правильно это реализовать?

[FireFenix]

Что не так

Ты не умеешь программировать на данном языке

как правильно это реализовать?

Прочитать хотя бы одну книгу по использованию этого языка программирования

Код бессмысленный, тем более ты скопировал и не понял его смысла!

Используй алгоритм:

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

1) Перебрать все элементы ListBox1 и сравнить их значение с Label1
    a) если найдено значение - выходим из цикла и устанавливаем флаг что значение найдено
    б) если не найдено - продолжаем цикл
2) После цикла проверяем на наличие флага, если = True, присваиваем Label2 = "Соответствие найдено", если же нет - Label2 = "Ничего не найдено"

[shemvv]

Еще у ListBox есть метод FindString