Continuer l'exécution d'un programme

Question

Bonjour &#224; tous,



Je travaille en VB6.0 sur un programme qui commence &#224; mettre beaucoup de temps &#224; s'ex&#233;cuter.



Je voudrais afficher un form avec un message d'attente, histoire de
faire patienter. Mais quand je load le form d'attente, l'ex&#233;cution du
programme s'arr&#234;te alors qu'il ne faudrait pas.



Y-a-t'il un moyen de pallier &#224; ce probl&#232;me ?



Merci d'avance,

cs_hassen · Answer

bonjour,
le probleme quand tu execute une boucle c'est que le programme n'execute plus les evenement relatif au control il laisse ca a la fin de la boucle. par exemple il ne rafraichi pas l'affichage d'une feuille.la commande DoEvents permet le traitement des evenements lors de son appel. quoi que DoEvents a aussi un inconvenient c qu'elle ralentit un peut le traitement.

voici du code qui peut t'aider
t'a deux feuille form1 et frmAttente
dans l'evenement load de form1 (la feuille de d&#233;marrage) tu ecrit:

Private Sub Form_Load()
frmAttente.Show
DoEvents
For i = 1 To 100000222
Next i
end sub

Hassen TUNISIE

Zlub · Answer

Salut,

Pour le DoEvents, tu peux am&#233;liorer avec

Private Declare Function GetInputState Lib "user32" () As Long



et du coups



If GetInputState Then DoEvents


Conradd, Tu pourrais poster comment tu fais pour charger ta form d'attente ?

++

Zlub

Continuer l'exécution d'un programme

2 réponses

Discussions similaires