Visual Basic programmeringssprog fra Microsoft har en robust værktøjskasse til at skabe Windows-formular applikationer i kort rækkefølge og med relativ lethed. Listbox kontrol er et af de redskaber , bruge den til at give dine brugere en række valg at vælge fra . Det er endda muligt at tillade brugeren at tilføje eller slette fra indholdet af en ListBox , og for at gøre det, du er nødt til at være i stand til at søge i ListBox at tage handling på det rette element . Instruktioner
1

Klik på "Start ", " Alle programmer " og vælg Microsoft Visual Studio eller Visual Basic Express program, afhængigt af hvilken en du har installeret.
2

Klik på " Nyt projekt " linket på Visual Studio Forside , skal du vælge " Windows Forms Application " og klik " OK". Dette åbner et nyt tom formular i Design -vinduet.
3

Klik på " Toolbox" fane til venstre på skærmen for at udvide den. Dobbelt-klik på " ListBox " kontrol . Dobbelt-klik på " Button " kontrol og dobbelt -klik på " TextBox " kontrol . Dette tilføjer en af ​​hver til formularen . Klik på Design -vinduet for at skjule værktøjskassen.
4

Klik på ListBox i form . Rul ned til " Produkter " ejendom i Properties vinduerne til det nederste venstre på din skærm . Klik på ellipse boksen for at åbne et vindue til indtastning poster. Indtast flere elementer på listen , trykke på " Enter" efter hvert emne for at placere dem på separate linjer .
5

Dobbeltklik på knappen for at åbne VB Kode vinduet. Markøren vises mellem linjerne , der ligner dette :

Private Sub Button1_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs )

Handles Button1.Click

End Sub

Placer følgende kode mellem linjerne ovenfor for at søge i listen efter en kopi af det, brugeren indtaster i tekstfeltet : Hej < p > '

' bemærkning - denne kode søger listefeltet for en kopi af , hvad brugeren indtastet

' i tekstfeltet

'

Dim ListItemCounter As Integer
p Hvis TextBox1.Text > så intet

gøre, indtil ListItemCounter = ListBox1.Items.Count ()
p Hvis TextBox1.Text.ToUpper = ( ListBox1.Items ( ListItemCounter ) ) . toupper () Så

MessageBox.Show ( "Dupliker post fundet" )

Return

Else

ListItemCounter + = 1 < br >

End If

Loop

MessageBox.Show ("The element, du indtastede, er ikke på listen" )

End If

denne kode søger gennem punkterne i listefeltet for elementet , der blev indtastet i tekstfeltet . Bemærk vedlagte " toupper " metode, således at sammenligningen eliminerer tilfælde som et potentielt problem . Hvis varen er fundet, en passende meddelelse udstedt , hvis varen ikke er fundet en " ikke fundet" meddelelse afgives
6

Klik på " Debug" menupunktet i toppen af . skærmen og klikke på "Start debugging " link. Dette åbner din ansøgning i testtilstand . Indtast et emne, der er på listen i tekstfeltet , og klik på knappen. Du bør se "duplicate item" budskab. Indtast et emne i tekstfeltet , som ikke er på listen, og klik på knappen. Nu skulle du se på " post ikke fundet" besked .