Remarque : La fonction, la méthode, l’objet ou la propriété décrite dans cette rubrique est désactivée si le service d’expression Microsoft Jet s’exécute en mode bac à sable, ce qui empêche l’évaluation d’expressions potentiellement dangereuses. Pour plus d’informations sur le mode bac à sable, recherchez « mode bac à sable » dans l’aide.
Génère une exécution afin que le système d’exploitation puisse traiter d’autres événements.
Syntaxe
DoEvents ( )
Remarques
La fonction DoEvents renvoie un entier représentant le nombre de formulaires ouverts dans les versions autonomes de Microsoft Visual Basic, telles que Visual Basic, Professional Edition. DoEvents retourne zéro dans toutes les autres applications.
DoEvents transmet le contrôle au système d’exploitation. Le contrôle est retourné une fois que le système d’exploitation a terminé de traiter les événements dans sa file d’attente et que toutes les clés de la file d’attente SendKeys ont été envoyées .
DoEvents est particulièrement utile pour des choses simples, telles que permettre à un utilisateur d’annuler un processus après qu’il a démarré, par exemple une recherche d’un fichier. Pour les processus de longue durée, il est préférable d’utiliser un minuteur ou de déléguer la tâche à un composant ActiveX EXE. Dans ce dernier cas, la tâche peut se poursuivre complètement indépendamment de votre application, et le système d’exploitation prend en charge le multitâche et le découpage temporel.
Chaque fois que vous cédez temporairement au processeur au sein d’une procédure événementielle, assurez-vous que le procédure n’est pas réexécuté à partir d’une autre partie de votre code avant le retour du premier appel . cela peut entraîner des résultats imprévisibles. En outre, n’utilisez pas DoEvents si d’autres applications peuvent interagir avec votre procédure de manière imprévue pendant la période pendant laquelle vous avez cédé le contrôle.
Exemple
Remarque : Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence du développeur dans la liste déroulante en regard de Rechercher et entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction DoEvents pour que l’exécution soit effectuée sur le système d’exploitation une fois toutes les 1 000 itérations de la boucle. DoEvents renvoie le nombre de formulaires Visual Basic ouverts, mais uniquement lorsque l’application hôte est Visual Basic.
' Create a variable to hold number of
' Visual Basic forms loaded and visible.
Dim I, OpenForms
For I = 1 To 150000 ' Start loop.
If I Mod 1000 = 0 Then ' If loop has repeated
' 1000 times.
OpenForms = DoEvents ' Yield to operating system.
End If
Next I ' Increment loop counter.
