PREENCHER UMA PICTUREBOX COM TEXTO

FNANDOOD 15/03/2011 17:20:12
#368062
Pessoal, quero fazer o seguinte:
Em um textbox eu coloco um valor [Ô]12345678[Ô], ai seto a fonte do textbox para CÓDIGO DE BARRA

depois quero salvar esse conteudo em uma PICTUREBOX para depois salvar em uma imagem que será aberta por um programa gerador de pdf. tem como fazer isso?

alguém pode me sugerir como posso fazer?
MARCELO.TREZE 15/03/2011 19:38:17
#368074 Resposta escolhida
acredito que vc pode jogar direto na picturebox assim

Printer.Fontname = [Ô]nome da font[Ô]
Picture1.Print [Ô] 12345[Ô]
Printer.enddoc
FNANDOOD 16/03/2011 13:45:33
#368131
Quase deu, mas preciso gerar o arquivo [Ô]A.JPG[Ô] e não salva nada nela

Assim Conseguo imprimir no picturebox, Picture1.Print [Ô]TESTE123[Ô]

mas não consigo salvar o conteudo no arquivo A.jpg, ele fica em branco.

estou tentando assim:
Private Sub Command1_Click()
[ô]SETA A FONTE DO CÓDIGO DE BARRAS
Picture1.Font = [Ô]39251[Ô] [ô]PODE SER ARIAL, COURIER, ETC...
Picture1.FontSize = 20
Picture1.Print [Ô]TESTE123[Ô]

SavePicture Picture1.Image, [Ô]C:\A.JPG[Ô]
[ô]tentei assim também e não deu certo.
SavePicture Picture1.Image, [Ô]C:\A.JPG[Ô]

End Sub
MARCELO.TREZE 16/03/2011 19:20:42
#368195
Consegui colega com um POG

vamos lá coloque um picturebox e DENTRO deste picturebox coloque um IMAGEBOX

mude a propriedade autoredraw do picturebox para [txt-color=#0000f0]true[/txt-color]

mude a propriedade visible do imagebox para [txt-color=#0000f0]false[/txt-color]

depois cole este código no botão

Private Sub Command1_Click()
  Picture1.Font = [Ô]Courier New[Ô]
  Picture1.FontSize = 12
  Picture1.Print [Ô]Marcelo[Ô]
  Image1.Picture = Picture1.Image
  SavePicture Image1.Picture, [Ô]c:\imagem.jpg[Ô]
End Sub


e pronto teste ai
FNANDOOD 16/03/2011 22:28:36
#368205
Marcelo, consegui fazer sem o IMAGEBOX, somente com PICTUREBOX
o código ficou assim:

Private Sub Command1_Click()
Picture1.Cls
Picture1.AutoRedraw = True
Picture1.AutoSize = True

Picture1.Font = [Ô]BarCode 128[Ô]
Picture1.FontSize = 30
Picture1.CurrentX = 2
Picture1.CurrentY = 2
Picture1.Print txtcodigobarras.Text

Picture1.Font = [Ô]ARIAL[Ô]
Picture1.FontSize = 17
Picture1.CurrentX = 2
Picture1.Print txtcodigobarras.Text
Picture1.Picture = Picture1.Image

SavePicture Picture1.Image, [Ô]c:\[Ô] & txtcodigobarras.Text & [Ô].jpg[Ô]
SavePicture Picture1.Image, [Ô]c:\[Ô] & txtcodigobarras.Text & [Ô].BMP[Ô]
SavePicture Picture1.Image, [Ô]c:\[Ô] & txtcodigobarras.Text & [Ô].GIF[Ô]
SavePicture Picture1.Image, [Ô]c:\[Ô] & txtcodigobarras.Text & [Ô].TIF[Ô]
End Sub
MARCELO.TREZE 16/03/2011 23:01:29
#368208
poxa nem pensei nisso legal

agora vc pode terminar seu prog parabens
HIDDEN 16/03/2011 23:23:24
#368211
Citação:

SavePicture Picture1.Image, [Ô]c:\[Ô] & txtcodigobarras.Text & [Ô].jpg[Ô]
SavePicture Picture1.Image, [Ô]c:\[Ô] & txtcodigobarras.Text & [Ô].BMP[Ô]
SavePicture Picture1.Image, [Ô]c:\[Ô] & txtcodigobarras.Text & [Ô].GIF[Ô]
SavePicture Picture1.Image, [Ô]c:\[Ô] & txtcodigobarras.Text & [Ô].TIF[Ô]



Acho importante salientar que o objeto PictureBox só da suporte a Bitmap. Mesmo com essas extensões, o arquivo será salvo como uma estrutura bmp (sem as compactações jpeg e gif, e sem a qualidade tiff).
Tópico encerrado , respostas não são mais permitidas
Voltar