Site:

Cours VB.net

3.17

ProgressBar.

.

ProgressBar de VB 2003

Une progressBar permet de voir la progression d'une opération.

On donne une valeur aux propriétés Minimum et Maximum, la propriété Value permet de positionner la barre.

Souvent on utilise la ProgressBar différemment:

On donne une valeur aux propriétés Minimum et Maximum, on donne un pas (Step); la méthode PerformStep()augmente d'un pas.

Exemple de Microsoft:

filenames() contient une liste de fichier à copier, à chaque fois qu'un fichier est copié, on avance la barre (qui se nomme MyBarre):

Private Sub CopyAvecProgressBar(ByVal ParamArray filenames As String())

' Minimum à 1
MyBarre.Minimum = 1
' Maximum= nombre total de fichier à copier.
MyBarre.Maximum = filenames.Length
' On initialise la ProgressBar.
MyBarre.Value = 1
' On indique le pas.
MyBarre.Step = 1

' Boucle de copie.
Dim x As Integer
for x = 1 To filenames.Length - 1
' Copier un fichier.
If CopyFile(filenames(x - 1)) = True Then
' Si la copie est OK incrémenter la ProgressBar.
      MyBarre.PerformStep()
End If
Next x
End Sub
 

ProgressBar de VB 2005

Fonctionne de la même manière.

MyBarre.Style = ProgressBarStyle.blocks   'indique d'avancer par block

MyBarre.Style = ProgressBarStyle.continuous 'indique d'avancer progressivement

On peut aussi, quand on ne connaît pas la durée du processus, indiquer à la ProgressBar d'avancer de gauche à droite (comme lors de l'ouverture de Windows XP)

MyBarre.Style = ProgressBarStyle.Marquee