PROGRESS BAR AVEC DES COULEUR PERSONALISABLES
cs_legion91
Messages postés
216
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
15 décembre 2010
-
9 oct. 2003 à 17:14
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
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
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/16956-progress-bar-avec-des-couleur-personalisables
https://codes-sources.commentcamarche.net/source/16956-progress-bar-avec-des-couleur-personalisables
13 oct. 2003 à 01:37
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.
11 oct. 2003 à 02:56
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 @+
10 oct. 2003 à 20:31
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 ?
10 oct. 2003 à 18:01
10 oct. 2003 à 12:14
merci zelze pour l'explication.
10 oct. 2003 à 12:03
vous pouvez les initialiser comme suit :
Private Sub Form_Load()
'Initialisation de la Barre
PctNbre = 350000
PicProgress.Width = 0
'################################
'# Début Modifications 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
'#############################
'# Fin Modifications la deuxième version #
'#############################
End Sub
Autre chose à me demander ? ou à corriger ?
9 oct. 2003 à 19:55
9 oct. 2003 à 17:14
Sinon c vraiment très bien.