Vídeo recomendado
https://youtu.be/diWPPPhW-9E

SISTEMA DE CADASTRO COM LISTVIEW E FOTO

Fórum para agrupar todas as propostas de modelos de planilhas de Excel que essa comunidade consegue imaginar. Teve uma idéia? Produziu algo bem bacana? Esse é o lugar!

Moderador: Rafael Monteiro

EVALDO
Colaborador
Colaborador
Mensagens: 22
Registrado em: Qua Set 18, 2013 12:03 pm

SISTEMA DE CADASTRO COM LISTVIEW E FOTO

Mensagem por EVALDO »

Olá !

Estou criando um modelo de cadastro com um arquivo base encontrado na Web. Esse arquivo possui um listview que gostaria de vincular uma foto a cada cadastro/registro, tanto para consulta no listview, como para inclusão, exclusão/alterações.
Concluí o código de remover e anexar a foto, porém estou com dificuldade de vincular a foto no registro a que ela se refere. Por exemplo, a cada dois cliques na linha do Listview seleciono o registro que aparecem nos textbox, que deveria selecionar a foto correspondente a ele, porém isso nao está ocorrendo, seria tanto para seleção, quanto para exclusão e alteração do mesmo. Gostaria da ajuda de vocês, se puderem incrementar o código por favor.
O cadastro de dados está ok, somente a questão da foto nao consegui desenvolver o código.

Obrigado a todos, ficarei grato se alguém der a solução.
Editado pela última vez por EVALDO em Seg Jul 20, 2020 9:24 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO

Mensagem por Reinaldo »

Experimente
[ANEXO REMOVIDO A PEDIDO DO AUTOR]


EVALDO
Colaborador
Colaborador
Mensagens: 22
Registrado em: Qua Set 18, 2013 12:03 pm

Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO

Mensagem por EVALDO »

Opa. Boa tarde !!

Cara, perfeito!!!!!!!!!!!! Exatamente isso que eu queria....

Se nao for pedir muito como eu poderia acrescentar a função de que quando não for inserido qualquer foto no momento de salvar o registro, o Formulário pegue como padrão uma figura com o nome: Sem_Foto.JPEG. Esse arquivo ficaria contido na pasta C:\Projetos\Imagens\Sem_Foto.JPEG. Ou seja, nao tem foto, ele salva já com essa figura.

Só mais uma perguntinha, qual a alteração que você fez para gravar a foto no registro.Digo isso para que eu possa aprender e desenvolver, sem ter nada mecânico.

Muitisimoooooooooooooooooo Obrigado Reinaldo pela ajuda já dada !!!!!!!!!!!!!


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO

Mensagem por Reinaldo »

"...que você fez para gravar a foto..."
Não entrei nesse mérito, mas para obter o caminho da imagem pode utilizar algo +/- assim:

Código: Selecionar todos

Private Sub CommandButton1_Click()
Dim DiretorioImagem As String

With Application.FileDialog(msoFileDialogOpen)
    'define valores padrões
    .InitialFileName = DiretorioImagem
    .Filters.Clear
    .Filters.Add "JPEGS", "*.jpg; *.jpeg;*.GIF;*.bmp "
    '.Filters.Add "GIF", "*.GIF"
    '.Filters.Add "Bitmaps", "*.bmp"
    .AllowMultiSelect = False

    'verifica se um arquivo foi selecionado e obtem o seu nome
    If .Show = True Then
        Foto = .SelectedItems(1)
        DiretorioImagem = .SelectedItems(1)
    Else
        'se o usuário teclar ESC ou cancelar a operação exibe mensagem
        MsgBox "Operação Cancelada"
        Exit Sub
    End If
End With

If Foto <> "Falso" Then
    Pct_Imagem1.Picture = LoadPicture(Foto)
    Txt_CaminhoImage.Text = DiretorioImagem
Else
    Txt_CaminhoImage.Text = ("C:\PROJETO\IMAGENS\SEM_FOTO1.JPEG")
End If
End Sub
Agora o que fazer com a info, cabe a voce definir/decidir


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


