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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Mudar o local de salvar a imagem
flecha
SÃO PAULO
SP - BRASIL
Postada em 07/03/2010 17:00 hs            
Pessoal, como altero o caminho de salvamento para:
 
c:/Cadastro/Fotos
 
E se possível perguntar com que nome salvar.
 
Nessa sub:
 
Private Sub lvButtons_H5_Click()
On Error Resume Next
DoEvents
If Dir(App.Path & "myPic", vbDirectory) = "" Then MkDir (App.Path & "myPic")
File1.Path = App.Path & "myPic"
'File1.Pattern = "*.bmp"
File1.Pattern = "*.jpg"
File1.Refresh
Dim Maxnum As Integer, ii As Integer
For ii = 0 To File1.ListCount - 1
    If Left(File1.List(ii), 1) = "p" Then
        If CInt(Mid(File1.List(ii), 2, Len(File1.List(ii)) - 4)) > Maxnum Then
            Maxnum = CInt(Mid(File1.List(ii), 2, Len(File1.List(ii)) - 4))
        End If
    End If
Next
    'SavePicture Image1.Picture, App.Path & "myPicp" & Maxnum + 1 & ".bmp"
   
    Picture1.Picture = Image1.Picture
    SAVEJPEG App.Path & "myPicp" & Maxnum + 1 & ".jpg", 100, Me.Picture1
  DoEvents
End Sub
 
Grato
Flecha
     
watson cesar
MACAUBAL
SP - BRASIL
ENUNCIADA !
Postada em 07/03/2010 17:26 hs            
Private Sub lvButtons_H5_Click()
On Error Resume Next
DoEvents
If Dir("C:CADASTROSFOTOS", vbDirectory) = "" Then MkDir ("C:CADASTROSFOTOS")
File1.Path = "C:CADASTROSFOTOS"
'File1.Pattern = "*.bmp"
File1.Pattern = "*.jpg"
File1.Refresh
Dim Maxnum As Integer, ii As Integer
For ii = 0 To File1.ListCount - 1
    If Left(File1.List(ii), 1) = "p" Then
        If CInt(Mid(File1.List(ii), 2, Len(File1.List(ii)) - 4)) > Maxnum Then
            Maxnum = CInt(Mid(File1.List(ii), 2, Len(File1.List(ii)) - 4))
        End If
    End If
Next
    'SavePicture Image1.Picture, App.Path & "myPicp" & Maxnum + 1 & ".bmp"
   
    Picture1.Picture = Image1.Picture
    SAVEJPEG "C:CADASTROSFOTOS" & Maxnum + 1 & ".jpg", 100, Me.Picture1
  DoEvents
End Sub
 
 
`````````````````
MAIS OU MENOS ASIM
   
flecha
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 07/03/2010 21:46 hs            
Watson, deu certo
 
Será que colocando um ImputBox no inicio da sub, ele pode armazenar a resposta para colocar na gravação do arquivo nessa linha com o nome colocado no Imputbox?
 
SAVEJPEG "C:CADASTROSFOTOS" & AQUI A RESPOSTA DO IMPUTBOX & ".jpg", 100, Me.Picture1
 
Flecha
   
Josef
FRANCA
SP - BRASIL
ENUNCIADA !
Postada em 09/03/2010 08:08 hs            
Amigo, a questão do InputBox funciona sim. Porém, devem ser feitas algumas verificações antes de jogar o nome direto no comando para salvar o arquivo.
Faça um tratamento do que foi digitado, se o conteúdo digitado é um nome válido pra arquivo.
Abraços.
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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