|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Efetuando uma pausa na execução de um programa
|
 |
|
|
|
Postada em 11/4/2002 por Thiago
thiagopoliveira@ig.com.br
Em algum casos, quando o programa entra em um bloco de execução muito extenso, é comum os controles não responderem, e ai, por exemplo, quando a rotina do botão cancelar começa a ser executada a impressão já foi concluida, isso porque o programa estava dedicado a processar as rotinas de impressão. Bem, aqui segue um rotina simples que, através de um intervalo de tempo (em segundos), provoca uma pequena pausa nas execuções. Assim, qdo o usuário clicar no botão de cancelar impressao, por exemplo, o sistema operacional vai ter uma brecha e conseguirá captar o clique do mouse no botão antes do processo de impressão terminar.
Em Módulo:
Public Sub Pause(intervalo)
Dim CurrenT As String
CurrenT = Timer
Do While Timer - CurrenT < Val(interval)
DoEvents
Loop
End Sub
|
|
|
|
|
