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 |
|
|
|
|
|
|
|
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
|
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
|
|
|
|
