FOTOS

MARCELO.TREZE 04/10/2012 17:27:25
#411287

[ô]FOTO DO PRODUTO
Private Sub FotoProduto_Click()
Label3.Visible = False
Label5.Visible = False
Dim strOpen As String
CmdDialogo.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly
[txt-color=#0000f0]CmdDialogo.InitDir = [Ô]C:\Arquivos de programas\Sistema Administrativo[Ô][/txt-color]
CmdDialogo.Filter = [Ô]Todas Imagens |;*.bmp;*.jpg;*.jpeg;*.gif;*.icone;*.png;*[Ô]
CmdDialogo.FilterIndex = 2
CmdDialogo.ShowOpen
strOpen = CmdDialogo.FileName
TxtFoto.Text = strOpen
FotoProduto.Picture = LoadPicture(TxtFoto.Text)
Exit Sub
End Sub

CRCJ 05/10/2012 08:50:08
#411322

Ola Marcelo
Desculpe, mas não funcionou, quando cliko na foto e escolho outro caminho, ele fica gravado o ultimo, e não retorna para o caminho que eu quero que fique fixo.

SURI 05/10/2012 09:23:35
#411325 Resposta escolhida

Olá CRCJ

Tente ao invés de tacar o caminho via código, vá nas propriedades do common Dialg Box e coloque este o caminho como default na propriedade inialDir.

CRCJ 05/10/2012 10:04:27
#411336

Ola SURI
Obrigado esta funcionando certinho, mas não pode colocar as [Ô]............[Ô] apas

CRCJ 05/10/2012 10:10:55
#411337

Ola Marcelo
Voçe consegui resolver aquele e-mail que te mandei no dia 26 de setembro sobre o que estava acontecendo no Topico Alteração De Cadastro, voçe resolveu o primeiro, mas quando tento editar varios item no cadastro, ele mistura tudo, vou te mandar de novo para o seu e-mail OK
Obrigado