Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Visual Studio , kliknite na tlačidlo " Nový projekt " v ľavej časti okna obrazovky počítača a rozšíriť " Visual Basic " pod " Nainštalované šablóny . " Kliknite na " Windows " a double - kliknite na " Windows Forms aplikácie " od centra v dialógovom okne vytvoriť nový projekt .
2
Double - kliknite na " listbox " pridať nový ovládací prvok zoznam na formuláre . Double - kliknite na " ComboBox " pre pridanie nového poľa so zoznamom vo formulári .
3
Dvakrát kliknite na formulár vytvoriť udalosť Load formulára a pridajte nasledujúci kód v udalosti k naplneniu " listbox " a " ComboBox " s
4
Skopírujte a vložte nasledujúci kód pod udalosti zaťaženie vytvoriť nový čiastkový postup k naplneniu " listbox : "
Private Sub populateListBox ( )
Me.ListBox1 . Items.Clear ( )
Me.ListBox1.Items.Add ( " Auto - Civic " )
Me.ListBox1.Items.Add ( " Auto - Lexus IS250 " )
Me.ListBox1.Items.Add ( " Truck - Tundra " )
Me.ListBox1.Items.Add ( " Truck - Silverado " )
Me.ListBox1.Items.Add ( " motocykel - Kawasaki " )
Me.ListBox1.Items.Add ( " motocykel - Ninja " )
Me.ListBox1.Items.Add ( " motocykel - Susuki " )
Me.ListBox1.Items.Add ( " Truck - Lightning " )
Me.ListBox1.Items.Add ( " Truck - F150 " )
End Sub
5
Prepnite späť do formulára a dvakrát kliknite na " ComboBox " riadenie pre vytvorenie " SelectedIndexChanged " udalosť . Skopírujte a vložte nasledujúci kód vnútri udalosti k filtrácii " listbox : "
Ak Trim ( ComboBox1.Text ) = " ALL " Tak
populateListBox ( )
Else
populateListBox ( )
Dim tmpLst ako listbox = new listbox
Dim s As Integer = 0
s = 0 ListBox1.Items.Count - 1
Ak Instru ( ListBox1.Items ( y ) toString , ComboBox1.Text . ) Potom
tmpLst.Items.Add ( ListBox1.Items ( y ) )
end If
Ďalšie
ListBox1.Items.Clear ( )
s = 0 tmpLst.Items.Count - 1
ListBox1.Items . pridať ( tmpLst.Items ( y ) . toString )
Ďalšie
tmpLst.Dispose ( )
End If
6
Stlačte " F5 " spustiť program a vybrať položku z " ComboBox " riadenie pre filtrovanie položiek v " listbox . "