Compartilhar via


Função DoEvents

Gera execução para que o sistema operacional possa processar outros eventos.

Sintaxe

DoEvents( )

Comentários

A função DoEvents retorna um Inteiro que representa o número de formulários abertos em versões autônomas do Visual Basic, como Visual Basic, Professional Edition. O DoEvents retorna zero em todos os outros aplicativos.

O DoEvents passa o controle para o sistema operacional. O controle é retornado depois que o sistema operacional terminar de processar os eventos em sua fila e todas as chaves na fila SendKeys tiverem sido enviadas.

O DoEvents é mais útil para coisas simples, como permitir que um usuário cancele um processo após o início, por exemplo, uma pesquisa por um arquivo. Para processos de longa execução, o rendimento do processador é melhor realizado usando um Temporizador ou delegando a tarefa a um componente do ActiveX EXE. Neste último caso, a tarefa pode continuar completamente independente do seu aplicativo e o sistema operacional cuida do corte de tempo e multitarefa.

Sempre que você gerar temporariamente o processador dentro de um procedimento de evento, verifique se o procedimento não será executado novamente de uma parte diferente do código antes que a primeira chamada retorne; isso pode causar resultados imprevisíveis. Além disso, não use o DoEvents se outros aplicativos puderem interagir com seu procedimento de maneiras imprevistas durante o tempo em que você rendeu o controle.

Exemplo

Este exemplo usa a função DoEvents para fazer com que a execução ceda ao sistema operacional uma vez a cada 1000 iterações do loop. O DoEvents retorna o número de formulários abertos do Visual Basic, mas somente quando o aplicativo host é 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.


Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.