Il controllo ListBox utilizzato in Visual Basic non include le barre di scorrimento come proprietà applicabili come fanno altri controlli. Quando le righe di testo all'interno di un controllo ListBox supera l'altezza del controllo ListBox, viene aggiunta automaticamente una barra di scorrimento verticale. Le barre di scorrimento orizzontale vengono visualizzati quando le linee sono più lunghi rispetto alla larghezza del controllo ListBox in un tipo speciale di ListBox che include colonne. La barra di scorrimento verticale aggiunge alcune funzionalità di visualizzazione quando il programma include la codifica corretta associata.

Istruzioni

1

Aprire il software di Visual Basic 6.0 e fare clic su "File" e poi "nuovo progetto. Utilizzare il modello di "EXE Standard" per questo esempio. Salvare il progetto facendo clic su "File", quindi "Salva progetto con nome" e salvare il modulo come "ScrollbarUse" e il progetto come "Uso della barra di scorrimento".

2

Aggiungere due controlli ListBox al form facendo doppio clic due volte su questo controllo nella casella degli strumenti. Disporre le due caselle quindi sono fianco a fianco. Fare clic sul primo controllo ListBox denominato List1 per mostrare le proprietà sul lato destro dello schermo. Fare doppio clic sulla proprietà "Elenco" e sostituire l'impostazione predefinita "(elenco)" con "Numero". Modificare le proprietà di altezza di List1 e List2 "1230" e le proprietà di larghezza di entrambi al 1215. Fare doppio clic sul controllo CommandButton nella casella degli strumenti per aggiungerlo al form. Modificare la proprietà Caption del pulsante "Esci".

3

Sincronizzare entrambi Listbox controlla così quando l'utente scorre verso il basso in uno, la riga corrispondente in altro segue. Per effettuare questa operazione digitando il codice riportato di seguito. Nota: I numeri sono scelti per riempire entrambi i controlli ListBox rapidamente con più linee di può contenere la dimensione scelta nel passaggio 2. In caso contrario non verranno visualizzate le barre di scorrimento. Il "^" simbolo calcola il cubo di ogni numero.

Private Sub Form_Load)
Dim i, n, x As Integer
For i = 1 a 15
Scegliere List1.AddItem (i, "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15")
Successivo
Per n = 1 a 15
List2.AddItem Scegli (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)
Successivo
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
End Sub
Private Sub List2_scroll()
List1.TopIndex = List2.TopIndex
End Sub
Private Sub Command1_Click)
Fine
End Sub

4

Premere "F5" per eseguire questo programma e la nota quando si sposta la barra di scorrimento nel primo elenco verso il basso, il risultato di cubo corrispondente scorre pure. Chiudendo il programma con il comando "Exit" e ritornare alla visualizzazione maschera in Visual Basic, è possibile dimostrare un trucco utile con le barre di scorrimento in un controllo ListBox. Fare clic su casella di riepilogo di "Cubo" e trascinarlo sopra in modo che copre parte del lato destro del controllo ListBox "Numero". Premere "F5" per eseguire nuovamente il programma. Ora sembra un controllo governa le azioni di entrambe le caselle.

5

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

Consigli & Avvertenze

• Aggiungendo il codice di controllo del Mouse, si può fare la mossa di barre di scorrimento in sincronia quando l'utente fa clic su un altro elemento in una lista.
• A differenza delle normali Scrollbar di Visual Basic Proprietà (verticale e orizzontale) in altri controlli come TextBox, non esistono nel controllo ListBox. L'unico modo vedrete le barre di scorrimento è se il contenuto del controllo ListBox supera l'altezza impostata e/o la larghezza.