Visual Basic FAQ

Как реализовать поиск заданного слова в ListBox?

Option Explicit
'Свойство Sorted у ListBox в ручную ставим в True

Private Sub Form_Load()
With List1
    .AddItem "Один"
    .AddItem "Два"
    .AddItem "Три"
    .AddItem "Четыре"
    .AddItem "Пять"
End With
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Dim i As Long, ii As Long
Case Asc(vbCr)
With List1
    ii = .ListIndex
    For i = 0 To .ListCount
        If InStr(UCase(.List(i)), UCase(Text1.Text)) > 0 Then
            .ListIndex = i
            Exit Sub
        End If
    Next i
    .ListIndex = ii
End With
Case Else
End Select
End Sub

Запись опубликована on 11.12.2008 at 22:36 и размещена в рубрике: ListBox. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.