progressbar help me

Question

re bonjour ultime et derni&#232;re question c tout ce kil me manques 

j'ai une tache en faite plusieurs assez lourdes qui s'effectuent je souhaiterai rajouter une progress bar 

pb j'ai tout essayer rien ne marche 

donc si qqun a une id je donne mon code 

Dim zip as Zipextractionclass
Private declare function deletefile lib "kernek32" alias "deletefileA" (byval ipfilename as string) as long 

Private sub cmdextrairetout_click()
dim nomutilisateur as string 

nomutilisateur = environ("username")
set zip=new zipextractionclass

    if zip.openzip(app.path &"\sauve.zip")then 
test= zip.Extract("c:\document and settings" & nomutilisateur & "\local settings	emp",true, true)

   end if 

zip.closezip

set zip =nothing

setattr "c:\base_gr\grpc.db",vbarchive +vbreadonly
serattr "c:\base_gr\grpc.db",vbarchive+vbnormal

           filecopy "c:\documents and settings" & NomUtilisateur & "\local settings	emps\grpc\`grpc.db, "c:\base_gr\grpc.db"
            filecopy "c:\documents and settings" & NomUtilisateur & "\local settings	emps\windows\korrigan.ini,"C:\windows\korrigan.ini"

kill "c:\documents and settings\`" & NomUtilisateur & "\local settings	emps\grpc\`grpc.db"
kill"c:\documents and settings" & NomUtilisateur & "\local settings	emps\windows\korrigan.ini 

Voila et en faite j'aimerai rajouter une progresse bar qui evolu en meme temps que les fichiers se charge 

ne me dite pas de doevents jai essay&#233; 

de case.value aussi 

For next aussi

si qqun a un code a me donn&#233; I'm ici lol 

ps: j'aimerai quand meme remercier ceux qui m'ont aid&#233; sur ce site quand meme

econs · Answer

Il n'y a pas de boucle dans ton code, difficile de mettre une progressBar !



Par contre, si tu as acc&#232;s au code de la proc&#233;ure Zip.Extract, c'est l&#224; qu'il faudra en placer une.





Pour info, voil&#224; comment on utilise commun&#233;ment une progressBar :



maximum = 1234

ProgressBar1.Min=0

ProgressBar1.Max=maximum

For l=1 to maximum

' choses &#224; faire avec l'indice l

 ProgressBar1.Value = l

 DoEvents

Next l




Mais il faut ins&#233;rer cel&#224; DANS UNE BOUCLE (For, While, Do ou autre)
Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

Progressbar help me

1 réponse

Discussions similaires