Olá pessoal !

 

a uns meses atras postei aqui uma mensagem pedindo uma ajuda para aumentar o tempo de espera do comando timer e um colega me postou uma dica de "gambi" que faz aumentar o tempo de espera do timer de maneira muito simples e sem o uso de APIs. Bom espero que esse ou algum outro colega me passe o exemplo novamente.

 

Obrigado !

 

Coloque uma variável do tipo Long, dentro do evento Timer do controle, terá o tempo de espera que quiser, sem nenhuma gambiarra, atingindo o tempo, basta zerar.

 

vlu//

Olá amigo !

 

Valeu pela dica, mas como tenho um conhecimento muito limitado em vb eu gostaria que vc me postasse um exemplo se possível (um código)...afinal aprendi vb sozinho baseado nos conhecimentos que tinha do velho BASIC do antigos MSX.

 

Mais uma vez obrigado !

Ok, amigo:

Em declarações:

Dim lTEMPO As Long

' Configure a propriedade Interval do controle Timer.

 

Private Sub Form_Load()

   Timer1.Interval = 1000   ' isto representa 1 segundo

   lTEMPO = 0 

End Sub

 

Private Sub Timer1_Timer()

    lTEMPO = lTEMPO + 1

    If lTEMPO >= 120    ' AQUI 120 REPRESENTARÁ 2 MINUTOS

         ' FAÇA AQUI A SUA AÇÃO

         lTEMPO = 0

    End If

End Sub

 

Pronto não precisará se preocupar com o controle, basta controlar a variável, e verificar sua necessidade.

Qualquer coisa poste.

 

vlu//

 

Funcionou !

 

Valeu. obrigado mesmo !

Funcionou !

 

Valeu. obrigado mesmo !