Notifications
Clear all

Postando foto no Visual Basic

5 Posts
2 Usuários
0 Reactions
666 Visualizações
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Pessoal, boa noite!

O meu projeto, ao iniciá-lo pela primeira vez, o usuário deve, obrigatoriamente, cadastrar um login e uma senha. Isso funciona perfeitamente, mas quero agregar valor, a minha vontade é permitir que, nesta etapa, o usuário possa postar uma foto de perfil ao criar o seu login.

É isso mesmo, postar uma foto similar as postagens das redes sociais.

O que eu pensei é criar um botão que abra o C:, dai o usuário escolhe a foto desejada e, através de um código, a mesma torna-se o bitman.

É possível?

 
Postado : 29/07/2014 6:25 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Sim é possível, é só ajustar a rotina para quando fizer o cadastro poder atribuir uma imagem.
Se pesquisar a qui no Forum por "cadastro foto" encontrará varios tópicos e exemplos que poderão ser adaptados para sua questão.

[]s

 
Postado : 29/07/2014 8:16 pm
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Mauro,

O código abaixo faz exatamente o que eu preciso, porém, entretanto, ao encerrar o projeto e iniciá-lo novamente, a imagem ''postada'' desaparece!

O que farei?

Dim fileName As String

'use GetOpenFilename Method to select picture
fileName = Application.GetOpenFilename(filefilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select a File", MultiSelect:=False)

If fileName = "False" Then

MsgBox "Nenhuma imagem foi selecionada!"

Else

'load picture to Image control, using LoadPicture property

Me.Image5.Picture = LoadPicture(fileName)

'after any change vba has to be told to refresh the UserForm for the change to appear

Me.Repaint

'label caption changes after picture is loaded

Me.Label9.Caption = "Alterar Imagem"

End If

 
Postado : 30/07/2014 1:28 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não sei como está a estrutura do seu projeto, então vou me basear pelo que detalhou:

1) Acesso
----1.1 - Verifica se Usuário já está cadastrado:
-------------Sim => Verifica se Senha está Correta
----------------------Login Ok => Habilita Alterar Senha
---------------------------------=> Permite Adicionar ou/ Alterar Foto

-------------NÃO => Solicita Cadastro e definição da Senha
-------------------=> Armazena na Aba o Usuário e Senha
-------------------=> Opção Definir Foto (Obrigatório ?)

O cronograma é bem básico, com certeza já deve ter em seu projeto uma Aba onde são armazenados os Usuários e Senhas, e insrução nas rotinas para se realizar as devidas conferencias se as informações de acesso estão corretas e para se cadastrar novos usuários e senhas, então nesta mesma aba tem de adicionar na Linha/Coluna correspondente ao usuário o endereço (Path) e nome da Foto, e ajustar na rotina para carrega-la automaticamente.
Na rotina que postou, ela somente abre a janela para ser escolhida (selecionada) uma foto e mostra-la no Controle Image5, e não tem nenhuma instrução para armazenar o Path e Nome da mesma, nem relacionamento com o Usuário.
Então precisamos ter uma rotina ou ajuste na que utiliza para efetuar este armazenamento.
Uma outra coisa que acredito ter de levar em conta e não foi comentado, seria se a definição da Foto tem de ser Obrigatório ou não, e tambem se tem opção de se alterar a Senha.

[]s

 
Postado : 31/07/2014 11:25 am
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Mauro,

Realmente o projeto além de arquivar o login e a senha, o mesmo faz uso das opções: ESQUECI A SENHA, TROCAR DE SENHA.

A foto, além de não ser obrigatória, não possui vínculo com nada disso.

Sendo assim, caso houver um código que, ao alterar a picture da image5, faça como esta imagem não seja alterada, a não ser que o usuário escolha outra imagem, para mim esta ótimo.

Caso você tiver um código que faça isso, ou algo similar, por favor, descreva-o.

Agradeço.

 
Postado : 31/07/2014 6:45 pm