EXIBIR IMAGEM DO ARQUIVO ... COMPILE ERROR ...

XYKOVIEIRA 15/02/2010 21:08:28
#334446

Estou com problemas ao chamar uma imagem previamente armazenada em C:\Temp (C:\Temp\2655.jpg). Pelo código, se a imagem existir, deve ser exibida no form ExibeFotos. Contudo, ao tentar clicar no label Fotos, o seguinte erro é apontado:
<Compile error> - indicando a junção “&” na linha <Set frmExibeFoto.Image1.Picture = LoadPicture(“C:\Temp”)& Pesquisa.
(Label22 contém o número do livro cadastrado. E, na pasta C:\Temp\2655.jpg, fica armazenada a foto do livro).

Eis o código (tentativa) da chamada da imagem:

Private Sub lblFotos_Click()
Dim Pesquisa As String
Pesquisa = Label22.Caption & [Ô].jpg[Ô]
If Dir([Ô]C:\Temp[Ô]) & Pesquisa <> [Ô][Ô] Then
frmExibeFoto.Show
Set frmExibeFoto.Image1.Picture = LoadPicture([Ô]C:\Temp[Ô]) & Pesquisa
Else
MsgBox [Ô]Imagem não disponível[Ô]
End If
End Sub

Alguém pode ajudar?
ASHKATCHUP 15/02/2010 21:11:46
#334447 Resposta escolhida
O erro é bem fácil de ser detectado

LoadPicture([Ô]C:\Temp[Ô][txt-color=#e80000]) & Pesquisa[/txt-color]


Você tem que fechar o parênteses depois de concatenar com a string.
XYKOVIEIRA 15/02/2010 21:27:57
#334448
File not find: C:\Temp2655.jpg.
(mudando para Set frmExibeFotoImage1.Picture = LoadPicture([Ô]C\Temp[Ô] & Pesquisa)....
Ainda não deu certo, mesmo mudando para ...LoadPicture([Ô]C\Temp & Pesquisa[Ô])....
ASHKATCHUP 16/02/2010 09:28:30
#334468
Espero que você também mudou acima...


Private Sub lblFotos_Click()
	Dim Pesquisa 			As String
	[ô]
    Pesquisa = Label22.Caption & [Ô].jpg[Ô]
	[ô]
    If Dir([Ô]C:\Temp\[Ô] & Pesquisa) <> [Ô][Ô] Then
        frmExibeFoto.Show
        Set frmExibeFoto.Image1.Picture = LoadPicture([Ô]C:\Temp\[Ô] & Pesquisa)
    Else
        MsgBox [Ô]Imagem não disponível[Ô]
    End If
	[ô]
End Sub
XYKOVIEIRA 16/02/2010 11:23:09
#334490

Mandou bem, Ashkatchup....
Exatamente o que eu queria. Valeu, bro.
DANIKULL 16/02/2010 11:28:26
#334491
XYKOVIEIRA, bom dia.


Eis o código (tentativa) da chamada da imagem:

Private Sub lblFotos_Click()
    Dim Pesquisa As String
    Pesquisa = Label22.Caption & [Ô].jpg[Ô]
    If Dir[txt-color=#e80000]([Ô]C:\Temp[Ô])[/txt-color] & Pesquisa <> [Ô][Ô] Then
        frmExibeFoto.Show
        Set frmExibeFoto.Image1.Picture = LoadPicture[txt-color=#e80000]([Ô]C:\Temp[Ô])[/txt-color] & Pesquisa
    Else
        MsgBox [Ô]Imagem não disponível[Ô]
    End If
End Sub


O nosso amigo ASHKATCHUP, já lhe deu a resposta, agora só para te alertar, também há um erro de atenção, onde??

Observe os itens sublinhadsos:

([Ô]C:\Temp[Ô]) -> Voce indicou o diretório correto, mais quando juntou o arquivo esqueceu de colocar a Barra Inertida entreo o diretório e o Arquivo, assim:
LoadPicture([Ô]C:\Temp[Ô]) & [txt-color=#0000f0][Ô]\[Ô][/txt-color] & Pesquisa -> Sua Forma
LoadPicture([Ô]C:\Temp[Ô] & [txt-color=#0000f0][Ô]\[Ô][/txt-color] & Pesquisa) -> Forma correta dita pelo nosso amigo
Da forma como voce colocou o sistema vai interpretar que o nome do arquivo é Temp2655.jpg e que está na Pasta C:\, pois a única barra que fecha o nome é a que está na riz,

ok???
Tópico encerrado , respostas não são mais permitidas
Voltar