Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
SISTEMA DE CADASTRO COM LISTVIEW E FOTO
Moderador: Rafael Monteiro
SISTEMA DE CADASTRO COM LISTVIEW E FOTO
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.
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.
Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO
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 !!!!!!!!!!!!!
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 !!!!!!!!!!!!!
- Reinaldo
- 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
"...que você fez para gravar a foto..."
Não entrei nesse mérito, mas para obter o caminho da imagem pode utilizar algo +/- assim:
Agora o que fazer com a info, cabe a voce definir/decidir
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
Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO
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.
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.
- kedim43
- Colaborador
- Mensagens: 45
- Registrado em: Dom Fev 05, 2012 3:12 pm
- Localização: Goias
- Contato:
Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO
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ê!
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ê!
Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO
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...
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.
Re: SISTEMA DE CADASTRO COM LISTVIEW E FOTO
blz.
Nesse caso desse arquivo se vc puder somente adequar o código para a inclusão sem imagem.
Obrigado !
Nesse caso desse arquivo se vc puder somente adequar o código para a inclusão sem imagem.
Obrigado !