La barre de progression est l'un des contrôles plus simples dans Visual Basic. La barre des rapports sur l' état de certains fonctionnement de l'ordinateur , par exemple lors de l'installation d'un nouveau logiciel ou d'un autre processus de longue haleine comme le transfert de fichiers en réseau . Le bar offre à l'utilisateur une certaine assurance que le programme n'a pas écrasé . Le processus est le même dans les deux Visual Basic 6.0 et Visual Basic 2008 Express Edition , bien que le code de ce dernier est légèrement différente. Comment ça marche
comme une opération produit , le code lit en permanence combien est terminée et calcule l'état . Si la valeur minimale est définie sur un et un maximum de 100 , la barre se remplira la moitié de l' affichage de la barre quand 50 pour cent de l'opération est terminée . Pour effectuer ce calcul , le programmeur doit savoir combien de temps l'opération va prendre. Par exemple, si l'utilisateur est le téléchargement d'un fichier de cinq MB , au moment où 2,5 Mo ont téléchargé , le bar sera déplacé à l'autre bout .
Créer une barre de progression
< p> Commencez par créer un nouveau projet après l'ouverture de Visual Basic. Cliquez sur " Fichier", " Nouveau projet " et sélectionnez le " format EXE Standard». Ajoutez le contrôle ProgressBar en cliquant sur " projeter", " Composants ". Trouvez les contrôles communs Microsoft Windows dans la liste. Choisissez les contrôles communs Microsoft Visual Basic ( SP6) en plaçant une coche dans la case à côté du contrôle. Cliquez sur « Appliquer » et « OK ». Vous devriez voir le contrôle dans la liste dans le panneau de gauche. Double-cliquez dessus pour l'ajouter à la forme .
Définir les propriétés
Si vous travaillez avec une opération où le pourcentage d'achèvement est facile à calculer comme le téléchargement d'un fichier , définissez la propriété minimum dans le panneau Propriétés à "1" et le maximum de "100 ". Une autre façon de mettre le maximum est d'avoir le code de compter le nombre d'itérations de certaines opérations , comparer au nombre total , et de calculer où la barre devrait être. Propriétés Left hauteur et de contrôler la hauteur de la barre elle-même et où il apparaît à gauche de l'écran. Seulement deux autres propriétés question : si la barre traverse l'écran verticalement ou horizontalement et si des morceaux supplémentaires apparaissent ou la barre est plus lisse . Choisissez ceux de la « Orientation » et « Propriétés de défilement . " Si le maximum n'est pas prédéterminée , il est possible d'utiliser une commande d'animation afin de maintenir la barre en mouvement jusqu'à ce que l'opération est terminée . Cette amélioration va au-delà du niveau de ce tutoriel. Depuis le bar ne doit pas apparaître jusqu'à ce qu'une opération commence , définissez la propriété Visible de «faux». Pour cet exemple , définissez la propriété Maximum pour «10000» et laisser le minimum à «0». Enfin , ajoutez un contrôle bouton de commande à partir de la liste des outils à la forme d'engager une action . Changer la propriété (Name ) pour " btnStart " et la légende de "Démarrer".
Écrire le code
Cliquez sur " Voir ", " code " pour ouvrir la fenêtre de programmation . Tapez les lignes ci-dessous exactement comme indiqué . Les trois premières lignes charger le formulaire et faire apparaître la barre de progression visible. Le reste du code est exécuté à travers une séquence répétitive de démontrer la barre . Le nombre final de ce code est placée très haut pour ralentir la barre de progression vers le bas pour une meilleure visibilité . Remplacer les étapes de la deuxième section commence par « Private Sub btnStart_Click () et se terminant par" End Sub "avec un événement quelconque, vous êtes synchronisation pour obtenir un nouveau ProgressBar1.Value . Toujours ajouter une commande pour modifier la visibilité de la barre à " False " lorsque les finitions de routine .
Private Sub Form_Load () ProgressBar1.Visible = TrueEnd Sous
Private Sub btnStart_Click () Dim n Comme IntegerFor n = 1 à 10000ProgressBar1.Value = Nnext nEND Sub < br >
tester le code en appuyant sur la touche " F5" .
Visual Basic 2008 Express Edition Version
Dans Visual Basic 2008, remplaçant les lignes suivantes pour les lignes commençant Private Sub :
Private Sub Form1_Load ( eventSender ByVal comme System.Object , ByVal eventArgs comme System.EventArgs ) Handles MyBase.LoadPrivate Sous btnStart_Click ( eventSender ByVal comme System.Object , ByVal eventArgs comme System.EventArgs ) Poignées btnStart.Click
