la barre de progression nécessite une picureboxbox appelé selon vos désirs, il suffit de rentrer le nom de la picturebox dans le premier argument de la fonction
Source / Exemple :
Public Sub GraphProgressBar(image As PictureBox, Pourcentage As Integer, Horizontal As Boolean, Optional AfficherTexte As Boolean = True, Optional CouleurFond As Long = vbRed, Optional TailleTexte As Integer = 8, Optional CouleurTexte As Long = vbBlack)
Dim SPourcentage As String
If Pourcentage < 0 Or Pourcentage > 100 Then Exit Sub
SPourcentage = Pourcentage & "%"
ScaleMode = 3
image.Line (0, 0)-(image.ScaleWidth, image.ScaleHeight), image.BackColor, BF
If Horizontal = True Then image.Line (0, 0)-((image.ScaleWidth / 100) * Pourcentage, image.ScaleHeight), CouleurFond, BF Else image.Line (0, image.ScaleHeight)-(image.ScaleWidth, image.ScaleHeight - (Pourcentage * (image.ScaleHeight / 100))), CouleurFond, BF
image.CurrentX = (image.ScaleWidth - image.TextWidth(SPourcentage)) / 2
image.CurrentY = (image.ScaleHeight - image.TextHeight(SPourcentage)) / 2
image.FontSize = TailleTexte
image.FontBold = True
image.ForeColor = CouleurTexte
image.Print IIf(AfficherTexte = True, SPourcentage, "")
End Sub
Conclusion :
Bof mais assez pratique
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.