Progress bar avec des couleur personalisables

Soyez le premier à donner votre avis sur cette source.

Vue 5 567 fois - Téléchargée 736 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
Psykos7 Messages postés 60 Date d'inscription dimanche 15 octobre 2000 Statut Membre Dernière intervention 21 février 2008
13 oct. 2003 à 01:37
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.
cs_TheHacker Messages postés 442 Date d'inscription samedi 23 novembre 2002 Statut Membre Dernière intervention 19 octobre 2005
11 oct. 2003 à 02:56
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 @+
Majbour Messages postés 42 Date d'inscription jeudi 27 février 2003 Statut Membre Dernière intervention 1 décembre 2003
10 oct. 2003 à 20:31
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 ?
cs_legion91 Messages postés 216 Date d'inscription mercredi 5 février 2003 Statut Membre Dernière intervention 15 décembre 2010
10 oct. 2003 à 18:01
ouais mais komment faire pour k sa ce surperpose ?
Majbour Messages postés 42 Date d'inscription jeudi 27 février 2003 Statut Membre Dernière intervention 1 décembre 2003
10 oct. 2003 à 12:14
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.