Главная страницаОбратная связьКарта сайта

Пример поиска в ListBoxе



Private Sub Text1_Change()
strFind = UCase(Text1.Text)
List1.Clear

For intResult = 0 To List2.ListCount - 1
intSearchResult = InStr(UCase(List2.List(intResult)), strFind)
If intSearchResult > 0 Then List1.AddItem List2.List(intResult)
Next intResult
End Sub

Private Sub Form_Load()
Text1.Text = ""
With List2
.AddItem "МП-Ком правда"
.AddItem "Tanya"
.AddItem "Shannon"
.AddItem "Московская правда"
.AddItem "Московский комсомолец"
.AddItem "Московские новости"
.AddItem "Johnny"
.AddItem "Mike"
.AddItem "Derek"
.AddItem "Scotty"
.AddItem "МП-Сов Рос"
.AddItem "Scott"
.AddItem "Tyna"
.AddItem "Diana"
.AddItem "Chris"
.AddItem "Stanley"
.AddItem "Kamal"
.AddItem "МП-Куряд"
End With
End Sub


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Пример поиска в ListBoxе", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

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


Copyright © 2008 - 2024 Дискета.info