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)