Das ListBox-Steuerelement in Visual Basic verwendet nicht enthalten Scrollbars als die entsprechenden Eigenschaften wie andere Steuerelemente zu tun. Wenn die Linien von Text in einem ListBox die Höhe des ListBox übersteigen, wird eine vertikale Scrollbar automatisch hinzugefügt. Horizontale Scrollbalken erscheinen, wenn die Leitungen länger als die Breite des ListBox in einer speziellen Art von ListBox , die Spalten enthalten sind . Die vertikale Scrollbar fügt einige Display-Funktionalität , wenn das Programm enthält die richtigen zugeordneten Codierung. Anleitung
1
Öffnen Sie die Visual Basic 6.0-Software und klicken Sie auf "Datei" und dann auf " Neues Projekt. Benutzen Sie den " Standard EXE " Vorlage für dieses Beispiel. Speichern Sie das Projekt , indem Sie auf "Datei " durch " Projekt speichern unter " und speichern Sie das Formular als " ScrollbarUse " und das Projekt wie folgt " Bildlaufleiste verwendet wird. "
2
In zwei ListBox-Steuerelementen zum Formular durch Doppelklick zweimal auf dieser Steuerelement in der Toolbox . Ordnen Sie die beiden Boxen so sind sie nebeneinander. Klicken Sie auf das erste ListBox markiert List1 , um die Eigenschaften auf der rechten Seite des Bildschirms zeigen . Auf der "Liste" Eigenschaft Doppelklick und setzen Sie die Standardeinstellung " (List) " mit "Number . " Wechseln Sie die Höhe Eigenschaften sowohl List1 und List2 zu " 1230 " und die Breite der beiden Eigenschaften bis 1215 . Auf dem CommandButton-Steuerelement in der Toolbox doppelklicken, um es zum Formular hinzufügen . Ändern Sie die Caption -Eigenschaft der Schaltfläche auf " Exit".
3
Synchronisieren sowohl Listbox so steuert , wenn der Benutzer nach unten scrollt in einem, folgt die entsprechende Zeile in der anderen. Tun Sie dies , indem Sie die unten aufgeführten Code . Hinweis: Die Nummern werden gewählt, um sowohl ListBox füllen Kontrollen schnell mit mehr Zeilen als die Größe in Schritt 2 gewählt halten kann . Ansonsten sind die Scrollbars nicht angezeigt. Die "^ "-Symbol berechnet die Würfel jeder Nummer.
Private Sub Form_Load () Dim i , n, x As IntegerFor i = 1 To 15List1.AddItem Wählen Sie (i, "1" , "2" , " 3", " 4" , "5" , "6" , "7" , "8" , "9" , "10" , "11" , "12" ; , " 13 ", " 14", "15") NextFor n = 1 To 15List2.AddItem wählen (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 ) WeiterEnde 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
Presse "F5 ", um dieses Programm ausführen und beachten Sie , wenn Sie die Scrollbar in der ersten Liste nach unten bewegen , die passenden Würfel Ergebnis Schriftrollen als gut. Sie können einen nützlichen Trick mit Scrollbalken in einer ListBox demonstrieren , indem das Programm mit der "Exit" -Steuerung und wieder zurück zu der Form in Visual Basic. Klicken Sie auf den " Cube " ListBox und ziehen Sie sie über so es Teil der rechten Seite des "Number" ListBox abdeckt. Drücken Sie auf " F5" , um das Programm erneut ausführen. Nun scheint es, eine Steuerung regelt die Aktionen der beiden Boxen .
5
Ändern Sie die Spalten -Eigenschaft des ListBox Anzahl von "0" auf "1 ". Ersetzen Sie die letzte Zahl in Zeile 4 der Schritt 3, um lesen "Dies ist ein sehr langer Satz , um die horizontale scroll-Leiste zu ermöglichen. " Presse " F5 " erneut, um den Effekt mit einer horizontalen Scrollbalken zu sehen.
