LABEL CONTADOR DE TEMPO
Boa noite, pessoal...
Já chequei todas as propriedades do objeto <label> associado a um timer, mas não consegui evitar o tremor do caption que indica a passagem de tempo.
No form, um label indica o seguinte: <Fecha em 04:53 min>, com contador regressivo...
Eis a rotina do timer:
[txt-color=#0000f0]Private Sub Timer1_Timer()
If Tempo = CDate([Ô]00:00:00[Ô]) Then
Unload Me
FrmEntrada.Show
MsgBox [Ô]Consulta concluida ...[Ô] & vbNewLine & _
[Ô]Para voltar, clique em Consultas[Ô], 64
Else
Tempo = TimeValue(Tempo) - TimeValue([Ô]00:00:01[Ô])
lblTempo.Caption = [Ô]Fecha em [Ô] & Format(Minute(Tempo), [Ô]00[Ô]) & [Ô] :[Ô] & Format(Second(Tempo), [Ô]00[Ô]) & [Ô] min[Ô]
lblTempo.Visible = True
End If
End Sub[/txt-color]
A variável <Tempo> é declarada como Date. E no carregamento do form, o tempo é registrado como: Tempo =[Ô]00:05:00[Ô]
é apenas um detalhe, mas fica meio [ô]primitivo[ô] o label que indica o tempo decorrido ficar trêmulo a cada segundo (propriedade do
Timer.Interval = 1000).
Tem como evitar esse tremor? ([Ô]Eu sei que é só VB...[Ô]).
Já chequei todas as propriedades do objeto <label> associado a um timer, mas não consegui evitar o tremor do caption que indica a passagem de tempo.
No form, um label indica o seguinte: <Fecha em 04:53 min>, com contador regressivo...
Eis a rotina do timer:
[txt-color=#0000f0]Private Sub Timer1_Timer()
If Tempo = CDate([Ô]00:00:00[Ô]) Then
Unload Me
FrmEntrada.Show
MsgBox [Ô]Consulta concluida ...[Ô] & vbNewLine & _
[Ô]Para voltar, clique em Consultas[Ô], 64
Else
Tempo = TimeValue(Tempo) - TimeValue([Ô]00:00:01[Ô])
lblTempo.Caption = [Ô]Fecha em [Ô] & Format(Minute(Tempo), [Ô]00[Ô]) & [Ô] :[Ô] & Format(Second(Tempo), [Ô]00[Ô]) & [Ô] min[Ô]
lblTempo.Visible = True
End If
End Sub[/txt-color]
A variável <Tempo> é declarada como Date. E no carregamento do form, o tempo é registrado como: Tempo =[Ô]00:05:00[Ô]
é apenas um detalhe, mas fica meio [ô]primitivo[ô] o label que indica o tempo decorrido ficar trêmulo a cada segundo (propriedade do
Timer.Interval = 1000).
Tem como evitar esse tremor? ([Ô]Eu sei que é só VB...[Ô]).
DoEvents resolve o tremor.....
Private Sub Timer1_Timer()
If Tempo = CDate([Ô]00:00:00[Ô]) Then
Unload Me
FrmEntrada.Show
MsgBox [Ô]Consulta concluida ...[Ô] & vbNewLine & _
[Ô]Para voltar, clique em Consultas[Ô], 64
Else
Tempo = TimeValue(Tempo) - TimeValue([Ô]00:00:01[Ô])
lblTempo.Caption = [Ô]Fecha em [Ô] & Format(Minute(Tempo), [Ô]00[Ô]) & [Ô] :[Ô] & Format(Second(Tempo), [Ô]00[Ô]) & [Ô] min[Ô]
lblTempo.Visible = True
End If
DoEvents
End Sub
Private Sub Timer1_Timer()
If Tempo = CDate([Ô]00:00:00[Ô]) Then
Unload Me
FrmEntrada.Show
MsgBox [Ô]Consulta concluida ...[Ô] & vbNewLine & _
[Ô]Para voltar, clique em Consultas[Ô], 64
Else
Tempo = TimeValue(Tempo) - TimeValue([Ô]00:00:01[Ô])
lblTempo.Caption = [Ô]Fecha em [Ô] & Format(Minute(Tempo), [Ô]00[Ô]) & [Ô] :[Ô] & Format(Second(Tempo), [Ô]00[Ô]) & [Ô] min[Ô]
lblTempo.Visible = True
End If
DoEvents
End Sub
OK. Obrigado pela ajuda.
Ficou só uma dúvida...
Em tempo de project, executando o aplicativo (seja pelo EXE, ou RUN), o label continua tremendo...
Já rodando o aplicativo compilado, não tremeu....
é assim mesmo?
Sirious.
Ficou só uma dúvida...
Em tempo de project, executando o aplicativo (seja pelo EXE, ou RUN), o label continua tremendo...
Já rodando o aplicativo compilado, não tremeu....
é assim mesmo?
Sirious.
No topo do form...
dim segundos as integer
Dentro do timer...
Private Sub Timer1_Timer()
segundos=segundos+1
label.caption = timeserial(0,0,segundos)
doevents
End sub
dim segundos as integer
Dentro do timer...
Private Sub Timer1_Timer()
segundos=segundos+1
label.caption = timeserial(0,0,segundos)
doevents
End sub
Obrigado, Fernando e Tiago.
Resolvido o problema ...
Até.
Resolvido o problema ...
Até.
Tópico encerrado , respostas não são mais permitidas