Visual Basic programmeringsspråk från Microsoft har en robust verktygslåda för att skapa Windows formulerade ansökningar med kort varsel och med relativ lätthet . ListBox kontrollen är ett av dessa verktyg , använda den för att ge användarna ett antal alternativ att välja på . Det är även möjligt att tillåta användaren att lägga till eller ta bort från innehållet i en listruta , och för att göra det , man måste kunna söka ListBox att agera på rätt objekt . Instruktioner
1
Klicka på "Start ", " Alla program " och välj Microsoft Visual Studio eller Visual Basic Express ansökan , beroende på vilken du har installerat .
2
Klicka på " New Project " länken på Visual Studio startsidan väljer du " Windows Forms Application " och klicka på " OK . " Detta öppnar ett nytt tomt formulär i design fönstret .
3
Klicka på fliken "Verktyg" till vänster på skärmen för att expandera den . Dubbelklicka på " ListBox " kontroll . Dubbelklicka på " Button " kontroll och dubbelklicka på " TextBox " kontroll . Detta lägger en av varje till formuläret . Klicka på Design fönstret att kollapsa verktygslådan .
4
Klicka på ListBox i form . Rulla ner till " objekt " egenskap i Properties fönstren till det nedre vänstra hörnet på skärmen . Klicka på de tre punkterna rutan för att öppna ett fönster för att ange objekt . Ange flera poster i listan kan du trycka på "Enter " efter varje objekt för att placera dem på separata rader .
5
Dubbelklicka på knappen för att öppna VB Code fönstret . Markören ser mellan raderna som ser ut så här :
Private Sub Button1_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) katalog
Handtag Button1.Click
End Sub
Placera följande kod mellan raderna ovan för att söka i listan efter en kopia av vad användaren skriver in i textfältet :
'
" kommentar - denna kod söker listrutan för en kopia av vad användaren knappat
" i textrutan
"
Dim ListItemCounter As Integer
p Om TextBox1.Text > Ingenting Sedan
göra tills ListItemCounter = ListBox1.Items.Count ( ) katalog p Om TextBox1.Text.ToUpper = ( ListBox1.Items ( ListItemCounter ) ) . ToUpper ( ) Sen
MessageBox.Show ( " Duplicera objekt hittades " ) katalog
Return
Else
ListItemCounter + = 1
End If
Loop
MessageBox.Show ( " objektet du angav är inte med i listan " ) katalog
End If
denna kod söker igenom objekten i listrutan för objektet som infördes i textrutan . Observera bifogad " ToUpper " metoden så att jämförelsen eliminerar fallet som ett potentiellt problem . Om objektet finns , är ett lämpligt meddelande utfärdat , om objektet inte hittas , ett " inte hittad" utfärdas
6
Klicka på " Debug " i menyn längst upp i den . skärmen och klicka på "Start debugging" länken . Detta öppnar din ansökan i testläge . Ange ett objekt som finns i listan i textrutan och klicka på knappen . Du ska se " dubblett " budskap . Ange ett objekt i textrutan som inte finns i listan och klicka på knappen . Nu bör du se " objektet inte hittad" .
