Barre de progression progressbar plus puissante

Commenter

Contenu du snippet

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

A voir également

S'inscrire maintenant

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.