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е", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!