Come utilizzare Barra di scorrimento con ListBox in Visual Basic 6.0

Il controllo ListBox utilizzato in Visual Basic non include barre di scorrimento come proprietà applicabili come fanno altri controlli . Quando le righe di testo all'interno di una ListBox superano l'altezza della ListBox , una barra di scorrimento verticale viene aggiunto automaticamente. Barre di scorrimento orizzontali appaiono quando le linee sono più lunghe della larghezza della ListBox in un particolare tipo di ListBox che include colonne. La barra di scorrimento verticale aggiunge alcune funzionalità di visualizzazione quando il programma prevede la codifica corretta associati . Istruzioni
1

Aprire il software di Visual Basic 6.0 e fare clic su "File " e poi " Nuovo progetto. Utilizzare il modello " standard EXE" per questo esempio . Salvare il progetto facendo clic su "File " e poi " Salva progetto con nome " e salvare il modulo come " ScrollbarUse " e il progetto come " Barra di scorrimento uso".
2

Aggiungere due controlli ListBox al form facendo doppio clic due volte su questo controllo nella casella degli strumenti . Disporre le due caselle in modo che siano fianco a fianco. Fare clic sulla prima ListBox etichettato List1 per visualizzare le proprietà sul lato destro dello schermo . Fare doppio clic sulla proprietà "Lista" e sostituire l' impostazione di default " (List) " con " Numero ". Modificare le proprietà Height di entrambi List1 e List2 a " 1230 " e le proprietà Width di entrambi al 1215. Fare doppio clic sul controllo CommandButton nella Casella degli strumenti per aggiungerlo al form. Modificare la proprietà Caption del pulsante su " Exit ".
3

Sincronizza sia Listbox controlla in modo che quando l' utente scorre verso il basso in una, la riga corrispondente nell'altra segue . A tale scopo, digitare il codice riportato di seguito. Nota : I numeri sono scelti per riempire sia ListBox controlli velocemente con più linee rispetto alla taglia scelta al punto 2 può contenere. Altrimenti non appariranno le barre di scorrimento . Il simbolo "^" calcola il cubo di ogni numero .

Private Sub Form_Load ( ) Dim i, n , x quanto IntegerFor i = 1 To 15List1.AddItem scegliere (i, " 1 " , " 2" , , "3" , " 4" , " 5 " , " 6 " , " 7 " , " 8 " , " 9 " , " 10 " , "11" , " 12" , , "13" , " 14 " , "15" ) NextFor n = 1 Per 15List2.AddItem Choose (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) Succ.Fine 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

Premere " F5 " per eseguire questo programma e nota quando si sposta la barra di scorrimento nella prima discesa, i corrispondenti cubo risultato scorre pure. È possibile dimostrare un trucco utile con barre di scorrimento in un controllo ListBox con la chiusura del programma con il comando "Exit" e ritornare alla visualizzazione form in Visual Basic. Clicca sulla ListBox "Cube" e trascinare il puntatore in modo che copre parte del lato destro della ListBox "Numero" . Premere il tasto " F5 " per eseguire nuovamente il programma . Ora sembra una regola di controllo le azioni di entrambe le caselle .
5

Modificare la proprietà Columns della ListBox numero da " 0" a " 1 ". Sostituire l'ultimo numero nella riga 4 del punto 3 per leggere " questa è una frase molto lunga per attivare la barra di scorrimento orizzontale . " Premere " F5 " per vedere l'effetto con una barra di scorrimento orizzontale .

• Come eseguire il debug di uno script VBS 
• Come aumentare la dimensione dello stack in Visual Basic