Le contrôle de barre de progression dans Visual Basic donne une représentation visuelle de la progression d'une fonction dans le programme. Après l'ajout d'une barre de progression pour la forme , définir les valeurs minimales et maximales , ainsi que sa valeur de départ . La valeur maximale dépend largement de ce que vous avez besoin de la barre de progression à suivre, qui pourrait être quelque chose d'aussi petit que le suivi de la progression d'un utilisateur pendant un quiz ou lire des milliers de lignes lues depuis un fichier texte . Peu importe le but , comment vous mettez à jour la barre de progression reste le même. Instructions
1
Ouvrez un projet Visual Basic. Double-cliquez sur la " barre de progression " contrôle sur la barre d'outils pour ajouter " ProgressBar1 " pour la forme . Double- cliquez sur le contrôle " du bouton " ajouter " Button1" pour la forme .
2
presse "F7 " pour ouvrir la fenêtre de code . Ouvrez le sous-programme " Form1_Load " et tapez la commande suivante :
ProgressBar1.Minimum = 0ProgressBar1.Maximum = 5ProgressBar1.Value = 0
Ce code définit les valeurs de départ pour la variable d'avancement , ainsi que les valeurs minimales, maximales et actuelles de la barre de progression . Vous pouvez définir une valeur maximale différente en fonction de ce que vous avez besoin de la barre de progression pour
3
Ouvrez le sous-programme " Button1_Click " et tapez la commande suivante : .
Si ProgressBar1 . Valeur < ProgressBar1.Maximum ThenProgressBar1.Value + = 1Si ProgressBar1.Value = ProgressBar1.Maximum ThenMsgBox ( "Terminé! ") End IfEnd Si
Lorsque l'utilisateur clique sur le bouton , ce code vérifie si la barre de progression est inférieure à la valeur maximale. Si oui, il incrémente la valeur d'une unité , provoquant la barre de progression sur le formulaire se montrer plus fin ainsi . Il vérifie ensuite à nouveau pour voir si la valeur a atteint le maximum . De cette façon, lorsque la barre de progression ne atteindre le maximum, vous ne pouvez pas augmenter la valeur plus loin et donc d'éviter une erreur out- of-range .