|
Le contrôle ListBox utilisé dans Visual Basic ne comprend pas les barres de défilement comme propriétés applicables comme le font d'autres contrôles. Lorsque les lignes de texte dans une zone de liste dépasse la hauteur de la zone de liste , une barre de défilement verticale est automatiquement ajouté . Les barres de défilement horizontales apparaissent lorsque les lignes sont plus longues que la largeur de la zone de liste dans un type spécial de zone de liste qui comporte des colonnes . La barre de défilement vertical ajoute des fonctionnalités d'affichage lorsque le programme comprend le codage associés appropriés. Instructions
1 Ouvrez le logiciel Visual Basic 6.0 et cliquez sur " Fichier" puis "Nouveau projet . Utiliser le modèle " standard EXE " pour cet exemple. Enregistrez le projet en cliquant sur " Fichier" puis " Enregistrer le projet sous " et enregistrez le formulaire sous " ScrollbarUse " et le projet de « barre de défilement utilisation . "
2 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'elles sont côte à côte . Cliquez sur la première liste nommée List1 pour afficher les propriétés sur le côté droit de l'écran. Double -cliquez sur la propriété "Liste" et remplacer le paramètre par défaut " ( List) " par " Nombre ". Modifiez les propriétés de hauteur des deux List1 et List2 à " 1230 " et les propriétés de largeur des deux pour 1215. Double -cliquez sur le contrôle bouton de commande dans la boîte à outils pour l'ajouter à la forme . Modifier la propriété Caption du bouton " Quitter".
3 synchroniser les deux commandes de liste déroulante si lorsque l'utilisateur fait défiler en un seul, la ligne correspondante dans l'autre suit . Pour ce faire, en saisissant le code ci-dessous. Note: Les numéros sont choisis pour remplir les deux contrôles ListBox rapidement avec plus de lignes que la taille choisie à l'étape 2 peut contenir. Sinon, les barres de défilement ne s'affichent pas. Le symbole "^" calcule le cube de chaque numéro .
Private Sub Form_Load ( ) Dim i , n, x As IntegerFor i = 1 To 15List1.AddItem Choisir (i, "1" , "2" ; , "3" , "4" , "5 ", " 6 ", " 7 ", " 8 ", " 9 ", " 10 ", " 11", "12" ; , "13" , "14" , "15" ) NextFor n = 1 à 15List2.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 ) NextEnd SubPrivate Sous List1_click () List1.TopIndex = List2 . TopIndexList1.ListIndex = List2.ListIndexEnd SubPrivate Sous List2_click () List2.TopIndex = List1.TopIndexList2.ListIndex = List1.ListIndexEnd SubPrivate Sous List1_Scroll () List2.TopIndex = List1.TopIndexEnd SubPrivate Sous List2_scroll () List1.TopIndex = List2.TopIndexEnd SubPrivate Sub Command1_Click () EndEnd Sous
4 Appuyez sur " F5 " pour exécuter ce programme et la note lorsque vous déplacez la barre de défilement dans la première liste déroulante , le cube correspondant défile résultat aussi. Vous pouvez montrer un truc utile avec barres de défilement dans un ListBox en fermant le programme avec la commande "Exit" et revenir en arrière à la vue de formulaire dans Visual Basic. Cliquez sur la zone de liste "Cube" et faites-la glisser de sorte qu'il couvre une partie de la droite de la zone de liste «Numéro» . Appuyez sur la touche "F5 " pour exécuter le programme. Maintenant, il semble qu'on gouverne de contrôler les actions des deux cases.
5 Changer la propriété Columns de la ListBox Nombre de "0" à "1". Remplacer le dernier numéro de la ligne 4 de l'étape 3 pour lire " c'est une très longue phrase pour activer la barre de défilement horizontale. " Appuyez sur "F5 " pour voir l'effet d'une barre de défilement horizontale .
|
