ABRINDO E SALVANDO ARQUIVOS DE IMAGENS...

XYKOVIEIRA 12/08/2009 22:30:06
#319731
Prezados amigos,
Qual seria a sintaxe (em VB6) para:
1- Armazenar uma (ou mais de uma) foto em um arquivo tipo C:Imagens?
2- Recuperar essa(s) foto(s) quando um form é exibido?

Exemplo: Num cadastro de clientes, os dados seriam salvos numa tabela Access. Nesse mesmo cadastro, seriam gravadas
duas imagens (uma foto do funcionário e uma de seu gerente), só que essas fotos, por questão de manuseabilidade, seriam
armazenadas numa pasta C:Imagens, tipo Func221 e GerAdm18.
Ao abrir o form com o arquivo do funcionário, sua foto seria carregada do arquivo C:Imagens para o form, ao lado do seu
nome, e a do seu gerente ao lado do nome do gerente, além dos demais dados cadastrados (Nome completo,
endereço, telefone, salário, etc.). Preciso apenas, no caso da pesquisa em nome do funcionario [ô]221[ô], do código de carrega-
mento das fotografias (os dados completos da ficha serão obtidos pelo método [ô]Seek[ô].
Agradeço a colaboração.
ROBIU 13/08/2009 08:39:31
#319741 Resposta escolhida
Para armazenar a foto, você cria uma pasta Fotos no diretorio do projeto. Coloca as fotos de todos funcionários nesta pasta com o nome do arquivo no padrão Func-XXX.jpg, onde o xxx é o código do funcionários. Também coloque um arquivo com o formato Func-000.jpg que é para o caso de não existir a foto do cara. (este arquivo pode ser editado no paint com o mesmo tamanho dos arquivos das fotos com o nome SEM FOTO ou FOTO INDISPONÍVEL, ETC)
Depois que localizar o funcionário, com o metodo Seek, vai ter o código do funcionario em algum label ou textbox de onde você vai pegar o valor para compor o nome da imagem. No exemplo abaixo estou usando um label
Você vai precisar verificar se o arquivo existe, então vamos usar o FSO - FileSystemObject
Para usar o FSO, precisamos marcar em menu Project -> References a opção Microsoft Scripting Runtime
Adicione o objeto Image no form (Acho que o pictureBox também funcione, mas estou usando o IMAGE)
Na propriedade Name do IMAGE coloque Foto
Na seção geral do form:
Option Explicit
Dim FSO As FileSystemObject


Sub carregarFoto()
    Dim CaminhoArq As String
    Set FSO = New FileSystemObject
    CaminhoArq = App.Path & [Ô]FotosFunc-[Ô] & Label1.Caption & [Ô].jpg[Ô] [ô] Aqui as fotos estão na pasta Fotos do Projeto
    [ô]Verificar se o arquivo existe
    If FSO.FileExists(CaminhoArq) Then
        Set Foto.Picture = LoadPicture(CaminhoArq)
       [ô]Note que Foto é o nome do objeto IMAGE 
    Else
        [ô]Se não existir a foto, vai exibir este arquivo, conforme descrito acima 
        Set Foto.Picture = LoadPicture(App.Path & [Ô]FotosFunc-000.jpg[Ô])
    End If
    Set FSO = Nothing
End Sub
XYKOVIEIRA 13/08/2009 12:22:56
#319760
Valeu Robiu.
Vou incluir no meu project.
Obrigado.
Chico.
Tópico encerrado , respostas não são mais permitidas
Voltar