DoEvents

Le
Jean Saint Jalmes
Bonjour,

Existe t'il une meilleure solution que DoEvents pour crer
une boucle d'attente d'un vnement dans une procdure ?
Le problme est que si la fonction Wait_Event (ci-dessous)
est remplace par une procdure (Sub), l'application
appelante reprend la main avant l'vnement Clock_Timer
(en fait ds le premier DoEvents) sans attendre la fin de
l'excution de la procdure.

Exemple:

Private Flag as boolean

Public function Wait_Event() as boolean
Flag = true

Do while Flag
DoEvents
Loop
Wait_Event = Flag
End function

Private sub Clock_Timer()
Flag = False
End sub

Merci d'avance.

Jean
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
François Picalausa
Le #14712241
Hello,

Une solution serait de désactiver les contrôles qui ne doivent plus émettre
d'événements:
Control.Enabled = False

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"Jean Saint Jalmes" le message de news:235801c427b2$8cf1b810$
Bonjour,

Existe t'il une meilleure solution que DoEvents pour créer
une boucle d'attente d'un évènement dans une procédure ?
Le problème est que si la fonction Wait_Event (ci-dessous)
est remplacée par une procédure (Sub), l'application
appelante reprend la main avant l'évènement Clock_Timer
(en fait dès le premier DoEvents) sans attendre la fin de
l'exécution de la procédure.

Exemple:

Private Flag as boolean

Public function Wait_Event() as boolean
Flag = true
......
Do while Flag
DoEvents
Loop
Wait_Event = Flag
End function

Private sub Clock_Timer()
Flag = False
End sub

Merci d'avance.

Jean


Publicité
Poster une réponse
Anonyme