USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Cronometro Regressivo no VB6
Postada em 1/3/2007 por Edinei      Clique aqui para enviar email para o autor  neisjb@hotmail.com

'Coloque um Timer com Interval de 1000

Private Sub Timer1_Timer()
If Text1 = "00:00:00" Then 'se o cronometro zerar então
MsgBox "neisjb@hotmail.com"
Text1 = "00:02:00" 'reinicia contagem regressiva
Else 'senão atualiza o valor do relógio
Text1 = Format(TimeValue(Text1) - TimeValue("00:00:01"), "hh:mm:ss")
End If

End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página