Listboxen kontrollinstrument som används i Visual Basic inkluderar inte rullningslister i tillämpliga egenskaper som gör andra kontroller . När textrader i en listruta överstiga höjden av ListBox , är en lodrät rullningslist till automatiskt. Horisontella rullningslister visas när raderna är längre än bredden på ListBox i en speciell typ av listruta som innehåller kolumner . Den vertikala rullningslisten lägger till några funktioner visas när programmet innebär korrekt tillhörande kodning
1 .
Öppna Visual Basic 6. 0 mjukvaran och klicka på "Fil "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 " Rullningslist användning. "
2 .
Lägg till två listruta kontroller i formuläret genom att dubbelklicka två gånger på denna kontroll i verktygslådan . Ordna de två rutorna så de sida vid sida . Klicka på den första ListBox märkt List1 till på höger sida av skärmen visar Egenskaper . Dubbelklicka på " List " egendom och ersätta standardinställningen " ( List ) " med " Antal ". Ändra höjden egenskaper både List1 och List2 till " 1230 " och bredden egenskaper både 1215 . Dubbelklicka på Kommandoknapp-kontrollen i verktygslådan för att lägga till formuläret. Ändra Bildtext egendom knappen " Exit ".
3 .
Synkronisera både Listbox kontroller så när användaren scrollar nedåt i ett , motsvarande rad i den andra följer . Gör detta genom att skriva koden nedan . Obs: Siffrorna valt att fylla både ListBox kontroller snabbt med fler linjer än storleken som valts i steg 2 kan hålla . Annars rullningslister inte visas. Den " ^ " symbolen beräknar kub i varje nummer .
Private Sub Form_Load ( )
Dim I, N , x As Integer
För i=1 till 15
List1. AddItem Välj ( I, "1 " , " 2 " , "3 " , "4" , "5 " , "6 " , "7 " , "8 " , "9 " , "10 " , " 11 " , " 12 " , " 13 " , " 14 " , " 15 " )
Nästa
för n=1 till 15
List2. 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ästa
End Sub
Private Sub List1_click ( )
List1 . TopIndex=List2. TopIndex
List1. ListIndex=List2. ListIndex
End Sub
Private Sub List2_click ( )
List2. TopIndex=List1. TopIndex
List2. ListIndex=List1. ListIndex
End Sub
Private Sub List1_Scroll ( )
List2. TopIndex=List1. TopIndex Sub
End
Private Sub List2_scroll ( )
List1 . TopIndex=List2. TopIndex
End Sub
Sub Command1_Click ( )
End
End Sub
4 .
Tryck på " F5 " för att Kör det här programmet och notera när du flytta pilen på den första listan ner , rullar matchande kuben resultat också. Du kan visa ett bra trick med rullningslister i en listruta genom att stänga programmet med "Exit " -kontroll och återgå tillbaka till den form uppfattning i Visual Basic. Klicka på " Kuben " ListBox och dra det över så det täcker en del av högra sidan av " Number " ListBox . Tryck på " F5 "för att köra programmet igen . Nu verkar en kontroll styr agerande båda rutorna.
5 .
Ändra kolumner egendom Antal ListBox från " 0 " till " 1 . " Ersätt det sista numret i rad 4 i steg 3 för att läsa " detta är ett mycket långt straff så att den vågräta rullningslisten . " Tryck "F5 " igen för att se effekten med en horisontell rullningslist.
Previous:nothing Next:hur man kan öka stackstorlek i Visual Basic