Barre de progression progressbar plus puissante

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 060 fois - Téléchargée 65 fois

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

Ajouter un commentaire

Commentaires

Commenter la réponse de fredo

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.