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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Salvar imagem do picture
Diogo
não registrado
Postada em 06/05/2008 16:55 hs   
Bom pessoal, eu queria saber se tem algum jeito de salvar a imagem do picturebox em um arquivo de imagem, porem, a imagem que deveria salvar seria o texto do label que eu usei o seguinte codigo:
Me.Picture1.Print ; Me.Label1.Caption
 
Que jogou o valor da label no picture.
 
Para salvar a imagem tentei esse:
SavePicture Picture1.Image, "C:Teste.BMP"
 
Mas ele só salva o fundo que é branco, e nao salva os valores das labels que estavam nele.
 
Desde ja agradeço.
     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 06/05/2008 22:09 hs            
faz assim colega
 
Private Sub Command1_Click()
  Picture1.CurrentX = Label1.Left
  Picture1.CurrentY = Label1.Top
  Picture1.Font = Label1.Font
  Picture1.FontSize = Label1.FontSize
  Picture1.FontBold = Label1.FontBold
  Picture1.Print Label1.caption
  SavePicture Picture1.Image, App.Path & "\imagem.jpg"
End Sub
 
ediga se funcionou
TÓPICO EDITADO
 
Diogo
não registrado
ENUNCIADA !
Postada em 07/05/2008 08:39 hs   
Não esta dando certo.
Acontece a mesma coisa, salva uma imagem apenas com o fundo e sem o conteudo da label.
 
Não teria como dar 1 print screen só da picture e depois salvar?
 
Você acha melhor eu fazer um relatorio pelo crystal?
Porque o programa gera 1 etiqueta com codigo de barras  de acordo com os dados dos campos,
eu achava melhor gerar uma imagem.
 
GratoEmoções
   
Treze
não registrado
ENUNCIADA !
Postada em 07/05/2008 09:25 hs   
O código funciona verifique o seguinte
 
se você colocou o nome do seu label, no lugar do label1
 
e certifique-se do label estar inserido dentro do picture box, e não fora
 
 
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 07/05/2008 10:04 hs            
Desculpe colega fiz um novo teste com uma figura inserida e percebi que realmente sai apenas o fundo porém achei a solução, veja como
 
insira o picturebox com anteriormente, insira o seu label, e também insira um imagebox, agora veja como funciona você prepara a picture envia para o imagebox e ai sim salva eis o código
 
você pode deixar a propriedade visible do image como false
 
Private Sub cmdTeste_Click()
  Dim Y As Integer
  Dim X As Integer
  H = Picture1.TextHeight(Label1.Caption)
  W = Picture1.TextWidth(Label1.Caption)
  Picture1.CurrentX = Label1.Left
  Picture1.CurrentY = Label1.Top
  Picture1.Font = Label1.Font
  Picture1.FontSize = Label1.FontSize
  Picture1.FontBold = Label1.FontBold
  Picture1.Print Label1.Caption
  Image1.Picture = Picture1.Image
  SavePicture Image1.Picture, "c:imagem.jpg"
End Sub
veja se agora funciona
   
Diogo
não registrado
ENUNCIADA !
Postada em 07/05/2008 10:31 hs   
O seu código nao manda o conteudo do label pro picture aqui, tentei usar o esquema do image mas continua salvando só o fundo =/
 
Meu código abaixo:
 
Private Sub Command1_Click()
Dim fonte As String
fonte = Picture1.Font
Me.Picture1.Font = IDAutomationHC39M
Me.Picture1.Font = arial
Me.Picture1.Print Me.Label16.Caption;
Me.Picture1.Print Me.Label14.Caption
Me.Picture1.Print Me.Label17.Caption;
Me.Picture1.Print Me.Label15.Caption
Me.Picture1.Font = fonte
Me.Picture1.Print ; Me.Label1.Caption
  Image1.Picture = Picture1.Image
  SavePicture Image1.Picture, App.Path & "imagem.jpg"
End Sub
 
Grato Emoções
   
Página(s): 1/3      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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