MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Dúvida sobre o exemplo "Cronômetro"

    avatar
    emacsabino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Dúvida sobre o exemplo "Cronômetro" Empty [Resolvido]Dúvida sobre o exemplo "Cronômetro"

    Mensagem  emacsabino 4/2/2012, 17:44

    Mestre Paulo, teria como ao clicar em stop no cronometro o valor fosse jogado para uma caixa de texto?
    avatar
    Convidad
    Convidado


    [Resolvido]Dúvida sobre o exemplo "Cronômetro" Empty Re: [Resolvido]Dúvida sobre o exemplo "Cronômetro"

    Mensagem  Convidad 8/2/2012, 15:18

    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


      Data/hora atual: 14/5/2024, 09:32