Mestre Paulo, teria como ao clicar em stop no cronometro o valor fosse jogado para uma caixa de texto?
[Resolvido]Dúvida sobre o exemplo "Cronômetro"
emacsabino- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 29/08/2011
- Mensagem nº1
[Resolvido]Dúvida sobre o exemplo "Cronômetro"
Convidad- Convidado
- Mensagem nº2
Re: [Resolvido]Dúvida sobre o exemplo "Cronômetro"
Olá amigo
Tem sim.
Vou repetir o código para voce verificar.
==================
Private Sub cmdTimer_Click()
Me.lblElapsed.Visible = True
If Me.TimerInterval = 0 Then
StartTime = GetTickCount()
Me.TimerInterval = 10
Me!cmdTimer.Caption = "Stop"
Me!cmdReset.Enabled = False
Else
TotalElapsedTime = TotalElapsedTime + (GetTickCount() - StartTime)
Me.TimerInterval = 0
Me!cmdTimer.Caption = "Start"
Me!cmdReset.Enabled = True
Me.txtStop = Me.lblElapsed.Caption
End If
End Sub
====================
Private Sub cmdReset_Click()
TotalElapsedTime = 0
Me!lblElapsed.Caption = "00:00:00:00"
Me!lblElapsed.Visible = False
Me.txtStop = ""
End Sub
============
Acrescente as duas linhas em azul nos códigos respectivos e Crie uma caixa de texto
com o nome: txtStop
Abraços
Tem sim.
Vou repetir o código para voce verificar.
==================
Private Sub cmdTimer_Click()
Me.lblElapsed.Visible = True
If Me.TimerInterval = 0 Then
StartTime = GetTickCount()
Me.TimerInterval = 10
Me!cmdTimer.Caption = "Stop"
Me!cmdReset.Enabled = False
Else
TotalElapsedTime = TotalElapsedTime + (GetTickCount() - StartTime)
Me.TimerInterval = 0
Me!cmdTimer.Caption = "Start"
Me!cmdReset.Enabled = True
Me.txtStop = Me.lblElapsed.Caption
End If
End Sub
====================
Private Sub cmdReset_Click()
TotalElapsedTime = 0
Me!lblElapsed.Caption = "00:00:00:00"
Me!lblElapsed.Visible = False
Me.txtStop = ""
End Sub
============
Acrescente as duas linhas em azul nos códigos respectivos e Crie uma caixa de texto
com o nome: txtStop
Abraços
» [Resolvido]Dúvida sobre o éxemplo "Formulário de Pesquisa"
» [Resolvido]Sobre tópico "Oculta todos os Objectos de um banco"
» [Resolvido]Dúvida referente tópico "Alinhamento em colunas de lstBox"
» [Resolvido]Dúvida tópico "DLL para inserir GIF's animados no Access"
» [Resolvido]Dúvida tópico: "Icones, Bullets, Imagens e Texturas"
» [Resolvido]Sobre tópico "Oculta todos os Objectos de um banco"
» [Resolvido]Dúvida referente tópico "Alinhamento em colunas de lstBox"
» [Resolvido]Dúvida tópico "DLL para inserir GIF's animados no Access"
» [Resolvido]Dúvida tópico: "Icones, Bullets, Imagens e Texturas"