WD2000: Como implementar um atraso no Visual Basic para aplicações

Método 1: Utilizar um vazio para... Ciclo seguinte

Uma desvantagem deste método é que não existe nenhuma forma directa para determinar a quantidade de tempo que o programa demora a executar o ciclo exacta. A quantidade de tempo depende da velocidade do computador. O seguinte código executa um loop que não faz nada, mas ocupam algum tempo.

Sub MyDelayMacro

   For iCount = 1 to 1000
   Next iCount

End Sub

Método 2: Utilizar uma chamada da API para suspender a execução do Word

Utilize uma chamada da API para suspender a execução do Word para um período de tempo fixo.

APIs Kernel32 contém uma função que interrompe a execução de um programa para um determinado período de tempo, especificado em milissegundos. Para poder utilizar a função, deve primeiro ser declarada na secção General Declarations do módulo no qual irá ser utilizado:

   Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
   (ByVal dwMilliseconds As Long)

Utilize a seguinte sintaxe para chamar a função de suspensão :

Sub Sleep()
   Sleep 1000   'Implements a 1 second delay
End Sub

Método 3: Utilizar o método de OnTime

Utilize o método OnTime para definir uma quantidade de tempo de espera. O método OnTime utiliza a seguinte sintaxe:

expressão. OnTime (quando, nome, tolerância)Uma vez que o argumento nome requer o nome de uma macro para ser executado, tem de criar duas macros: a primeira macro para conter a chamada de método de OnTime e outros comandos relevantes para a macro e a segunda macro seja executada quando o tempo atribuído passou. A segunda macro pode ser uma macro "manequim" que não faz nada.

Este exemplo executa a macro com o nome "MyDelayMacro" 15 segundos desde que o exemplo é executado.

Sub MyMainMacro()

   ' Pause for 15 seconds.
   Application.OnTime When:=Now + TimeValue("00:00:15"), _
      Name:="MyDelayMacro"

End Sub

Public Sub MyDelayMacro()

   ' Place your delayed macro commands here.
   MsgBox "This macro runs after 15 seconds."

End Sub

Para mais informações sobre como utilizar o método de OnTime, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic , no menu Ajuda , escreva o método OnTime no Assistente do Office ou o Assistente de respostas e, em seguida, clique em Procurar para visualizar o tópico.