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


3 participantes

    Reproduzir em rótulos e imagens o efeito padrão de um botão de comando.

    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Reproduzir em rótulos e imagens o efeito padrão de um botão de comando. Empty Reproduzir em rótulos e imagens o efeito padrão de um botão de comando.

    Mensagem  Dilson 11/7/2014, 18:21

    Reproduzir em rótulos e imagens o efeito padrão de um botão de comando. Img_cl10

    Olá Desenvolvedores,

    Eu criei uma técnica simples de reproduzir o efeito padrão de afundamento. Esse efeito é nativo nos botões de comando do MS Access, que reflete ao usuário que o botão foi acionado.

    Coloque o seguinte código em módulo e dê o nome que quiser:

    'Para aplicar efeito semelhante de um botão de comando em rótulos
    Function ClicaRot(argControle As Control)
    argControle.SpecialEffect = 2
    argControle.FontBold = True
    End Function

    Function DesclicaRot(argControle As Control)
    argControle.SpecialEffect = 0
    argControle.FontBold = False
    End Function

    'Para aplicar efeito semelhante de um botão de comando em imagens
    Function ClicaImg(argControle As Control)
    argControle.SpecialEffect = 2
    End Function

    Function DesclicaImg(argControle As Control)
    argControle.SpecialEffect = 0
    End Function


    Para fazer funcionar com rótulos:
    No evento ao apertar mouse no Rótulo:
    Call ClicaRot(nome_do_rotulo)

    No evento ao liberar mouse no Rótulo:
    Call DesclicaRot(nome_do_rotulo)

    Para fazer funcionar com imagens:
    No evento ao apertar mouse na imagem:
    Call ClicaImg(nome_da_imagem)

    No evento ao liberar mouse na imagem:
    Call DesclicaImg(nome_da_imagem)

    Experimentem: Cliquem, Cliquem e segurem e depois soltem e observem o efeito que naturalmente transforma o funcionamento do rótulo ou imagem usados como botão de comando.

    Espero que isso amplie as vossas opções e melhore a aparência dos botões em tempo de execução.


    Última edição por Dilson em 11/7/2014, 18:43, editado 1 vez(es)
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    Reproduzir em rótulos e imagens o efeito padrão de um botão de comando. Empty Re: Reproduzir em rótulos e imagens o efeito padrão de um botão de comando.

    Mensagem  Fernando Bueno 11/7/2014, 18:24

    Grande Dilson, muito bom exemplo!!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    Reproduzir em rótulos e imagens o efeito padrão de um botão de comando. 16rzeq
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Reproduzir em rótulos e imagens o efeito padrão de um botão de comando. Empty Re: Reproduzir em rótulos e imagens o efeito padrão de um botão de comando.

    Mensagem  Dilson 14/7/2014, 00:05

    Obrigado.

    Para todos dessa comunidade, experimentar, Implementar e usar a vontade!
    avatar
    gracymary
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 192
    Registrado : 16/10/2010

    Reproduzir em rótulos e imagens o efeito padrão de um botão de comando. Empty Re: Reproduzir em rótulos e imagens o efeito padrão de um botão de comando.

    Mensagem  gracymary 14/7/2014, 22:00

    Boa tarde !!!

    Por favor Dilson, teria como disponibilizar em Access 2003.. desde já, agradeço!

    abraços
    gracy
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Reproduzir em rótulos e imagens o efeito padrão de um botão de comando. Empty Re: Reproduzir em rótulos e imagens o efeito padrão de um botão de comando.

    Mensagem  Dilson 14/7/2014, 22:20

    Convertido para MDB 2002-2003:
    Anexos
    Reproduzir em rótulos e imagens o efeito padrão de um botão de comando. AttachmentExemplo_Click_Rotulo_Img-MDB.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (65 Kb) Baixado 74 vez(es)
    avatar
    gracymary
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 192
    Registrado : 16/10/2010

    Reproduzir em rótulos e imagens o efeito padrão de um botão de comando. Empty Re: Reproduzir em rótulos e imagens o efeito padrão de um botão de comando.

    Mensagem  gracymary 14/7/2014, 23:36

    Valeu!!!!

    abraço
    gracy

    Conteúdo patrocinado


    Reproduzir em rótulos e imagens o efeito padrão de um botão de comando. Empty Re: Reproduzir em rótulos e imagens o efeito padrão de um botão de comando.

    Mensagem  Conteúdo patrocinado


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