Ako používať Jazdec s Listbox v jazyku Visual Basic 6.0

Ovládací prvok zoznam použiť v jazyku Visual Basic nezahŕňa posuvníky ako platné vlastnosti , rovnako ako ostatné ovládacie prvky . Ak sa riadky textu v rámci listbox presiahnuť výšku listbox , zvislý posuvník je automaticky pridaný . Horizontálne posuvníky sa objaví , keď sú línie dlhšia , než je šírka listbox vo zvláštnom type listbox , ktorý zahŕňa stĺpce . Zvislý posuvník pridáva niektoré funkcie displeja , keď program obsahuje správne spojené kódovanie . Pokyny dovolená 1

Otvorte Základný softvér Visual 6.0 a kliknite na " Súbor " a potom " Nový projekt . Použite šablónu " Štandardné EXE " pre tento príklad . Uložte projekt kliknutím na tlačidlo " Súbor " a potom " Uložiť projekt ako " a uložte formulár ako " ScrollbarUse " a projektu ako " rolovacie pruh použitie . "
2

Pridať dva ovládací prvok zoznamu do formulára dvojitým kliknutím dvakrát na ovládací prvok v paneli nástrojov . Usporiadať dve krabice tak , aby boli vedľa seba . Kliknutím na prvý listbox označené Hárok1 zobrazenie vlastností na pravej strane obrazovky . Double - kliknite na " zozname" vlastníctva a nahradiť predvolené nastavenie " ( Zoznam ) , " s " Number " . Zmeniť výšku vlastnosti oboch Hárok1 a Hárok2 na " 1230 " a šírka vlastnosti ako 1215 . Dvakrát kliknite na ovládací prvok CommandButton na paneli nástrojov pridať do formulára . Zmeniť vlastnosti Titulok tlačidla na " Exit " .
3

Synchronizácia ako Listbox riadi , takže keď používateľ roluje v jednom , zodpovedajúci riadok v druhej nasleduje . Urobte to zadaním kódu nižšie uvedených . Poznámka : Čísla sú vybraní , aby rýchlo vyplniť obidve listbox ovládacie prvky s viacerými linkami , ako vybrali v kroku 2 veľkosti pojme . Inak posuvníky sa nezobrazí . Symbol " ^ " vypočítava kocku každého čísla .

Private Sub Form_Load ( ) Dim i, n , x ako IntegerFor i = 1 To 15List1.AddItem vybrať ( i , " 1 " , " 2 " , , " 3 " , " 4 " , " 5 " , " 6 " , " 7 " , " 8 " , " 9 " , " 10 " , " 11 " , " 12 " , , " 13 " , " 14 " , " 15 " ) NextFor n = 1 15List2.AddItem vybrať (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 ) DalšíKonec SubPrivate Sub List1_click ( ) List1.TopIndex = Hárok2 . 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

Stlačte " F5 " spustiť tento program a poznačte si , keď sa pohybujete posuvníka v prvom zozname dole , sú zodpovedajúce kocky výsledok posúva rovnako . Môžete preukázať užitočnú trik s posuvníky v listbox uzavretím programu s kontrolou " Exit " a vrátiť sa späť na zobrazenie formulára v jazyku Visual Basic . Kliknite na " Cube " listbox a pretiahnite ju tak , že sa vzťahuje na časť pravej strane " Number " listbox . Stlačením tlačidla " F5 " znova spustiť program . Teraz sa zdá , že jeden ovládač upravuje činnosť oboch polí .
5

Zmeniť stĺpca vlastnosť Number listbox z " 0 " na " 1 " . Vráťte posledné číslo v riadku 4 kroku 3 na prečítajte si " to je veľmi dlhý trest , aby vodorovného posúvača . " Stlačte " F5 " znovu vidieť efekt sa vodorovný posúvač.

• Predchádzajúca strana: Ako Ladenie VBS skript 
• Ďalšia strana: Ako zvýšiť veľkosť zásobníka v jazyku Visual Basic