Não consigo recuperar a imagem... - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Voltar

Autor

Assunto: Não consigo recuperar a imagem...

ChicoVieira

CRUZEIRO
SP - BRASIL

ENUNCIADA !

Postada em 16/02/2010 01:41 hs

Estou com problemas ao chamar uma imagem previamente armazenada em C:Temp (C:Temp2655.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:Temp2655.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?

LCRamos

GOIANIA
GO - BRASIL

ENUNCIADA !

Postada em 17/02/2010 15:19 hs

Carregue o form frmExibeFoto ,jogue a variável do nome da foto, e carregue no Form_Load, do frmExibeFoto.

Também tire o Set, pode ser carregada, se o frmExibeFoto estiver ativo

Dim MeuFormulario As Form

Set MeuFormulario = frmExibeFoto

MeuFormulario.Image1.Picture = LoadPictire("C:/Temp" & Pesquisa)

Agora veja se não falta a barra invertida na identificação da pasta e nome da foto, por que ai seria assim:

MeuFormulario.Image1.Picture = LoadPicture("C:/Temp/" & Pesquisa)

Claro troque estas barras "/", pela invertida.

vlu//

vlu//

vlu//

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site