CRONOMETRO REGRESSIVO ---SOCORRO
Alguém pode me ajudar a criar um código para copiar uma informação de um Text para outro Text quando meu Cronometro chegar em 00:00:01 , já tenho essa informação em uma Lbl !!!
Se Lbl for igual a 00:00:01 então copie Text2 de Text1
[ô] Já tenho esse código no meu programa:
Private Sub Timer1_Timer()
[ô]Se o cronometro zerar então
If LblCronometro.Caption = [Ô]00:00:00[Ô] Then
CmdLimpar_2T.Enabled = True
Else
LblCronometro.Visible = True
LblCronometro.Caption = Format(TimeValue(LblCronometro.Caption) - TimeValue([Ô]00:00:01[Ô]), [Ô]hh:mm:ss[Ô])
End If
End Sub
Se Lbl for igual a 00:00:01 então copie Text2 de Text1
[ô] Já tenho esse código no meu programa:
Private Sub Timer1_Timer()
[ô]Se o cronometro zerar então
If LblCronometro.Caption = [Ô]00:00:00[Ô] Then
CmdLimpar_2T.Enabled = True
Else
LblCronometro.Visible = True
LblCronometro.Caption = Format(TimeValue(LblCronometro.Caption) - TimeValue([Ô]00:00:01[Ô]), [Ô]hh:mm:ss[Ô])
End If
End Sub
Bota um Else If aÃ... pra quando for [Ô]00:00:01[Ô].
Pode me dizer o código completo ???
Tópico encerrado , respostas não são mais permitidas