Notifications
Clear all

duvida código busca por imagem

3 Posts
3 Usuários
0 Reactions
1,047 Visualizações
(@danilson-vitor)
Posts: 34
Eminent Member
Topic starter
 

boa tarde amigos, estou tendo problemas com um código no qual a função dele e buscar uma imagem e depois salva.
bom , quando rodo código:

Sub Btn_Troca_Imagem_Click()
fotodocumentos = Application.GetOpenFilename(filefilter:="picture files,*.bmp")
If fotodocumentos <> "" Then
Img_Documento.Picture = LoadPicture(fotodocumentos)
Else
Img_Documento.Picture = Img_Documento
End If
End Sub

abre uma janela de navegação para achar uma determinada imagem e depois seleciono e clico em ok, ate ai tudo bem, mas se eu nçao acha a imagem e apertar
no botão cancela ele mada depurar, ai aparece " Img_Documento.Picture = LoadPicture(fotodocumentos) " selecionado de amarelo acusando o erro.

eu não sei o que esta acontecendo, por isso conto com a experiencia de vocês. no assunto.
sem mais obrigado....

 
Postado : 11/02/2015 12:07 pm
selmo
(@selmo)
Posts: 236
Estimable Member
 

Ele está prosseguindo com a rotina mesmo com o caminho vazio, adiciona uma rotina para verificar e um tratamento de erro caso queira facilitar

"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein

 
Postado : 15/02/2015 5:30 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Ao clicar no botão cancelar a variavel fotodocumentos recebe um valor diferente de "", recebe se não me engano:= Falso
Experimente alterar assim:
If len(fotodocumentos)>5 then.....

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/02/2015 7:47 pm