Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Стандартные элементы >>> ListBox  
     
  Пример поиска в ListBox'е  
  Данный пример отсеит все неподходящие по критерию элементы одного ListBox'а в другой.
Расположите на форме элементы TextBox и 2 элемента ListBox (смотри рисунок)
Private Sub Text1_Change()
intPlacement = Len(Text1)
strFind = UCase(Text1.Text)
List1.Clear
For intResult = 0 To List2.ListCount
intSearchResult = InStr(UCase(Left(List2.List(intResult), intPlacement)), 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
 
     
  VBNet online (всего: 51616)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам