|
|
Postada em 18/06/2004 15:54 hs
Caros Colegas, Criei no meu form uma opcao para anexar o caminho da foto no cadastro e exibir numa objeto (IMAGE), tudo funciona beleza. Image1.picture = LoadPicture("Caminho da tabela") - funciona beleza. O que ocorre é o seguinte: Apos eu fazer isso, o caminho fica ligado a figura na pasta (c:Arq. prog.PatrimonioFotos), mas se eu excluir a foto nessa pasta, quando mando abrir o registro e na hora de carregar a imagem no form, da o erro, pois a foto foi excluida, e o caminho procura e nao acha. Como eu faria para se o arquivo existir, beleza; mas se o arquivo (a foto) for excluido como o programa ignora esse erro... Se alguem me entedeu, me de uma ajuda ai... |
|
|
|
|
|
Aquaman
|
CAMAQUÃ
RS - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 18/06/2004 16:58 hs
Isso ser muito fácil meu amigo .... Você tem duas opções boas... Utilizar nesse evento o comando On Error Resume Next a partir daí ele simplifica todos os erros a outra seria vice usar condição IF dir (caminho da imagem)=False then msgbox "A figura não existe" Else msgbox "A figura existe" end if Espero ter ajudado |
|
|
|
|
|
Postada em 21/06/2004 17:45 hs
colegas, Aquaman me possou esse codigo, mas nao estou consegui usa-lo, alguem poderia me da uma ajuda. Fiz assim, crei uma variavel para guardar o caminho da imagem. Dim Cam As String
Cam = ""
Cam = CadPatrimonio("Foto") 'seria isso: c:arq. prog.PatrimonioFoto'
If Dir(Cam) = False Then
Image1.Picture = LoadPicture("Cam)
Else
Image1.Picture = LoadPicture()
End If
O que esta erro, pois dessa forma, se eu excluir a imagem da pasto (Foto) da erro, queria algo que se a foto fosse excluido o sistema na hora de carregar ignorasse e nao desse erro. Alguem pode me ajudar?? |
|
|
|
Righi
|
BELO HORIZONTE
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/06/2004 21:29 hs
Carlinhos, você precisa testar se o caminho existe antes de abri-lo, pois do contrario ele abre antes de checar a existencia. Tente assim: If Dir(Cam) = False Then
Image1.Picture = LoadPicture("Cam)
Else
Image1.Picture = LoadPicture()
End If
Dim Cam As String
Cam = ""
Cam = CadPatrimonio("Foto") 'seria isso: c:arq. prog.PatrimonioFoto'
Espero ter ajudado
 Righi
Beginner Game Developer! duduchaves@uai.com.br
|
|
|
|
|
|
Postada em 22/06/2004 10:38 hs
galera nao consegui resolver o problema, sera que alguem nao tem outra ideia por ai, ou outra forma de se fazer isso, anexar um caminho de uma imagem.... e que se essa imagem for excluido, por exemplo, o sistema ignore isso, fazendo com que a imagem nao seja aberta e consenquentemente nao dando erros... |
|
|
|
|
|
Postada em 22/06/2004 14:55 hs
E ai galera, sera que ninguem nunca mexeu com anexar figuras e depois quando chamar o registro ela aparece num objeto imagem... |
|
|
|
