Formulário não carr...
 
Notifications
Clear all

Formulário não carrega fotos do diretório

4 Posts
3 Usuários
0 Reactions
1,545 Visualizações
(@cisneiro)
Posts: 0
New Member
Topic starter
 

Boa tarde a todos, criei um sistema que tem um form com o nome Rh, nele o funcionário digita o CPF numa textbox e o sistema retorna varias informações pessoais e funcionais e a foto do funcionário. o problema está nas fotos, pois toda vez que eu coloco o programa pra rodar em um computador diferente tenho que alterar o código, senão ele não busca a foto, devido ao diretório diferente. Tendo em vista que a pasta com as fotos do programa e o programa estão na mesma pasta, Gostaria de saber se tem um código universal que busque as fotos independente do computador ou rede em que o programa está rodando. as fotos estão nomeadas com CPF dos funcionários. No botão "buscar" estou usando o seguinte código:

Me.RHFOTO.Picture = LoadPicture("G:trabalhos - SUBLOPAINEL SUBLOIMAGENS" & RHCPF.Value & ".jpg")

onde," G:" é o meu HD externo
RHFOTO.picture é o objeto(quadro)
e "RHCPF" é a textbox onde o funcionario digita o CPF.

Não anexei a planilha pois ela depende de pastas com fotos para funcionar.

desde já obrigado

 
Postado : 02/10/2018 10:35 am
(@mprudencio)
Posts: 0
New Member
 

Pois é neste caso vc o melhor a se fazer é colocar isso na rede.

Este caminho das fotos tem que ser um caminho comum a todas as maquinas que vc pretende que o usuario utilize seu arquivo.

Do contrario vc precisa sim carregar as fotos e os arquivos em cada pasta alterando assim em cada uma o caminho das fotos.

Se a unica opção for a segunda eu colocaria no C:Fotos e pronto.

 
Postado : 02/10/2018 11:38 am
(@cisneiro)
Posts: 0
New Member
Topic starter
 

MPrudencio, obrigado, o problema é que, a máquina onde ele vai rodar e a minha, estão em redes diferentes( switches diferentes).como não posso atualizar da minha e lá só fechar e abrir como leitura ja atualizada, pensei em editar sempre a versão do meu Hd externo e copiar para o computador onde ele vai rodar, mas tem esse problema de diretório. se fosse como no html seria mais simples, pois se o arquivo de foto estiver na mesma pasta do arquivo html em si, é só colocar a a ultima pasta que ele busca, no vba não acorre isso. mas ja vi tutorial sobre isto mas não me lembro onde achei.

 
Postado : 02/10/2018 12:00 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

...

Tendo em vista que a pasta com as fotos do programa e o programa estão na mesma pasta...

Experimente então:

RHFOTO.Picture = LoadPicture(ThisWorkbook.Path & "Imagens" & RHCPF.Value & ".jpg")
 
Postado : 02/10/2018 1:08 pm