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


2 participantes

    [Resolvido]Como fazer um botão do form ficar piscando?

    Highlander8
    Highlander8
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 25/10/2011

    [Resolvido]Como fazer um botão do form ficar piscando? Empty [Resolvido]Como fazer um botão do form ficar piscando?

    Mensagem  Highlander8 16/1/2013, 19:28

    Meu amigos,
    Mais uma vez venho solicitar ajuda à vocês...

    Como posso fazer com que um botão de um formulário fique piscando por uns 5 segundos e depois pare?
    Não achei nada parecido com isso aqui no forum....
    Já pesquisei e vi que seria no evento "Timer", mas não estou conseguindo fazê-lo.

    ALguém poderia me ajudar?

    Mestre Criquio, Jpaulo ou outro dotado da sapiência desta lógica......conto com vcs.

    Muito obrigado.

    Um grande abraço.


    .................................................................................
    Private Sub Help_AfterUpdate()
    If Me.Help = "Pude ajudar" Then
    MsgBox("Foi um prazer!")
    Else
    MsgBox(“Tentarei novamente...")
    End If
    End Sub

    Highlander.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Como fazer um botão do form ficar piscando? Empty Re: [Resolvido]Como fazer um botão do form ficar piscando?

    Mensagem  criquio 16/1/2013, 19:38

    Fora dos eventos do formulário:

    Option Compare Database
    Option Explicit
    Dim T As Integer


    No evento "Ao carregar" do formulário ou outro que melhor convier:

    TimerInterval = 1000

    No evento "No timer"

    Código:
    If T < 5 Then
        Me.NomeDoBotão.Visible = Not Me.NomeDoBotão.Visible
        T = T + 1
    Else
        T = 0
        TimerInterval = 0
        Me.NomeDoBotão.Visible = True
    End If


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Highlander8
    Highlander8
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 25/10/2011

    [Resolvido]Como fazer um botão do form ficar piscando? Empty Como fazer um botão do form ficar piscando?

    Mensagem  Highlander8 17/1/2013, 13:12

    Mestre Criquio,

    Muito obrigado pelo retorno e pela ajuda.
    EUREKA! Funcionou !!!
    Obrigado por me salvar mais uma vez.

    Particularmente, quero agradecer ao fórum e à todos que fazem parte dele.
    Em inúmeras vezes já pude contar com vocês!

    Muito obrigado mesmo.

    Victor.
    study


    .................................................................................
    Private Sub Help_AfterUpdate()
    If Me.Help = "Pude ajudar" Then
    MsgBox("Foi um prazer!")
    Else
    MsgBox(“Tentarei novamente...")
    End If
    End Sub

    Highlander.

    Conteúdo patrocinado


    [Resolvido]Como fazer um botão do form ficar piscando? Empty Re: [Resolvido]Como fazer um botão do form ficar piscando?

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 19:43