Picture

[rbordini]

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:

[BrunoVeríssimo]

porque você não usa um Drive, Dir e Filelist junto de um image pra pessoa mandar procurar a imagem desejada.

Ai você pode por um botao onde ele salva o caminho da imagem que você quer!!!!

como na imagem do link abaixo!!!

<<=Exemplo=>>

[Graymalkin]

Ou simplesmentes pode usar a função Dir() para saber se o arquivo existe ou não.

Abraços,

Graymalkin

[rbordini]

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

[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

[BrunoVeríssimo]

<<=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!!!

[rbordini]

Deu certo...

Obrigadão!!

Rodrigo