Barre de progression progressbar plus puissante

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 168 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

dread2010
Messages postés
5
Date d'inscription
mercredi 16 mai 2007
Statut
Membre
Dernière intervention
19 mai 2007
-
on peut aussi ajouter progress bars intialiseé la par par prog---click deux fois sur la progress bars-créer le code suivant.. prog=prog+1 ,,.c'est tout....
N.B
on peut ajouter aussi time pour définir chaque quelque temps la progress bars aura ajouté
cs_calimero93
Messages postés
29
Date d'inscription
vendredi 14 mars 2003
Statut
Membre
Dernière intervention
10 décembre 2004
-
toujour pas de commentaire !!!!!!
Le zip :)
Comme tu es fort ADSL mdrrrrrrr!!!(d'ailleurs pour prendre un pseudo aussi con, faut l'être)
T'as pas le zip ?

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.