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]Piscar rótulo usando a função de API "Sleep"

    avatar
    lucianonunes.jw
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Piscar rótulo usando a função de API "Sleep" Empty Piscar rótulo usando a função de API "Sleep"

    Mensagem  lucianonunes.jw 5/2/2012, 00:37

    Pessoal,

    me ajudem com este código:


    Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
    (ByVal dwMilliseconds As Long)



    For Cont = 1 To 4 Step 1
    Sleep (1000)
    Me.Rot_num_senha.Visible = Not Me.Rot_num_senha.Visible
    Next Cont

    O objetivo é fazer com que o rótulo pisque durante 4 segundos apenas e então pare de piscar. Mas visualmente isso não acontece quando em execução mas se colocarmos um msgbox na última linha observamos que o rotulo alterna entre o modo visível e não visível.

    Sei também que posso fazer isso pelo evento No Timer do formulário, mas não sei como fazê-lo parar de piscar depois dos 4 segundos.

    A solução pode ser em qualquer um dos dois casos. todas as duas me atendem desde que eu consiga fazer o rotulo parar de piscar depois de 4 segundos.

    Obrigado pela ajuda.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Piscar rótulo usando a função de API "Sleep" Empty Re: [Resolvido]Piscar rótulo usando a função de API "Sleep"

    Mensagem  Avelino Sampaio 5/2/2012, 07:33

    Olá

    Acrescente o comando para repintar a tela.


    For Cont = 1 To 4 Step 1
    Sleep (1000)
    Me.Rot_num_senha.Visible = Not Me.Rot_num_senha.Visible
    Me.Repaint
    Next Cont

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    lucianonunes.jw
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Piscar rótulo usando a função de API "Sleep" Empty Re: [Resolvido]Piscar rótulo usando a função de API "Sleep"

    Mensagem  lucianonunes.jw 6/2/2012, 22:19

    100%. Obrigado!

    Conteúdo patrocinado


    [Resolvido]Piscar rótulo usando a função de API "Sleep" Empty Re: [Resolvido]Piscar rótulo usando a função de API "Sleep"

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 19:20