Discussion :

[Ramdoulou]

Bonsoir.

Pour tous les débutants qui cherchent à faire une Progressbar, autrement dit une barre de chargement ou de progression, vous êtes tombé sur le bon topic =p.

Si un article semblable à celui-ci a déjà été crée, veuillez m'excuser.

Allé on commence.


Déjà, quels sont les composants qui vont être utilisés, bonne question...

Nous allons rajouter quelques composants qui par défault, ne sont pas dans la barre des composants.

Pour cela, faites un clique droit sur la barre des composants et séléctionnez "Composants" , vive les répétitions, désolé xD.

Une fenêtre s'ouvre et vous affiche une liste de composants qui peuvent être cochés, et donc ajoutés.

Pour realiser notre projet, il va déjà nous falloir la barre de progression, appellée donc Progressbar.

Cochez le pack de composants appellé "Microsoft Windows Common Controls 6.0 (SP4)".

Et de nouveaux outils apparaissent dans votre barre de composants.

Passons aux choses "serieuses".

Séléctionnez le composant Progressbar, et placez le sur votre form.
Nous allons appeller cette Progressbar "pg", qui se renomme en la selectionnant et en éditant l'option "(name)", qui par défault est "Progressbar1".

Ajoutez un timer, qui est représenté dans votre barre de composants par une petite horloge. Laissez son nom par défault mais mettez l'option "Enabled" en False, et définissez l'option "Interval" à 25.

Ajoutez ensuite, un Bouton, qui est représenté dans votre barre de composants par un petit rectangle gris. Nous allons l'appeller "cmd".

Le principe est le suivant :
Lorsque l'on clique sur le CommandButton, autrement dit, le bouton, le timer s'enclenche, et donc la progressbar aussi.
Seulement, la progressbar doit se stopper dès qu'elle est "remplie" au maximum.

Vous devrez obtenir le resultat suivant :



Alors, passons au code.

Dans le CommandButton, inscrivez le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Timer1.enabled = true

Ensuite, dans le timer1, insérez le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
pg.max = 100
if pg.value = pg.max then pg.value = 99
pg.value = pg.value + 1

Et voilà, executez votre projet et ça marche ^^.

Vous pourrez par la suite, ajouter des suppléments, comme un message à la fin, ou l'affichage en pourcentages de la progression de la barre etc...

Ce tuto peut apprendre aux debutants, le principe du systeme de condition, qui est capital.

J'espere qu'il servira à certaine personne, et je vous remerci d'avance d'avoir lu mon tuto =)

Sur ce bonne soirée.

[Delbeke]

J'aimerais te féliciter pour la peine que tu pris pour ce petit tuto.
Merci pour les débutants qui trouveront la les premiers pas pour utiliser le composant progressbar .

[Ramdoulou]

C'est moi qui te remerci pour tes félicitations

[Delbeke]

Puis je suggérer quelques petites idées pour améliorer ton tuto?

[Ramdoulou]

Ah oui il n'y a pas de problemes, bien au contraire, ça pourrait m'apprendre des choses à moi aussi =p

[Delbeke]

Je te propose de déplacer la ligne pg.max = 100 dans le code pour le bouton. Il est en effet inutile de répeter cette instruction à chaque fois que le timer est déclenché.
Je te propose egalement d'arreter le timer quand la valeur max est ateinte. donc il ne serait plus nescessaire de limiter pg.value
Ce qui donnerait pour ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Private Sub Command1_Click()
  Pg.Max = 100
  Timer1.Enabled
End Sub
Private Sub Timer1_Timer()
  Pg.Value = Pg.Value + 1
  If Pg.Value = 100 Then
    Timer1.Enabled = False
  End If
End Sub

[Ramdoulou]

C'est vrais que c'est beaucoup plus simple, au debut de ce tuto, je voulais à la fin, arreter le timer, puis afficher un MsgBox basique, mais je me suis dis que déjà la base de la Progressbar ca sera bien ^^


Merci de ton code

[yen.s1]

vos idées et les exemple fonctionnent bien

[Kajurima]

Bonjour/Bonsoir je voudrais que vous m'aidiez car j'ai une erreur dans les codes ça me fait 'max' n'est pas un membre de 'System.Windows.Forms.ProgressBar'

[ProgElecT]

Salut Kajurima, bienvenue sur DVP

Le code est pour VB6 et antérieur, alors que 'System.Windows.Forms.ProgressBar' me semble être du VB.net.