Come usare Scrollbar Con casella di riepilogo in Visual Basic 6.0

July 7

Come usare Scrollbar Con casella di riepilogo 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, viene automaticamente aggiunta una barra di scorrimento verticale. Barre di scorrimento orizzontali appaiono quando le linee sono più lungo 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 corretta codifica associato.

istruzione

1 Aprire il software Visual Basic 6.0 e fare clic su "File" e poi "Nuovo progetto. Utilizzare il modello "EXE standard" per questo esempio. Salvare il progetto facendo clic su "File", seguito da "Salva progetto con nome" e salvare il modulo come "ScrollbarUse" e il progetto come "barra di scorrimento Usa."

2 Aggiungere due controlli ListBox al modulo con un 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 lista etichettata List1 per mostrare le proprietà sul lato destro dello schermo. Fare doppio clic sulla proprietà "Lista" e sostituire l'impostazione di default di "(List)" con "Numero". Modificare le proprietà altezza di entrambi List1 e List2 a "1230" e le proprietà Width di entrambi per 1215. Fare doppio clic su sul controllo CommandButton nella casella degli strumenti per aggiungere al modulo. Modificare la proprietà Caption del pulsante di "Exit".

3 Sincronizza sia Listbox controlla in modo che quando l'utente scorre verso il basso in uno, riga corrispondente nell'altra segue. A tale scopo, digitando il codice elencato di seguito. Nota: I numeri sono scelti per riempire rapidamente entrambi i controlli ListBox con più linee rispetto alla grandezza scelta al punto 2 può contenere. In caso contrario, le barre di scorrimento non apparirà. Il simbolo "^" calcola il cubo di ogni numero.

Private Sub Form_Load ()
Dim i, n, X As Integer
Per i = 1 a 15
List1.AddItem Scegli (i, "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11" , "12", "13", "14", "15")
Il prossimo
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)
Il prossimo
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 il tasto "F5" per eseguire questo programma e notare quando si sposta la barra di scorrimento nel primo elenco verso il basso, i rotoli risultato corrispondente cubo pure. È possibile dimostrare un trucco utile con barre di scorrimento in una ListBox chiudendo il programma con il comando "Exit" e ritornare alla visualizzazione form in Visual Basic. Clicca sul ListBox "Cube" e trascinare il puntatore in modo da coprire una parte del lato destro della ListBox "Numero". Premere il tasto "F5" per eseguire nuovamente il programma. Ora sembra un controllo governa le azioni di entrambe le caselle.

5 Modificare la proprietà Colonne del numero ListBox da "0" a "1" Sostituire l'ultimo numero in linea 4 della Fase 3 per leggere "questa è una frase molto lunga per attivare la barra di scorrimento orizzontale." Premere il tasto "F5" per vedere l'effetto con una barra di scorrimento orizzontale.

Consigli e avvertenze

  • Con l'aggiunta di codice di controllo del mouse, è possibile rendere le barre di scorrimento si muovono in sincronia, quando l'utente fa clic su un altro elemento in una sola lista.
  • A differenza delle normali caratteristiche di base Scrollbar visivi (verticale e orizzontale) in altri controlli, come un TextBox, questi non esistono nel controllo ListBox. L'unico modo si vedrà barre di scorrimento è se il contenuto della casella di riepilogo superare l'altezza set e / o larghezza.