"Bloquage" de la Form pendant execution des fonctions ... refresh ne fonctionneRésolu

Question

Salut à tous et bonne année

Je suis en train de bosser sur un projet de maintenant en VB6, dans ma form j'ai un menu avec une progress bar, et différentes fonctions (lecture, écriture Xml, INI, fichiers, interogation de BDD) qui sont effectués à l'aide d'un commande bouton, comme ces processus sont relativement long, la form ne répond plus pendant l'execution des processus, et donc je ne peux pas voir la de progression avancer ... ce qui est normal, mais j'aimerais pouvoir avoir accès à la form même pendant l'executions des processus ...

J'ai donc essayé de faire un timer (en seconde) pour faire un refresh ... celui ci est désactivé au formload, et activé par le commande bouton :

Timer1.Enabled = True

et voila mon code du timer :

Private Sub Timer1_Timer()
Form1.Refresh
End Sub

Dans mon exemple celui ci devrait donc se rafraichir toute les secondes ... mais non il reste blocker comme si le timer n'était pas en route ...

Je comprend pas, pourriez vous m'aider à déblocker ce form load pendant l'exection des fonctions ?

Merci d'avance

nhervagault · Accepted Answer

Salut, je ne pense pas que le refresh fassent grand chose tout seul.

Mets des doevents dans le timer 
dans la boucle de traitement et les evenements graphiques devraipouvoir ce derouler.
car le doevents rend la main au syst&#232;me. donsc l'affichage est mis &#224; jour.

thefutureisnow · Answer

Merci pour ta réponse, mais le doevents s'utilise comment ?

thefutureisnow · Answer

Merci c'est bon simple doevents à mettre, et ca fonctionnr assez bien ... ca ralentit un peu le timer

nhervagault · Answer

Le doevents est juste une focntion
Tu marque doevents et c'est tout.
Je ne vois pas ou tu bloques ??

thefutureisnow · Answer

Merci ;)

"Bloquage" de la Form pendant execution des fonctions ... refresh ne fonctionne

5 réponses

Discussions similaires