• 0
Sign in to follow this  
rbordini

Picture

Question

Pessoas...

Tenho uma "picture" que capta uma imagem pré salva numa pasta especificada referente ao registro que eu quero. Só que quando o caminho da imagem é erradamente cadastrado, ele dá "run time error" e fecha o programa. Preciso de um comando que verifique a consistência do caminho colocado no cadastro do registro...tipo verificar se a figura existe mesmo...

alguém aí me dá uma luz? :huh:

Share this post


Link to post
Share on other sites

6 answers to this question

Recommended Posts

  • 0

Graymalkin seu exemplo funcionou, mas eu curti o esquema que o Bruno fez....

Bunão...você poderia me detalhar um pouco mais sobre isso?

abraços

Share this post


Link to post
Share on other sites
  • 0
Guest Carlinhos

Também gostaria de saber como funcionaria isso.....

Estou concluindo um software para uma empresa de RH e estou com o mesmo problema do rbordini.

obrigado

Carlos Alberto Soares

Share this post


Link to post
Share on other sites
  • 0

<<=Exemplo=>>

Private Sub Command1_Click()

Form2.Show

End Sub

Private Sub Command2_Click()

' comandos pra salvar a imagem.

' salve o caminho do text1 no form2

End Sub

Private Sub Dir1_Change()

Me.File1.Path = Me.Dir1.Path

End Sub

Private Sub Drive1_Change()

Me.Dir1.Path = Me.Drive1.Dir

End Sub

Private Sub File1_Click()

Me.Image1.Picture = LoadPicture(Me.File1.Path & "\" & Me.File1.FileName)

Me.Text1.Text = Me.File1.Path & "\" & Me.File1.FileName

End Sub

Mude algumas propriedades:

No Image, mude o Stretch para True, isso é pra imagem escolhida ficar do tamanho do image.

No File 1, mude o Pattern para *.jpg,*.gif e bla bla bla....coloque as extenoes de imagens que você deseja que seu programa suporte...

OK??? Qualquer duvida mande ai!!!

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this