Progress bar couleurs differentes
Description
Bonjour,
Je pense que le code est certainement deja disponible je ne veux pas faire une source de plus mais j'espere que l'explication qui accompagne le code permettra a ceux qui se prennent la tete la dessus de pouvoir comprendre le fonctionnement. Le controle progress bar ne permet malheuresement pas de changer la couleur du controle il faut passer par une picture box.
J'espère avoir été clair dans les explications. Si il manque quelque chose faite le moi savoir.
Merci d'avance pour vos remarques.
Je pense que le code est certainement deja disponible je ne veux pas faire une source de plus mais j'espere que l'explication qui accompagne le code permettra a ceux qui se prennent la tete la dessus de pouvoir comprendre le fonctionnement. Le controle progress bar ne permet malheuresement pas de changer la couleur du controle il faut passer par une picture box.
Source / Exemple :
'================================================================================== 'PROCEDURE D'ALIGNEMENT POUR UNE IMAGE EN FORME DE PROGRESS BAR = '================================================================================== Public Sub PROCEDURE_MAJPROGRESSBAR(PIC_PROGRESSBAR As PictureBox, PIC_LBL_POSITION As Label, ACT_POSITION As Double, MAX_POSITION As Double, Optional PIC_COULEUR As String = &HC0C0&) PIC_PROGRESSBAR.Cls PIC_LBL_POSITION.Caption = ACT_POSITION & "/" & MAX_POSITION PIC_PROGRESSBAR.ForeColor = PIC_COULEUR PIC_PROGRESSBAR.ScaleWidth = MAX_POSITION PIC_PROGRESSBAR.Line (-10, -10)-(ACT_POSITION, PIC_PROGRESSBAR.Height + 75), PIC_PROGRESSBAR.ForeColor, BF PIC_PROGRESSBAR.Refresh End Sub '================================================================================== 'CONTROLE LST_BOX = '================================================================================== Private Sub LST_PROJECT_Click() PROCEDURE_MAJPROGRESSBAR PIC_PROGRESS, LBL_PICPRGSPOSITION(0), LST_PROJECT.ListIndex + 1, LST_PROJECT.ListCount, &H4080& End Sub '================================================================================== 'DECOMPOSITION = '================================================================================== 'PROCEDURE_MAJPROGRESSBAR : NOM D'APPEL POUR LA PROCEDURE 'PIC_PROGRESS : NOM DU CONTROLE PICTURE BOX 'LBL_PICPRGSPOSITION(0) : NOM DU CONTROLE LABEL BOX POUR AFFICHER LE NUMERO ACTUEL 'LST_PROJECT.ListIndex + 1 : ENVOIE LA VALEUR DE LA POSITION DE LA LISTE BOX 'LST_PROJECT.ListCount : ENVOIE LA VALEUR MAX DE LA LISTE BOX '&H4080& : CODE COULEUR DE LA BARRE DE PROGRESSION
Conclusion :
J'espère avoir été clair dans les explications. Si il manque quelque chose faite le moi savoir.
Merci d'avance pour vos remarques.
Codes Sources
A voir également
- Progress bar couleurs differentes
- Progress bar c ✓ - Forum C# / .NET
- Vbscript progress bar - Forum VBScript (VBS)
- Inverser couleurs photoshop - Forum Graphisme/design
- Couleurs hexadécimales - Forum Visual Basic
- Vba progress bar ✓ - Forum Visual Basic
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.