Le contrôle ListBox utilisé dans Visual Basic ne comprend pas Scrollbars que les propriétés applicables comme les autres contrôles. Lorsque les lignes de texte dans un ListBox dépassent la hauteur de la ListBox, une barre de défilement vertical est automatiquement ajouté. Scrollbars horizontales apparaissent lorsque les lignes sont plus longues que la largeur de la ListBox dans un type particulier de ListBox qui comprend des colonnes. La barre de défilement vertical ajoute des fonctionnalités d`affichage lorsque le programme comprend le codage associé approprié.
Ouvrez le logiciel Visual Basic 6.0 et cliquez sur "Fichier" et alors "Nouveau projet. Utilisez le "EXE standard" modèle pour cet exemple. Enregistrez le projet en cliquant sur "Fichier" suivi par "Enregistrer le projet sous" et enregistrez le formulaire comme "ScrollbarUse" et le projet comme "Barre de défilement Utilisez."
Ajoutez deux contrôles ListBox à la forme en double-cliquant deux fois sur ce contrôle dans la boîte à outils. Disposer les deux boîtes de sorte qu`ils sont côte à côte. Cliquez sur le premier ListBox marqué List1 pour afficher les propriétés sur le côté droit de l`écran. Double-cliquez sur le "liste" la propriété et remplacer le réglage par défaut de "(Liste)" avec "Nombre." Modifier les propriétés de hauteur des deux Liste1 et Liste2 à "1230" et les propriétés largeur des deux à 1215. Double-cliquez sur le contrôle CommandButton dans la boîte à outils pour l`ajouter à la forme. Modifiez la propriété Légende du bouton "Sortie."
Synchroniser les deux Listbox contrôle quand l`utilisateur fait défiler vers le bas en une seule, la ligne correspondante dans l`autre suit. Pour ce faire, en tapant le code ci-dessous. Remarque: Les numéros sont choisis pour remplir rapidement les deux contrôles ListBox avec plus de lignes que la taille choisie à l`étape 2 peut contenir. Sinon, le Scrollbars n`apparaîtra. le "^" symbole calcule le cube de chaque numéro.
Private Sub Form_Load ()
Dim i, n, x As Integer
Pour i = 1 à 15
List1.AddItem Choisissez (i, "1", "2", "3", "4", "5", "6", "7", "8", "9", "dix", "11", "12", "13", "14", "15")
Prochain
Pour n = 1 à 15
List2.AddItem Choisir (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)
Prochain
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 ()
Fin
End Subpresse "F5" pour exécuter ce programme et notez lorsque vous déplacez la barre de défilement dans la première liste déroulante, les correspondant cube résultat défile ainsi. Vous pouvez démontrer une astuce utile avec Scrollbars dans un ListBox en fermant le programme avec le "Sortie" contrôle et revenir en arrière à la vue de formulaire dans Visual Basic. Clique sur le "cube" ListBox et faites-le glisser sur de sorte qu`il couvre une partie du côté droit de la "Nombre" ListBox. presse "F5" pour exécuter à nouveau le programme. Maintenant, il semble un contrôle régit les actions des deux boîtes.
Modifiez la propriété Colonnes de la ListBox Nombre de "0" à "1." Remplacer le dernier numéro de la ligne 4 de l`étape 3 pour lire "ceci est une phrase très longue pour permettre à la barre de défilement horizontale." presse "F5" à nouveau pour voir l`effet d`une barre de défilement horizontale.
Conseils & Avertissements
- En ajoutant le code de contrôle de la souris, vous pouvez faire les Scrollbars se déplacent en synchronie lorsque l`utilisateur clique sur un autre élément dans une liste.
- Contrairement aux propriétés de base réguliers Scrollbar visuels (verticale et horizontale) dans d`autres contrôles comme une zone de texte, ceux-ci n`existent pas dans le contrôle ListBox. La seule façon vous verrez Scrollbars est si le contenu de la ListBox dépassent la hauteur et / ou la largeur définie.
