PAUSAR

USUARIO.EXCLUIDOS 17/04/2007 18:38:49
#212401
Alguem sabe uma rotina para pausar aplicação
USUARIO.EXCLUIDOS 17/04/2007 18:41:18
#212402
Blz...vamos Lá

Coloque essa parte:
Public Declare Function GetTickCount Lib "kernel32" () As Long

em um módulo

Essa parte:


Public Sub Pausa(ByVal Segundos As Integer)

Dim xtempo As Long
Dim xInicio As Long
Dim xfinal As Long
xtempo = 1000 * Segundos
xfinal = 0
xInicio = GetTickCount()   'retorna valor em milesimos
While (xfinal - xInicio < xtempo)
xfinal = GetTickCount()
Wend
End Sub



Você coloca no General (declarations)..

no evento desejado vc coloca

Pausa (X) - onde X é o numero de segundos
MsgBox "Funcionou"

Bos sorte
FABIO.LOUREIRO 17/04/2007 18:46:54
#212404 Resposta escolhida
private sub Pausar(byval Tempo as Double)
Dim T(2) as double
t(1)=timer
do
t(2)=timer
doevents
loop until(t(2) - t(1))>=Tempo
end sub

Pausar 2 ' pausa 2 segundos
WHELLNET 17/04/2007 18:49:54
#212405
Se você quer que seu sistema pare durante determinado tempo, use a api Sleep, declarando o seguinte em um módulo
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Ai pra usar vc faz o seguinte
Sleep 5000 'no caso 5 segundos

Desta forma vc não ocupa quase nada do processador ganhando desempenho.

Agora outra forma é colocar um while e esperar até que determinada condicao seje verdadeira. Como por exemplo, até o cara clicar em um botão

Dim C As Boolean
[c]Private Sub Aguarda()
Boolean = False

While C = False
   DoEvents
Wend
End Sub

[/c]
Ai em um botão pode exemplo, vc altera o valor da variavel
Private Cmd_libera_Click()
C = True
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar