listbox kontrol bruges i Visual Basic inkluderer ikke Rullebjælker så gældende egenskaber som gør andre kontroller. Når tekstlinjer inden for en ListBox overstige højden af ​​ListBox er en lodret Scrollbar tilføjes automatisk . Vandrette Scrollbars vises, når linjerne er længere end bredden af ​​ListBox i en særlig type ListBox , der indeholder kolonner. Den lodrette Scrollbar tilføjer nogle display funktionalitet, når programmet indeholder de korrekte associerede kodning. Instruktioner
1

Åbn Visual Basic 6.0 -softwaren og klikke på " File" og derefter " Nyt projekt . Brug " Standard EXE " skabelon for dette eksempel. Gem projektet ved at klikke på "File " efterfulgt af " Save Project As " og gem formular som " ScrollbarUse ", og projektet som "Scroll Bar Brugsanvisning".
2

Tilføj to ListBox kontrolelementer til formularen ved at dobbeltklikke på to gange på denne knap i værktøjskassen . Arranger de to kasser, så de er side om side. Klik på det første ListBox mærket List1 at vise Egenskaber på højre side af skærmen. Dobbelt-klik på "Liste " ejendom og erstatte standardindstillingen "( List) " med " Number ". Ændre højden egenskaber både List1 og List2 til " 1230 " og bredden egenskaber både 1215 . Dobbeltklik på CommandButton i værktøjskassen for at føje det til formularen . Skift Caption ejendom knappen " Exit ".
3

Synkroniser både Listbox kontrol, så når brugeren ruller ned i én, den tilsvarende række i det andet følger. Gør dette ved at skrive koden nedenfor . Note: Tallene er valgt at fylde både ListBox kontrol hurtigt med flere linjer end den størrelse, der er valgt i trin 2 kan holde. Ellers Scrollbars vises ikke . Den " ^ " symbolet beregner terning af hvert nummer.

Private Sub Form_Load ( ) Dim i , n, x As IntegerFor i = 1 Til 15List1.AddItem Vælg (i , "1" , "2" , , "3" , "4" , "5 ", " 6 ", " 7 ", " 8", " 9 ", " 10 ", " 11 ", " 12" , , "13" , "14" , "15" ) NextFor n = 1 Til 15List2.AddItem Vælg (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 ) NextEnd 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 () EndEnd Sub
4

Tryk på " F5 " for at køre dette program, og bemærk , når du flytter Scrollbar på den første liste ned de matchende terning resultat ruller så godt. Du kan påvise en nyttig trick med Rullebjælker i et ListBox ved at lukke programmet med " Exit" kontrol og vende tilbage tilbage til formularen visning i Visual Basic. Klik på " Cube " Liste og træk det over, så det dækker en del af den højre side af "Nummer" ListBox . Tryk på " F5 " for at køre programmet igen. Nu ser det ud én kontrol styrer handlinger begge bokse .
5.

Skift Kolonner ejendom Number ListBox fra " 0" til "1". Udskift det sidste nummer på linje 4 i trin 3 for at læse " dette er en meget lang sætning for at aktivere vandrette rullepanel . " Press " F5 " igen for at se virkningen med en vandret Scrollbar .