Поиск в ЛистБоксе

[Артур Иваныч]

Здравствуйте ВСЕМ!
Ниже файл!
вобщем там столбец, где имеются циферки и кнопка, которая вызывает форму, а на форме текстбокс и листбокс. в Листбокс выгружаются значения из того самого столбца!
вопрос такой: КАК организовать поиск листбокса(!)???
то есть в текстбокс вводим значение которого нужно найти в листбоксе, нужно как-то организовать через Find, в итоге после ввода в текстбокс в листбоксе остаются только те записи, которые частично или полностью совпадают с содержимым в тексбоксе, который мы ввели...
либо же при поиске он выделял в листбоксе значение, которое мы ищем, причём в этом случае нужно будет организовать ListBox1.MultiSelect = fmMultiSelectMulti, так как значений может быть более двух!
Вобщем либо так либо так - что легче? и что реализуемо?
Заранее спасибо!

[Teslenko_EA]

Здравствуйте Артур Иваныч.
С Вашей задачей может справиться подобный код:

Sub TextBox1_Change()
Dim i%
With ListBox1
    For i = 0 To .ListCount - 1
        .Selected(i) = False
    Next
    If Len(TextBox1.Text) > 0 Then
        For i = 0 To .ListCount - 1
            If .List(i, 0) = TextBox1.Text Then
                .Selected(i) = True
                If .MultiSelect = 0 Then Exit For
            End If
        Next
    End If
End With
End Sub

Евгений.

[Артур Иваныч]

Спасибо Евгений:-)
НО .List(i, 0) = TextBox1.Text - это просто сравнивание
хорошо бы Find

[The_Prist]

Сообщение от Артур Иваныч

.List(i, 0) = TextBox1.Text - это просто сравнивание
хорошо бы Find

Хорошо бы. Сделайте .Find и покажите нам.
Думаете, если бы можно было искать при помощи .Find все извращались бы переборами?

[Артур Иваныч]

The_Prist
я просто думал что сделать такое реально
у меня лично не получается
вроде бы даже на бумажке алгоритм правильный, но...
я вообще новичок в вба
вот и прошу на этом форуме у знающих, мне помогают и я сам на этом обучаюсь и познаю