|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Cronometro Regressivo no VB6
|
 |
|
|
|
Postada em 1/3/2007 por Edinei
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
|
|
|
|
|
