Accueil > > > PROGRESS BAR COULEURS DIFFERENTES
PROGRESS BAR COULEURS DIFFERENTES
Information sur la source
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.
Source
-
- '==================================================================================
- '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
'==================================================================================
'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.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
.Net picture box & Couleur ? [ par cbu ]
Bonjour,VB.Net >> Comment récupérer la couleur d'un point d'une picture box ?Thx ;)
progressbar [ par fouad ]
je cherche une solution pour changer la couleur du texte l'étiquette en fonction de la couleur de la progression de la couleur du progressbar ou une a
Pb. de couleur dans picture box ? [ par neo12 ]
Bonjour, je m'aperçois que quand j'utilise une picturebox et paintpicture. l'image qui s'affiche (une JPG par exemple) ne s'affiche pas dans le bon n
changer la couleur d'un progressBar en vb.net [ par michaelrigali ]
Comment puis-je faire pour changer la couleur de mon progressBar que j'utilise en vb.net???Merci d'avance.Ps: je suis étudiant et je fais mon stage en
Comment changer la couleur d'une Progressbar? [ par rudy ]
Salut nixJ'ai que 13 ans mais je me démerde pas mal en programmation (heureusement que tu es la pour m'aider...)je télécharge ta compil tous les mois
Comment changer la couleur d'une Progressbar? [ par rudy ]
Salut nixJ'ai que 13 ans mais je me démerde pas mal en programmation (heureusement que tu es la pour m'aider...)je télécharge ta compil tous les mois
couleur de fond d'une listview [ par tdeco ]
SalutDans le cadre d'une projet sur ACCESS 2000, je suis confronté à un problème de listview.en fait je remplis ma listview et en fonction de la valeu
Changer la couleur de la barre sur la progressbar [ par fauve ]
Bonjour, Je voudrais s'il est possible de pouvoir changer la couleur de la barre d'une progressbar ( Vert, Orange, Rouge ) en fonction de l
Question sur X et Y [ par roger53 ]
Salut :) Je commance à peine l'apprentissage du visual basic et là, j'essaie de réaliser un petit projet. J'ai presque terminer, mais il y a toujours
|
Derniers Blogs
[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Très bonne après-midi passée lors cette conférence avec le W3C, organisée par L' Inria sur les nouveaux standards, ce Mardi 14 Février, on sent vraiment que çà bosse au W3C, et l'avenir est très très prometteur pour le HTML5, notamment ...
Cliquez pour lire la suite de l'article par Gio GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc
Forum
RE : VITESSERE : VITESSE par ossama261988
Cliquez pour lire la suite par ossama261988
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|