listeboksen kontroll i Visual Basic er et kraftig verktøy for visning av lister med data og tillater brukeren å velge ett eller flere elementer fra listen . Et utvalg kan da tvinge en handling i en annen del av koden . Det er flere egenskaper tilgjengelig med denne kontrollen , inkludert de å vise data i mer enn én kolonne . For lengre eller bredere tekst lister, horisontale og vertikale rullefelt vises automatisk . Lister kan vises sortert eller usortert og skjemaer kan ha flere sammenhengende listboxes . Opprette en ListBox

Legg en ny form ved å klikke på "File "-menyen i Visual Basic og velge " Nytt prosjekt ". Velg " Standard EXE " som type i Visual Basic 6.0 . I versjoner av Visual Basic.NET , er navnet på malen "Windows Forms Application ". Når et skjema er åpen , ser du to kontrollene til venstre som ser ut som lister. Dobbeltklikk på høyre hånd en, en Listeboks , for å legge den til tomt skjema . Gjenta dette for å legge til en andre Liste- , og dra den til høyre for den første. Utvid skjemaet med skaleringshåndtakene nederst og til høyre på skjemaet.

Eksperimenter med listeboksen innhold og dets egenskaper . Endre " Sortert " for hvert Liste- til " true". Endre ForeColor av høyre Liste- til "Red ". For å forberede seg til neste trinn i opplæringen , legger fire Knapper fra Toolbox arrangere dem som i bildet . Merk: teksten i boksene er satt større for synlighet. Bruke Properties panelet til høyre , gjøre hver Command knappteksten lyde: øverst til venstre: " Legg til nytt element " Top Høyre : " Velg et element " Nederst til venstre: " Skriv ut valgte listen " Nederst til høyre : " opphever et objekt " The bruk av disse knappene vil bli klart når du arbeider gjennom opplæringen.
Sette opp opplæring

Endring fra Design utsikt til kodevisning ved å klikke på "View "," Code " i menyen. For å aktivere kommandoknappene lagt ovenfor , skriv inn følgende kode nøyaktig slik den vises : Private Sub Command1_Click ( ) Dim NewItem Som StringNewItem = InputBox ("Skriv inn nytt element for list" ) List1.AddItem NewItemEnd SubPrivate Sub Command2_Click ( ) Hvis List1 . ListIndex > = 0 ThenList2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub Command3_Click ( ) Hvis List2.ListIndex > = 0 ThenList1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd IfEnd SubPrivate Sub Command4_Click ( ) Dim n As IntegerFor n = 0 til List2.ListCount - 1Print n & " " & List2.List (n ) NesteSiste Sub
Bruke Liste- kontroll

måter å bruke disse knappene vil være opplagt når du trykker på " F5 " for å kjøre programmet ( illustrasjonen er forhåndsutfylt med noen elementer ) . Start med å bruke " Legg til nytt element "-kommandoen . Hver gang du bruker dette , vil en boks be deg om å legge til et nytt element . Prøv å legge noen navn på land i tilfeldig rekkefølge . " Velg et element " fjerner den fra venstre boksen og legger den til høyre . " Opphever et objekt " gjør det motsatte . "Skriv ut" -knappen sender den til skjermen, men med en modifikasjon kan bruke en skriver i stedet. Ekstra kode kan endre utvalget slik at ved å holde nede Skift-tasten kan brukeren velge flere elementer .

Listeboksen egenskaper inkluderer linke til en database for videre bruk av utvalgte data . Boksene kan fylles enten ett element om gangen , som vist her , ved hjelp av en rekke elementer for å legge alt på en gang, eller ved å importere en pre -valgt tekstfil . Dette er måten de lange lister over land vises i web-versjonene av Liste- .