ListBox, найти и выделить

[GAL]

Привет!
Есть ListBox заполненный из базы данных (ну это не существенно), делаю по нему поиск. Ищет только до первого условия поиска, а нужно чтобы, либо по порядку шел, либо выделял сразу все, что совпадает с условием поиска.
Как сделать?..

[Jenizix]

Элементарно! Ща напишу...

[Jenizix]

Вот, а ты как поиск производил? While'ом наверное?

( На форме кнопка-Command1 Текстбокс-Text1 лист-List1 ( св-во MultiSelect=1 )

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

Private Sub Command1_Click()
    For i = 0 To List1.ListCount - 1
        If List1.List(i) = Text1.Text Then List1.Selected(i) = True
    Next i
End Sub

Private Sub Form_Load()
    List1.AddItem "Jenizix"
    List1.AddItem "VbStreets.RU"
    List1.AddItem "Visual Basic"
    List1.AddItem "GAL"
    List1.AddItem "Jenizix"
    List1.AddItem "VbStreets.RU"
    List1.AddItem "Visual Basic"
    List1.AddItem "GAL"
   
    Text1.Text = vbNullString
    Command1.Caption = "Search"
End Sub

[GAL]

Jenizix, код работает если находить только полное имя, а мне нужно указать часть слова и поиск внутри слов.
Поможешь?
Вот мой код:
Dim PosNow As Integer
Dim i As Integer
Dim tmp1 As String
Dim tmp2 As String
Dim orig As Integer

'переносимся на первую строку
If List1.ListIndex = List1.ListCount - 1 Then List1.ListIndex = 0

orig = List1.ListIndex
If List1.ListIndex = Val(List1.Tag) Then List1.ListIndex = List1.ListIndex + 1

PosNow = List1.ListIndex

If chk_register.Value = 1 Then
tmp2 = LCase$(txt_FindText.text)
Else
tmp2 = txt_FindText.text
End If

Do
DoEvents

For i = PosNow To List1.ListCount - 1
List1.ListIndex = i
tmp1 = List1.text
If chk_register.Value = 1 Then tmp1 = LCase$(tmp1)

'Стадия первая: обычный поиск/поиск с регистром
If tmp1 = tmp2 Then 'нашли и выходим из списка
PrintResult PosNow, i, txt_FindText.text
Exit Do
End If

'Стадия вторая: поиск внутри значений
If chk_FindInText.Value = 1 Then
lndx = InStr(tmp1, tmp2)
If lndx Then
PrintResult PosNow, i, txt_FindText.text
Exit Do
End If
End If


Next i

'ничего не нашли
List1.ListIndex = orig
lbl_Result.Caption = "Поиск неудачен."

Exit Do 'выходим из него
Loop

[GAL]

Jenizix, код работает если находить только полное имя, а мне нужно указать часть слова и поиск внутри слов. - Я имел ввиду твой код.
В моем то работает и часть слова и внутри слова, но поиск только до первого значения..

[Jenizix]

Ща посмотрю...
Выделяй код тегом [code] или [syntax="vb"] !!!!!

[Jenizix]

Попробуй убери Exit Do из первой и второй стадии

[Jenizix]

Хотя намудрил ты ИМХО черезчур!!!
Ну не люблю я всякие Do-Loop

Вот попробуй этот код:

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

Private Sub Command1_Click()
If Text1.Text <> vbNullString Then
    For i = 0 To List1.ListCount - 1
        List1.Selected(i) = False
        If List1.List(i) = Text1.Text Then List1.Selected(i) = True
        If InStr(1, List1.List(i), Text1.Text) Then List1.Selected(i) = True
    Next i
End If
End Sub

Private Sub Form_Load()
    List1.AddItem "Jenizix"
    List1.AddItem "VbStreets.RU"
    List1.AddItem "Visual Basic"
    List1.AddItem "GAL"
    List1.AddItem "Jenizix"
    List1.AddItem "VbStreets.RU"
    List1.AddItem "Visual Basic"
    List1.AddItem "GAL"
   
    Text1.Text = vbNullString
    Command1.Caption = "Search"
End Sub

Или я опять чегото не понял???

[GAL]

Все. Вижу.
Разобрался.
Спасибо за помощь.