Barre de progression progressbar plus puissante

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 707 fois - Téléchargée 67 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
17 mai 2007 à 13:24
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
28 mai 2004 à 08:44
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 ?
Afficher les 8 commentaires

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.