Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

sapuser

Carregar foto num formulario VBA

Mensagens Recomendadas

sapuser

boas,

gostaria de saber se possivel num formulario como é que se consegue carregar uma foto e depois quando chamar-mos esse registo carregar a mesma foto no formulario.

já agora qual o codigo para conseguir carregar a foto e eleminar a foto.

neste exemplo tenho uma tabela com os seguintes campos:

numero

nome

link

exemplo do formulario em baixo:

http://imageshack.us/photo/my-images/21/42556698.jpg/

desde já muito obrigado

Jorge Miguel

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
acao

boas

para carregar a imagem use o controle «image»

para ajustar a imagem ao controle altere a propriedade «pecturesizemode» para «3«

Me.Image1.Picture = LoadPicture("C:\Users\xxxx\Desktop\imagemteste.jpg")

para deletar pose usar o comando « Kill» mas tenha em atenção se usar o comando tudo o que deletar desaparece, não fica na lixeira, e se usar apenas a extensão (EX: .txt) todos os ficheiros texto do directorio desaparecem, por isso cuidado.

Kill "c:\teste\imagemteste.jpg"

em vez de deletar pode optar por eliminar apenas o registo com o respectivo link.

ou

colocar uma caixa de verificação e só mostras as foto quando a cx estiver checada ou não checada

ou ainda

se for uma folha de calculo (excel) pode utilizar uma celula correspondente ao registo e dar-lhe um valor se o valor for igual a x mostra a foto senão não mostra.

espero ter ajudado

cumps

acao

Editado por acao

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.