listeboksen kontroll som brukes i Visual Basic inkluderer ikke Scrollbars som gjeldende egenskaper som gjør andre kontroller. Når linjene med tekst i en ListBox overstige høyden på valglisten er en vertikal Scrollbar automatisk lagt til. Horisontale Scrollbars vises når linjene er lengre enn bredden av Liste- i en spesiell type av ListBox som omfatter kolonner . Den vertikale Scrollbar legger noen skjerm funksjonaliteten når programmet inneholder de riktige forbundet koding. Instruksjoner
en

Åpne Visual Basic 6.0-programvare og klikk på " File" og deretter " New Project. Bruk " Standard EXE " mal for dette eksemplet. Lagre prosjektet ved å klikke på "File " etterfulgt av " Lagre prosjekt som" og lagre skjemaet som " ScrollbarUse " og prosjektet som " Scroll Bar Bruk . "
2

Legg to listeboksen kontroller i skjemaet ved å dobbeltklikke to ganger på denne kontrollen i verktøykassa . Ordne de to boksene slik at de er ved siden av hverandre . Klikk på den første Liste- merket List1 å vise Egenskaper på høyre side av skjermen . Dobbeltklikk på " List " eiendom og erstatte standardinnstillingen "( liste) " med "Number ". Endre høyden egenskapene til både List1 og List2 til " 1230 " og bredden egenskaper både til 1215 . Dobbeltklikk på CommandButton kontroll i verktøykassen for å legge den til i skjemaet. Endre Caption eiendom på knappen til " Exit ".
3

Synkroniser både Listbox styrer så når brukeren blar nedover i ett, følger den tilsvarende raden i den andre. Gjør dette ved å skrive inn koden som er oppført nedenfor. Merk: Tallene er valgt for å fylle både Liste- kontroller raskt med flere linjer enn størrelsen valgt i trinn 2 kan holde. Ellers Scrollbars ikke vises. Den " ^ "-symbolet beregner kube av hvert nummer .

Private Sub Form_Load ( ) Dim i, n, x As IntegerFor i = 1 To 15List1.AddItem Velg (i, "1" , " 2 " , , "3" , "4" , " 5 " , "6" , "7" , "8" , "9" , " 10 ", " 11" , " 12 " , , "13" , " 14" , "15" ) NextFor n = 1 til 15List2.AddItem velger ( n, 1 ^ 3 , 2 ^ 3 , ^ 3 3, 4 3 ^ , 5 ^ 3, 6 ^ 3 , 7 ^ 3 , 8 ^ 3 , 9 ^ 3 , 10 ^ 3 , 11 ^ 3 , 12 ^ 3 , 13 ^ 3 , 14 ^ 3 , 15 ^ 3 ) NesteSiste SubPrivate Sub List1_click ( ) List1.TopIndex = List2 . TopIndexList1.ListIndex = List2.ListIndexEnd SubPrivate Sub List2_click ( ) List2.TopIndex = List1.TopIndexList2.ListIndex = List1.ListIndexEnd SubPrivate Sub List1_Scroll ( ) List2.TopIndex = List1.TopIndexEnd SubPrivate Sub List2_scroll ( ) List1.TopIndex = List2.TopIndexEnd SubPrivate Sub Command1_Click ( ) SluttSlutt Sub
4

Trykk " F5 " for å kjøre dette programmet og merk når du flytter rullefeltet i den første listen ned, samsvarende kube resultat ruller også. Du kan vise et nyttig triks med Scrollbars i en ListBox ved å lukke programmet med "Exit" kontroll og gå tilbake tilbake til skjemaet visning i Visual Basic. Klikk på " Cube " Liste-og dra den over så den dekker en del av høyre side av " Number" Liste- . Trykk "F5 " for å kjøre programmet på nytt . Nå ser det ut en kontroll styrer handlingene til begge boksene .
5

Endre Kolonner eiendom nummer Liste- fra "0" til "1 ". Bytt det siste nummeret i linje 4 Trinn 3 til lese " dette er en veldig lang setning å aktivere den horisontale rullefeltet. " Trykk " F5 " igjen for å se effekten med en horisontal Scrollbar .