Continuer l'exécution d'un programme

Bonjour à tous,

Je travaille en VB6.0 sur un programme qui commence à mettre beaucoup de temps à s'exé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écution du programme s'arrête alors qu'il ne faudrait pas.

Y-a-t'il un moyen de pallier à ce problème ?

Merci d'avance,

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émarrage) tu ecrit:

Private Sub Form_Load()
frmAttente.Show
DoEvents
For i = 1 To 100000222
Next i
end sub



Hassen TUNISIE

Salut,

Pour le DoEvents, tu peux amé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