Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

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

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

11072014

Mensagem 

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








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.

Link para download do exemplo:
Download


avatar
Dilson
Facilitador
Facilitador

Brasil


http://www.dadosweb.com

Voltar ao Topo Ir em baixo

Compartilhar este artigo em: BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahoo!Smarking

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum