ListBox kontrollen används i Visual Basic inkluderar inte Scrollbars som tillämpliga egenskaper som gör andra kontroller . När linjerna av text inom en listruta högre än höjden på ListBox , är en vertikal Scrollbar till automatiskt. Horisontella rullningslister visas när raderna är längre än bredden av ListBox i en speciell typ av listruta som innehåller kolumner . Den vertikala rullningslisten tillför bildskärmsfunktion när programmet omfattar rätt associerade kodning . Instruktioner
1
Öppna Visual Basic 6.0-programvaran och klicka på " File " och sedan " Nytt projekt . Använd " Standard EXE " mall för detta exempel . Spara projektet genom att klicka på " File " följt av " Spara projekt som" och spara blanketten som " ScrollbarUse " och projektet som " Scroll Bar Använd . "
2
Lägg två listrutan kontroller i formulär genom att dubbelklicka två gånger på denna kontroll i verktygslådan . Ordna de två rutorna så de är sida vid sida . Klicka på den första ListBox märkt List1 att visa Egenskaper på höger sida av skärmen. Dubbelklicka på " List " egendom och ersätta standardinställningen " ( List ) " med " Number . " Ändra höjden egenskaperna hos både List1 och List2 till " 1230 " och egenskaperna bredd både till 1215 . Dubbelklicka på kommandoknappskontroll i verktygslådan för att lägga till den i formen . Ändra Caption egendom knappen " Exit ".
3
Synkronisera både Listbox styr så när användaren scrollar ner på en , följer motsvarande rad i den andra . Gör detta genom att skriva in koden nedan . Anm : Siffrorna är valda för att fylla både ListBox kontroller snabbt med fler linjer än den storlek som valts i steg 2 kan hålla . Annars rullningslister visas inte . Den " ^ "-symbolen beräknas kuben på varje nummer .
Private Sub Form_Load ( ) Dim i, n , x Som IntegerFor i = 1 Till 15List1.AddItem Välj (i, " 1 ", " 2 " , , " 3 " , " 4 " , " 5 " , " 6 " , " 7 " , " 8 " , " 9 " , " 10 " , " 11 " , " 12 " , , " 13 " , " 14 " , " 15 " ) NextFor n = 1 Till 15List2.AddItem Välj ( 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 ) NästaSlut 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
Tryck " F5 " för att köra programmet och notera när du flyttar rullningslisten i den första listan ner , de matchande rullar kub resultat också. Du kan visa ett användbart trick med rullningslister i en listruta genom att stänga programmet med " Exit " kontroll och återgå tillbaka till formen vyn i Visual Basic . Klicka på " Cube " ListBox och dra den över så det täcker en del av den högra sidan av " Number " ListBox . Tryck " F5 " för att köra programmet igen . Nu verkar en kontroll styr agerande båda rutorna .
5
Ändra Kolumner egenskapen Listrutan från " 0 " till " 1 . " Ersätt sista siffrorna i rad 4 i steg 3 till läs " detta är en mycket lång mening för att den vågräta rullningslisten . " Tryck på " F5 " igen för att se effekten med en vågrät rullningslist .
