Progress bar avec des couleur personalisables

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (Majbour)