EVALDO
Colaborador
Colaborador
Mensagens: 22
Registrado em: Qua Set 18, 2013 12:03 pm

Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO

Mensagem por EVALDO »

Muito Obrigado Reinaldo !

O projeto está ficando ótimo com a sua ajuda, somente o código da inserção do arquivo SEM_FOTO.JPEG, qdo o usuário não selecionar nenhuma foto para o registro,que ainda nao deu certo, mas também não atrasa e nem interfere no projeto, seria somente uma melhoria.


Avatar do usuário
kedim43
Colaborador
Colaborador
Mensagens: 45
Registrado em: Dom Fev 05, 2012 3:12 pm
Localização: Goias
Contato:

Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO

Mensagem por kedim43 »

Boa noite. passei por esta mesma situação no inicio da caminhada... Seguinte... A pontos que você pode usar.
Vamos a eles.
1 - Me.Image_foto.Picture = LoadPicture(ThisWorkbook.Path & "\Funcionarios\" & "Funcionarios" & ".jpg")... Entendendo o código.
A opção de imagem aqui carregada, assume, caso o operador não selecionar nenhuma imagem, o sistema, lançara como base uma imagem definida como padrão.
Veja que a opção está setada, para onde você disponibilizar a planilha com os dados...

2 - destino = ThisWorkbook.Path & "\Funcionarios\" & Me.TextBox_Funcionario & ".jpg"
fonte = Me.Text_caminho

If fonte <> "" Then

FileCopy fonte, destino

End If

Image_foto.Picture = LoadPicture()
A opção 2, confirma a explicação. Note que, se a fonte for vazia, a imagem será inserida a padrão definida pór voê.

3 - destino = ThisWorkbook.Path & "\Funcionarios\" & Me.TextBox_Funcionario & ".jpg"
fonte = Me.Text_caminho

If fonte <> "" Then

FileCopy fonte, destino

End If

'Atualiza o Recordset do BD
consulta.Update
A opção 3, traz a tão sonhada alteração... note que, agora temos a opção de atualização para a imagem e atualização no banco de dados. Uma dica util a você é utilizar o banco de dados em Access e front end em Excel... Rodará mais suave.

4 - If Dir(ThisWorkbook.Path & "\Funcionarios\" & Me.TextBox_Funcionario & ".jpg") <> "" Then

Kill ThisWorkbook.Path & "\Funcionarios\" & Me.TextBox_Funcionario & ".jpg"


Image_foto.Picture = LoadPicture()

Me.Image_foto.Picture = LoadPicture(ThisWorkbook.Path & "\Funcionarios\" & "Funcionarios" & ".jpg")
End If
Na opção 4, temos a ação de deletar, junto com a opção a imagem inserida... note a função kill...

Caso queira um exemplo destas funções em detalhe... entre em contato... Disponibilizarem algo bacana pra você!


EVALDO
Colaborador
Colaborador
Mensagens: 22
Registrado em: Qua Set 18, 2013 12:03 pm

Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO

Mensagem por EVALDO »

Olá...

Entendi parte do código mas nao consegui aplica-lo no projeto, que é pequeno. Se vc puder fazer aplicação dele no formulário, disponibilizei por anexo. ( se puder especificar como comentários nos códigos as explicações )

Com relação a um projeto mais completo e um pouco maior, qual seria seu contato por favor?

Obrigado mesmo amigão.

Valeu...
Editado pela última vez por EVALDO em Seg Jul 20, 2020 9:24 am, em um total de 1 vez.


Avatar do usuário
kedim43
Colaborador
Colaborador
Mensagens: 45
Registrado em: Dom Fev 05, 2012 3:12 pm
Localização: Goias
Contato:

Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO

Mensagem por kedim43 »



EVALDO
Colaborador
Colaborador
Mensagens: 22
Registrado em: Qua Set 18, 2013 12:03 pm

Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO

Mensagem por EVALDO »

blz.


Nesse caso desse arquivo se vc puder somente adequar o código para a inclusão sem imagem.

Obrigado !


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO

Mensagem por webmaster »

Reinaldo, o arquivo parece corrompido. É isso mesmo?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder