Filtrering elementer i en " ListBox " kontrol i Visual Basic.NET ( VB.NET ) ansøgning kan opnås ved hjælp af en " ComboBox " og en " ListBox " klassen. A " ListBox " kontrol giver dig mulighed for at vise en liste over elementer til brugeren , som brugeren kan vælge ved at klikke . Den " ListBox " kontrol giver ikke en filtrering mekanisme , derfor er du nødt til at filtrere elementer ved hjælp af en " ListBox " class og looping gennem de emner, du vil filtrere . Du kan vise filtrering elementer ved hjælp af en " ComboBox " kontrol . A " ComboBox " kontrol er en kombination af en tekstboks og en liste kontrol. Ting du skal
Microsoft Visual Studio
Vis Flere Instruktioner
1

Launch Microsoft Visual Studio , klik på " Nyt projekt " fra venstre rude på din computerskærm og udvide "Visual Basic " under " installerede skabeloner. " Klik på " Windows" og dobbeltklik på "Windows Forms Application " fra midten af dialogvinduet for at oprette et nyt projekt.
2

Dobbeltklik på " ListBox " for at tilføje en ny liste kontrollen til din formular . Dobbeltklik på " ComboBox " for at tilføje en ny kombinationsboks til formularen .
3

Dobbeltklik på formularen for at oprette en form load begivenhed og tilføje følgende kode inde begivenheden til at befolke de " ListBox " og " ComboBox " med
4

Kopier og indsæt følgende kode under belastningen begivenheden til at skabe nye sub procedure for at befolke " ListBox : "

Private Sub populateListBox ()

Me.ListBox1 . Items.Clear ()

Me.ListBox1.Items.Add ( "Car - Civic " )

Me.ListBox1.Items.Add ( "Car - Lexus IS250 " )
< p> Me.ListBox1.Items.Add ( "Truck - Tundra " )

Me.ListBox1.Items.Add ( "Truck - Silverado " )

Me.ListBox1.Items.Add ( "Motorcycle - Kawasaki " )

Me.ListBox1.Items.Add ( "Motorcycle - Ninja " )

Me.ListBox1.Items.Add ( "Motorcycle - Susuki " )
< p> Me.ListBox1.Items.Add ( "Truck - Lightning "),

Me.ListBox1.Items.Add ( "Truck - F150 " )

End Sub
5

Skift tilbage til din form og dobbeltklik på " ComboBox " kontrol for at skabe en " SelectedIndexChanged " begivenhed . Kopier og indsæt følgende kode inde i begivenheden for at filtrere de " ListBox : "
p Hvis Trim ( ComboBox1.Text ) = "ALL" Så

populateListBox ()

Else

populateListBox ()

Dim tmpLst Som ListBox = Ny ListBox

Dim s As Integer = 0

s = 0 Til ListBox1.Items.Count - 1
p Hvis InStr ( ListBox1.Items (e) ToString , ComboBox1.Text . ) Så

tmpLst.Items.Add ( ListBox1.Items (r) )

End If

Næste

ListBox1.Items.Clear ()

s = 0 Til tmpLst.Items.Count - 1

ListBox1.Items . Tilføj ( tmpLst.Items (r) . ToString )

Næste

tmpLst.Dispose ()

End If
6

Tryk på " F5 "for at køre programmet, og vælg et emne fra" ComboBox "kontrol til at filtrere poster i " ListBox . "