progress bar pendant l'exécution d'un codeRésolu

Question

bonjour,

je sais que les progress bar on en parle sur le forum, mais le probl&#232;me c'est que c'est sous VB6 et moi je suis sur VB Editor (je fais un logiciel pour traiter des feuilles excel).

donc ma question est simple: comment faire une progress bar qui progresse pendant que mon code (ex&#233;cut&#233; &#224; partir d'un form) s'ex&#233;cute.

parce que l&#224; apparemment, j'ai pas de gens qui faisaient ca sous VB Editor....

merci de votre aide.
  Daydayerement V&#244;tre

Daydayer · Accepted Answer

ca marche!

mais le refresh marche qu'en VB6 et moi je suis en VB editor. la slution c'est de remplacer progression.refresh par doevents...
voila!

en tout cas merci beaucoup, tu m'as vraiment bien aid&#233;e.

@+

  Daydayerement V&#244;tre

juju740 · Answer

il existe un contr&#244;le progressBar m&#234;me sour visual editor.
l'uitlisation est la m&#234;me que sous vb6

opsi1985 · Answer

Salut, il faut savoir si ton programme execute des boucles du genre 



for i = 0 to 1000

    .......

    .......

    .......

next



si c'est ca voici un bout de code que j'ai fait :

pourcentagre = (i + 1) * 100 / nb_user_select

                   
B = Int(2.55 * p)

                   
w = Int(104 * p) '50 est la largeur de la barre &#224; 100%

    

                   
'Progression.Width = W

                   
Progression.BackColor = RGB(255 - B, B, 0)

                   
Progression.Caption = p & "%"

                   
Progression.Refresh

  

moi dans mon cas je faisait un travail sur des utilisateurs, chq
utilisateur represente un passage, donc toi se sera une formule du
genre "pourcentage =(i+1)*100/nb_de_passage_dans_la_boucle mais en
faite il faut te d&#233;brouiller pour que tu es &#224; la fin un pourcentage ...

B sert &#224; la couleur

W la taille

et Progression label blanc avec le border style1

  

voila tu place ceci avant ton next ou ton wend si tu es dans un While .... wend.

  

Si ton prog est une succesion de programme tu retape le bout de code &#224; la fin d'une commande...

  

Voila j'espere ne pas t' avoir trop embrouill&#233;,.

N'h&#233;site pas si tu veux d'autre explication 

++

Daydayer · Answer

merci de ta r&#233;ponse opsi! en plus c'est assez bien expliqu&#233;!


bon j'ai qq tites questions sur le bout de code que tu m'as fil&#233; qd mm.

1)la var 'pourcentage', tu t'en sers o&#249; dans le code pour ta pbar?
2) dans 'B = Int(2.55 * p)', &#224; quoi sert la variable 'p'? et de quel type?


3)ma progress bar, je voudrais qu'elle apparaisse autre que sur le form &#224; partir duquel je lance le code de recherche.... genre j'ai un form ou l'utilisateur rentre ce qu'il veut que je cherche sur la feuill excel, il clique sur 'search' et le form de saisie disparait pour faire place a la pbar.&#224; ton avis, faut que je transfere le code de recherche sur le form contenant la pbar? et sur le form de saisie, qqd je clique search je fais apparaitre le form... je pense que c'est ca...

merci.

  Daydayerement V&#244;tre

opsi1985 · Answer

Ah ca me fait plaisir que tu trouves &#231;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&#233;ctification --> :



pourcentagre = (i + 1) * 100 / nb_user_select

                   
B = Int(2.55 * pourcentage)

                   
w = Int(104 * pourcentage) '50 est la largeur de la barre &#224; 100%

     

                   
'Progression.Width = W

                   
Progression.BackColor = RGB(255 - B, B, 0)

                   
Progression.Caption = pourcentage & "%"

                   
Progression.Refresh



Voila !!!

ca devrait t'&#233;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&#233; 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 &#224; 255 si ta variable pourcentage est vraiement un
pourcentage allant de 0 &#224; 100 !!



Donc ceci : Progression.BackColor RGB(255 - B, B, 0) te fais passer ta barre de rouge &#224; 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&#233;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&#233;thodes .... 



Tu peux ajouter aussi ceci :  Progression.Width = W

qui permettrait de faire agrandir ta barre au fur et  &#224; mesure que ca avance mais moi je trouvais ca pas tres joli !! 



Voila je m'arrete la, Promis 



A++

Daydayer · Answer

j'ai essay&#233; ton code, le pb c'est que Refresh ne s'applique pas &#224; 'progression', qui est un label...

je fais comment?

  Daydayerement V&#244;tre

Daydayer · Answer

et autre chose: si tu mets cela apr&#232;s le next, on ne peut pas voir, au fur et &#224; mesure des i qui avance dans la boucle, le changement de la progress bar... non?

  Daydayerement V&#244;tre

opsi1985 · Answer

Vi faut mettre le code juste avant le next  et pas apres sinon ton i ne varie pas et ta barre non plus !!!

Sinon je suis sur que label a une propri&#233;t&#233; refresh !! je viens de v&#233;rifier 

++

Daydayer · Answer

rebonjour! c'est encore moi!

bon alors, reprenons les choses dans l'ordre, parce que moi &#231;a marche pas....

bon alors j'ai comme code avec mes variables:
                    pourcentage = (Row + 1) * 100 / SearchLimit
                    B = Int(2.55 * pourcentage)
                    w = Int(104 * pourcentage) '50 est la largeur de la barre &#224; 100%


                    'Progression.Width = W
                    Progression.BackColor = RGB(255 - B, B, 0)
                    Progression.Caption = pourcentage & "%"
                    Progression.Refresh

d'abord sur le type de tes var: pourcentage c'est un int?
et progression c'est bien un label donc (un truc que tu ins&#232;res normalement pour donner des titres juste avant une textbox par exemple...).
parce que o&#249; tu vois que le label a une propri&#233;t&#233; refresh? ou alors il me manque une biblioth&#232;que dans mes references... 

&#233;videmment je suis sure que ce code marche, vu que tu l'as test&#233;, mais moi non, donc il doit me manquer qqch...je sais pas. parce que qd j'ex&#233;cute le code, je me retrouve avec une erreur du style 'membres de mthode ou de donn&#233;es introuvable', avec '.Refresh' ssurlign&#233; en bleu...

&#224; l'aideueueueueueu!

  Daydayerement V&#244;tre

opsi1985 · Answer

resalut,

Alors pourcentage, moi je l'ai mis en int, car comme ca lorsque je le fait afficher il me met un nombre rond, mais tu peux le mettre en long si tu veux... , mais tu aura des vielles virgules !!
et progressions c'est bien un label comme tu le d&#233;crit, ce que je change juste c'est le border style que je met a 1( fixed single je crois ...).
V&#233;rifie bien que ton B ne d&#233;passe pas 255 sinon ca pourrait faire une erreur... sinon je vais te montrer que label a bien une method refresh .. :

opsi1985 · Answer

Voila, .... mais bon c'est bizarre que ca ne marche pas chez toi car y a vraiement pas grand chose comme code ^^
n'hesite pas a reposter =) m&#234;me si ca marche !!!

Progress bar pendant l'exécution d'un code

11 réponses

Discussions similaires