Progress bar avec des couleur personalisables

Soyez le premier à donner votre avis sur cette source.

Vue 5 209 fois - Téléchargée 723 fois

Description

Voilà ici une barre de progression personalisable pour débutants.
Vous donnez les couleurs que vous voulez, et hop, ça marche.
L'idée n'est pas de moi, il appartient à Ouneufe
Moi je n'ai fait qu'améliorer les chose, le VB
se bloquait pendant l'execution en attendant la fin de progression
Si vous trouvez un bug (apart le nombre 350000 (la Variable 'PctNbre')
que j'ai utilisé pour cette largeur quand vous voulez changer de largeur, vous devez le changer)...
Contactez moi ici 'amajbour@hotmail.com'
N'oubliez pas de me donner des idées, j'en ai trop besoin pour améliorer mes connaissances en VB
Fait le Jeudi 9 Octobre 2003
Mis à jour le Vendredi 10 Octobre 2003

Source / Exemple :


'######################## Code ajouté ########################'
Private Sub Form_Load()
    'Initialisation de la Barre
    PctNbre = 350000
    PicProgress.Width = 0

    '###################################
    '# Ajouté dans la deuxième version #
    '###################################
    'Initialisation des couleurs des pictures et labels
    PicPB.BackColor = vbWhite
    lblOver.ForeColor = vbBlack
    
    PicProgress.BackColor = vbBlack
    lblDown.ForeColor = vbWhite
    'J'ai choisis de le mettre en 'Monochrome' (Blanc et noir)
    'à vous de choisir vos couleurs
    
    '###################################
    '# Ajouté dans la deuxième version #
    '###################################
End Sub
'######################## Code ajouté ########################'
Private Sub PBTimer_Timer()
    'Si la barre atteint la fin on arrête l'avancement
    If PicProgress.Width >= PicPB.Width Then cmdRun.Caption = "Relancer": Exit Sub

    'Avancement de la barre par 100 Twips à chaque fois
    PicProgress.Width = PicProgress.Width + 100

    'Largeur de la barre mère
    PicWidth = PicProgress.Width / 100

    'Affichage du résultat dans les deux étiquettes
    lblDown.Caption = "Progression : " & FormatPercent((PicPB.Width * PicWidth) / PctNbre, 0)
    lblOver.Caption = lblDown.Caption
End Sub

Conclusion :


Tout est dans le zip
Envoyez moi un mail si vous trouvez une solution pour la variable PctNbre.
Merci

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
63
Date d'inscription
dimanche 15 octobre 2000
Statut
Membre
Dernière intervention
21 février 2008

sinon il y a un autre moyen : utiliser des cadres ou l'on applique le type 13 dans les proprietes du cadre (shape) au dessus de l'autre

ainsi l'effet de couleur inversé et mieux rendu (la couleur du "xx %" qui s'inverse quand le cadre le recouvre...

contactez-moi sur Psykos_7@caramail.com pour toute info a l'utilisation des cadres pour une progressbar.
Messages postés
442
Date d'inscription
samedi 23 novembre 2002
Statut
Membre
Dernière intervention
19 octobre 2005

ouai c une bonne idée, sinon tu peux aussi juste mettre un PictureBox, et le colorier au fur et a mesure en faisant des rectangles d'une taille et position donéne en fonction de la progression.

Sinon2: ya l'API SendMessage qui colorie vraiment le progressbar sans passer par un PictureBox ni autres objets, il permet aussi de colorier le fond, voila @+
Messages postés
42
Date d'inscription
jeudi 27 février 2003
Statut
Membre
Dernière intervention
1 décembre 2003

legion91 :
tu crées d'abord la PictureBox 'picPB', tu crées un label sur la feuille, 'lblOver', tu le coupe et tu le colle dans la PictureBox 'picPB'.

Ensuite tu refais la même chose (tu crées la PictureBox et le Label) ou bien tu copie la Picture, et tu la colle dans le PictureBox 'picPB' en répondant 'Non' au message qui apparaît pour groupe de contrôles.

Après, tu la renommes : 'picProgress', tu change la propriété BorderStyle, pour que de soit '0-None' et tu change la couleur.

Les label doivent être transparents 'BackStyle = 0-Transparent' pour ne pas donner une mauvaise vu.

Je crois que c'est tout.
Un autre question ?
Messages postés
216
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
15 décembre 2010

ouais mais komment faire pour k sa ce surperpose ?
Messages postés
42
Date d'inscription
jeudi 27 février 2003
Statut
Membre
Dernière intervention
1 décembre 2003

J'ai mis la source à jour.
merci zelze pour l'explication.
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.