Visual Basic programmeringsspråk fra Microsoft har en robust verktøykasse for å lage Windows-skjema søknader på kort tid og med relativ letthet. Liste- kontroll er en av disse verktøyene, og bruke den til å gi brukerne en rekke valg å plukke fra . Det er også mulig å tillate brukeren å legge til eller slette fra innholdet i en Liste- , og for å gjøre det, må du være i stand til å søke Liste- å iverksette tiltak på riktig element. Instruksjoner
en

Klikk " Start", " Alle programmer " og velg Microsoft Visual Studio eller Visual Basic Express program, avhengig av hvilken du har installert.
2

Klikk på "New Project "-lenken på Visual Studio forsiden , velger du " Windows Forms Application " og klikk " OK . " Dette åpner et nytt tomt skjema i Design vinduet.
3

Klikk på " Toolbox "-fanen til venstre på skjermen for å utvide den. Dobbeltklikk på " Liste- " kontroll. Dobbeltklikk på " Button" kontroll og dobbeltklikk på " TextBox " kontroll. Dette legger en av hver i skjemaet. Klikk i Design vinduet for å skjule Toolbox .
4

Klikk på Liste- i form . Bla ned til " Items " eiendom i Egenskaper vinduene til nedre venstre på skjermen . Klikk på ellipse boksen for å åpne et vindu for å legge inn elementer. Inn flere elementer i listen , trykke "Enter " etter hvert element for å plassere dem på egne linjer.
5

Dobbeltklikk på knappen for å åpne VB Code-vinduet . Markøren vises mellom linjene som ser slik ut :

Private Sub button1_click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs )

Håndtak Button1.Click

End Sub

Plasser følgende kode mellom linjene ovenfor for å søke i listen for et duplikat av hva brukeren skriver inn i tekstfeltet :
< p> '

' kommentar - denne koden søker listeboksen for en kopi av hva brukeren tastet

"inn i tekstboksen

'

Dim ListItemCounter As Integer
p Hvis TextBox1.Text > Ingenting Deretter

gjøre før ListItemCounter = ListBox1.Items.Count ( )
p Hvis TextBox1.Text.ToUpper = ( ListBox1.Items ( ListItemCounter ) ) . ToUpper ( ) Så

MessageBox.Show ( " Duplicate item found" )

Return

Else

ListItemCounter + = 1

End If

Loop

MessageBox.Show ( " varen du skrev inn er ikke på listen" )

End If

denne koden søker gjennom elementene i Liste for elementet som ble inngått i tekstboksen. Legg merke til det vedføyde " ToUpper "-metoden , slik at sammenligningen eliminerer tilfelle som et potensielt problem . Hvis elementet er funnet, er en passende melding utstedes, dersom varen ikke blir funnet, en "ikke funnet "-melding er gitt
6

Klikk på " Debug " menyen på toppen av den . skjermen og klikk på "Start debugging "-linken. Dette åpner programmet i testmodus . Skriv inn et element som er på listen inn i tekstboksen og klikk på knappen . Du bør se " likt element "-melding. Skriv inn et element inn i tekstboksen som ikke er i listen, og klikk på knappen . Nå skal du se "element ikke funnet" .