USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Como salvar foto pra cada cadastro no VB 6.0
newadd
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 30/11/2011 09:11 hs            
Olá galera blz, sou novo aqui e gostaria da ajuda de vcs seguinte, eu tenho um projeto no vb6.0 de cadastro de membros todas as informações estão vinculadas ao access eu gostaria de inserir foto para cada pessoa cadastrada tipo assim conforme eu for passando para o proximo registro consequentemente ir alternando as fotos.
hj eu uso esta rotina:
Private Sub txtcodigo_change()
Call invisible

If Txtcodigo.text = "1" Then
Img1.Visible = True
ElseIf Txtcodigo.text = "2" Then
Img2.Visible = True
ElseIf Txtcodigo.text = "4" Then
Img4.Visible = True
ElseIf Txtcodigo.text = "5" Then
Img5.Visible = True
ElseIf Txtcodigo.text = "6" Then
Img6.Visible = True
ElseIf Txtcodigo.text = "7" Then
Img7.Visible = True
End If
End Sub
 
mais gostaria de buscar a foto no computador e inserir no frmcadastro e salvar
 
 
   
Thiago
não registrado
Postada em 30/11/2011 12:11 hs   
Isso é simples.
Armazene no banco de dados o local de onde se encontra a imagem e no momento em que você vai selecionando o código e o sistema vai pegando a informação do banco e carregando em um picture box. manjou?
     
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
ENUNCIADA !
Postada em 30/11/2011 13:57 hs            
NewAdd, veja um exemplo grave o nome da foto com o código indexado do membro, coloque em uma pasta todas as fotos e use a rotina abaixo, é a mesma que uso há tempos, funciona muito bem.
No evento LostFocus do Text voce chama

FOTO

Apenas isto

Dim sLOAD AS Picture
Dim sFOTO AS String

Private Function FOTO()
    On Error GoTo ERRO
        sFOTO = CAMINHODAFOTO & Txtcodigo.Text & ".EXT" (JPG, BMP, etc.)
        If Dir$(sFOTO) <> "" Then
                Set sLOAD = LoadPicture(sFOTO)
                Set imgFOTO.Picture = sLOAD
                imgFOTO.Visible = True
        Else
                imgFOTO.Visible = False
        End If
        Exit Function
ERRO:
        imgFOTO.Visible = False
        Exit Function
End Function


vlu//

   
RICARDO
não registrado
ENUNCIADA !
Postada em 08/10/2016 16:55 hs   
ou seja é isso ai a baixo.

Private Sub Command1_Click()
  
  Dim sLOAD As Picture
  Dim sFOTO As String
          
sFOTO =
   
RICARDO
não registrado
ENUNCIADA !
Postada em 08/10/2016 16:57 hs   
Private Sub Command1_Click()
  
  Dim sLOAD As Picture
  Dim sFOTO As String
          
sFOTO = "C:UsersJOGOSDesktopSALVAR FOTO" + Text1
If Dir$(sFOTO) <> "" Then
   Set sLOAD = LoadPicture(sFOTO)
   Set IMGFOTO.Picture = sLOAD
   IMGFOTO.Visible = True
   MsgBox "VERDADEIRO"
Else
   IMGFOTO.Visible = False
   MsgBox "FALSO"
      
Exit Sub
   IMGFOTO.Visible = False
        
End If
    
End Sub
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página