Olá amigo. Obrigado pela informação. Vou tentar fazer do jeito que você falou.
Mas eu consegui fazer. Talvez da forma que fiz não seja a melhor pratica. Mas a lógica empregada funcionou. Segue o código que fiz.
Private Sub cronometroForm_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cronometroForm.Tick
Dim valueProgressVALUE As String 'RECEBE A CONTAGEM PROGRESSIVA DO TEMPO
valueProgressVALUE = "00:00:00" 'DETERMINA QUE O TEMPO INICIE A PARTIR DE 00:00:00
tempoCorrido = DateAndTime.DateAdd("s", -1, tempoCorrido) 'INICIA A CONTAGEM REGRESSIVA DO TEMPO
valueProgressVALUE = DateAndTime.DateAdd("s", 1, valueProgressVALUE) 'INICIA A CONTAGEM PROGRESSIVA DO TEMPO
valueProgressVALUE = valueProgressVALUE.Replace(":", "") 'REMOVE OS CARACTERES (:) - 000000
Monitor_Servico.lbl_tempo.Text = tempoCorrido 'RECEBO O VALOR DA CONTAGEM PROGRESSIVA
If tempoCorrido = "00:00:00" Then 'QUANDO ZERADO O CRONOMETRO
tempoCorrido = tempo 'RECEBE O TEMPO INICIAL PARA COMEÇAR NOVAMENTE
Monitor_Servico.ProgressBar_Email.Increment(0) 'ZERA A PROGRESSBAR PARA COMEÇAR NOVAMENTE
End If
Monitor_Servico.ProgressBar_Email.Increment(valueProgressVALUE) 'PROGRESSBAR RECEBE O VALOR PARA INCREMENTO
End Sub
Bom, obrigado pela ajuda.
Atenciosamente;
William
↧
