Ah ca me fait plaisir que tu trouves ça pas trop pourris !!!
Effectivement tu as raison j'ai fait une gourde dans le code quand j'ai
renommer les variables pour que cela soit plus explicite !!!!
Voici la réctification --> :
pourcentagre = (i + 1) * 100 / nb_user_select
B = Int(2.55 * pourcentage)
w = Int(104 * pourcentage) '50 est la largeur de la barre à 100%
'Progression.Width = W
Progression.BackColor = RGB(255 - B, B, 0)
Progression.Caption = pourcentage & "%"
Progression.Refresh
Voila !!!
ca devrait t'éclaire sur la fameuse variable p qui n'ait autre que pourcentage !!!
ensuite je t'explique ce que B = Int(2.55 * pourcentage) veut dire :
en faite les couleurs sont composé de 3 couleurs Rouge, jaune , bleue, et chaqune en 8 bit soit 255,
bref en faisant ceci B = Int(2.55 * pourcentage) tu as un B qui
varie de 0 à 255 si ta variable pourcentage est vraiement un
pourcentage allant de 0 à 100 !!
Donc ceci : Progression.BackColor = RGB(255 - B, B, 0) te fais passer ta barre de rouge à vert !!! =)
Sinon pour que ce soit ta barre dans une autre form qui change, je
laisserait le code dans ta form de recherche, je créerais une autre
form qui s'appelerait pbar par exemple et je ferais :
pbar.Progression.BackColor =
RGB(255 - B, B, 0)
pbar.Progression.Caption = pourcentage & "%"
pbar.Progression.Refresh
Apres c'est a toi de voir. Chacun ces méthodes ....
Tu peux ajouter aussi ceci : Progression.Width = W
qui permettrait de faire agrandir ta barre au fur et à mesure que ca avance mais moi je trouvais ca pas tres joli !!
Voila je m'arrete la, Promis
A++