... Pague apenas R$67,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


Como vincular imagens PNG em botões

Propriedade Picture

Com a propriedade Picture dos botões, podemos facilmente vincular imagens armazenadas, em uma pasta local.

Me!NomeDoBotão.Picture = "C:\MinhaPasta\PastaImagens\NomeImagem.png

Melhor local para a pasta das imagens.

Procure manter a pasta que armazena as imagens, no mesmo local do aplicativo.  Assim é possível usar o caminho relativo com o comando CurrentProject.Path.  Exemplo:

Me!NomeDoBotão.Picture = CurrentProject.path & "\PastaImagens\NomeImagem.png"

Mais detalhes sobre o caminho relativo, você encontra aqui.

Alterando três propriedades do botão para receber a imagem vinculada.

Veja na imagem abaixo, a lista de propriedades de um botão!  Observe as setas nas propriedades que precisam ser configuradas!

Usando Access - Imagem em botão (lista de propriedades)

 

Altere as três propriedades para os seguintes valores:

1 - Cursor em Foco --> Mão em hiperlink

2 - Tipo de Imagem --> Vinculada

4 - Estilo do Fundo --> Transparente

Formulário cadastro de Clientes do aplicativo Maestro.

Observe as imagens, nos botões do formulário.

Usando Access - Imagens PNG em botões

 

No evento Ao carregar do formulário, a propriedade Picture foi utilizada para vincular as imagens.

Private Sub Form_Load()
   Me!btNovo.Picture = CurrentProject.Path & "\botoes\Novo.png"
   Me!btexcluir.Picture = CurrentProject.Path & "\botoes\excluir.png"
   Me!btGráfico.Picture = CurrentProject.Path & "\botoes\grafico.png"
   Me!btImprimir.Picture = CurrentProject.Path & "\botoes\printer.png"
End Sub

Imagens armazenadas na pasta botoes.  Esta pasta está situada no mesmo local do aplicativo.

Baixe o Maestro e divirta-se!

Sucesso!


 

 


17 comentário(s)

Valdino   04/12/2012 14:26:49

Legal. Só uma particularidade minha é que alem dessas propriedades acima citadas, eu costumo colocar a propriedade Transparente como Sim, para evitar que o botão fique com as bordas pontilhadas quando clicado. Eu não gosto desse pontilhamento nas bordas do botão.

MARCIO MELO - RJ   04/12/2012 15:31:02

Show nos acabamentos, nos tempos de hoje as vezes vale mais um visual apresentável que o próprio desempenho da ferramenta, mas sabemos que com esse artificio o desempenho se mantém, gostei muito de aprender antes eu usava a imagem no form com o botão transparente por cima, vou adotar usar a imagem botão.

Já baixei a nova versão do mestro que já vem com todos os últimos artigos publicados, cor no campo, imagem nos botões, vinculos, etc... obrigadoooo!

Sou mais Brasil!

joão bola   04/12/2012 22:17:52

aí havelino muito bom. so uma pergunta o que tem no maestro que abilita vincular imagem png no botão? eu so consigo usar bmp e ico. eu importei o formulário de clientes do maestro para um bd novo e testei para ver mais nao funcionou e no maestro eu coloquei um botão novo para testar e deu certo entao so pode ser alguma função em algum modulo que abilita isso eu suponho mais nao encontrei nada. você pode esclarecer isso?

Avelino Sampaio   05/12/2012 04:32:38

Valdino,

obrigado pela dica.

Marcio Melo,

sentimos sua falta no Access Day 5. A sexta edição será em Florianópolis.

Avelino Sampaio   05/12/2012 04:37:01

João Bola,

não me lembro bem mas acho que se estiver com a versão 2003 não será possível o uso do PNG.

Sucesso!

joão bola   05/12/2012 08:55:59

Avelino, minha versão é a 2007. Eu nunca consegui colocar imagem em botão que nao seja bmp ou ico. No maestro funciona até criei um form novo nele e coloquei um botão lá e deu certo mais se tento em qualquer outro aplicativo meu nao dá certo. Ate importei um formulario do seu maestro para um bd novo mais no bd novo nao funciona a imagem png.

Avelino Sampaio   05/12/2012 09:23:59

João,

vá nas "opções do Access" > Banco de dados atual > e compare os dois bancos (Maestro e o seu) se existe alguma diferença nas configurações.

Sucesso!

joão bola   05/12/2012 10:46:50

Parece que esta tudo normal, não entendo porque isso acontece comigo, só comigo mesmo kkkk
mais valeu

Valdino   05/12/2012 10:54:28

Avelino, eu fiz uma certa confusão aqui. Se deixar o botão com a propriedades Transparente=Sim, a imagem não será exibida. Eu utilizo essa técnica é em caso de botões em cima de controles imagem nas versões anteriores à 2007, pois nessas versões o png e o gif não são aceitos com imagens de botões e aí não daria para colocar imagens com transparência. Desculpe pelo lapso, hehehe.

Valdino   05/12/2012 10:56:49

joão bola, tem certeza que está exatamente igual? Analise, nas opções que o Avelino citou, a seção "Formato do Armazenamento de Propriedades da Imagem". Deve estar marcada a primeira opção, "Preservar formato de imagem de oritem (arquivo menor)", para poder funcionar.

Avelino Sampaio   05/12/2012 10:56:51

João,

crie um BD exemplo e me passe por email (zipado).

avelino(arroba)usandoaccess(ponto)com(ponto)br

No aguardo

joão bola   05/12/2012 13:43:33

Pessoal, valeu! Era isso mesmo que o Valdino falou, mudei aqui e deu certo. Abraço a todos.

Robert   02/01/2013 00:02:42

Muito bom, o visual do formulário ficou ótimo.Obrigado Avelino.

Filipe Bacelar   28/02/2013 00:11:31

Pena que não funciona com versões anteriores

Ivan Flach   09/04/2016 11:32:00

Boa tarde Avelino,

Muito bom o seu tutorial, acompanho o seu trabalho a vários anos e o seu site tem me ajudado muito. Faz tempo que comprei o montaribbons e é uma excelente ferramenta.

Tenho uma duvida, eu tenho um formulário onde cadastro as pessoas com foto.
Junto com o programa tem a pasta de fotos.
As fotos aparecem normalmente no formulário

Dim n
n = Matricula
Me!Image.Picture = CurrentProject.Path & "\fotos\" & n & ".png"

Até ai tudo bem!

O problema é quando vou para um registro onde nao tem foto.
Gostaria de saber se dá para escrever um codigo, para quando aquele registro não possuir foto ele busque uma foto imagem pré determinada. Ex uma imagem em branco ou escrito "sem foto".

Obrigado pela atenção.


Avelino Sampaio   11/04/2016 07:07:41

Ivan,

utilize a função DIR() para identificar se a foto existe no local. Algo assim:

if dir(Me!Image.Picture = CurrentProject.Path & "\fotos\" & n & ".png") = "" then
'carrega imagem "sem foto"
else
'carrega foto
end if

Sucesso!

Ronaldo Costa   05/10/2016 08:54:32

Excelente dica, Avelino!

Duas coisas a que perguntar:
1) Normalmente insiro minhas imagens nos botões, selecionando-a e inserindo-a diretamente na propriedade "Imagem" do botão. Pergunto: usando deste artifício, o bd se torna maior do que fazendo como você ensina neste tutorial?

2) Há como criar uma função num módulo global para que precisemos apenas chama a função no evento ao carregar do formulário?

grato..


Envie seu comentário: