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.

Grande Dilson, muito bom exemplo!!

Obrigado.

Para todos dessa comunidade, experimentar, Implementar e usar a vontade!

Boa tarde !!!

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

abraços
gracy

Convertido para MDB 2002-2003:

Valeu!!!!

abraço
gracy