De ListBox-besturingselement gebruikt in Visual Basic is exclusief Scrollbars zo toepasselijke eigenschappen als andere controles. Wanneer de lijnen binnen een ListBox dan de hoogte van de ListBox , wordt een verticale schuifbalk automatisch toegevoegd . Horizontale schuifbalken verschijnen wanneer de lijnen zijn langer dan de breedte van de ListBox in een speciaal soort ListBox die kolommen bevat . De verticale scrollbar voegt enkele weergave functionaliteit bij het programma omvat de juiste bijbehorende codering . Instructies
1 Open de Visual Basic 6.0 -software en klik op " File " en vervolgens " New Project . Gebruik de "Standard EXE " template voor dit voorbeeld . Sla het project door te klikken op " File " , gevolgd door " Project opslaan als" en sla het formulier als " ScrollbarUse " en het project als " schuifbalk . " Kopen van 2 Voeg twee besturingselementen ListBox aan het formulier door dubbel te klikken tweemaal op deze controle in de Toolbox . Schik de twee dozen , zodat ze naast elkaar . Klik op de eerste ListBox gelabeld Lijst1 om de eigenschappen te tonen aan de rechterkant van het scherm . Dubbelklik op de "Lijst" eigendom en de standaardinstelling " ( List ) " te vervangen door " nummer . " Verander de Hoogte eigenschappen van zowel List1 en List2 naar " 1230 " en de breedte eigenschappen van beide tot 1215 . Dubbelklik op de CommandButton controle in de Toolbox om deze toe te voegen aan het formulier . Wijzig de eigenschap Bijschrift van de knop om " Exit ".
3 Synchroniseer zowel Listbox regelt zodat wanneer de gebruiker scrollt naar beneden in de ene , de overeenkomstige rij in de andere volgt . Doe dit door het typen van de onderstaande code . Opmerking : De nummers worden gekozen om zowel ListBox met meer lijnen dan de gekozen in stap 2 grootte kan vasthouden vullen controles snel . Anders wordt de schuifbalken zal niet verschijnen . De " ^ " symbool berekent de kubus van elk nummer . Private Sub Form_Load ( ) op Dim i , n , x Als IntegerFor i = 1 To 15List1.AddItem kiezen ( i , " 1 " , " 2 " , , " 3 " , " 4 " , " 5 " , " 6 " , " 7 " , " 8 " , " 9 " , " 10 " , " 11 " , " 12 " , , " 13 " , " 14 " , " 15 " ) NextFor n = 1 aan 15List2.AddItem Kies ( n , 1 ^ 3 , 2 ^ 3 3 3 ^ , 4 ^ 3 ^ 3 5 , 6 ^ 3 , 7 ^ 3 , 8 ^ 3 , 9 ^ 3 , 10 ^ 3 , 11 ^ 3 , 12 ^ 3 , 13 ^ 3 , 14 ^ 3 , 15 ^ 3 ) VolgendeEinde 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
Druk op " F5 " 4 op dit programma en mee te voeren wanneer u naar de schuifbalk in de eerste lijst naar beneden , de bijpassende kubus resultaat schuift ook. U kunt een handige truc te tonen met schuifbalken in een ListBox door het sluiten van het programma met de "Exit " controle en terugkeer terug naar het formulier weergave in Visual Basic . Klik op de " Cube " ListBox en sleep het dan zo het dekt een deel van de rechterzijde van het " nummer " ListBox . Druk op " F5 " om het programma opnieuw uit te voeren . Nu lijkt het een controle betreft de acties van beide vakken .
5 het eigendom Kolommen van het nummer ListBox wijzigen van " 0 " naar " 1 . " Vervang het laatste nummer in de lijn 4 van stap 3 tot lees " dit is een zeer lange zin om de horizontale schuifbalk in te schakelen. " Druk op "F5 " om het effect te zien met een horizontale scrollbar .
|
