SALVAR TEXTO DE UMA PICTUREBOX

 Tópico anterior Próximo tópico Novo tópico

SALVAR TEXTO DE UMA PICTUREBOX

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#335099 - 23/02/2010 02:03:35

GONDYN
ITUIUTABA
Cadast. em:Dezembro/2004


Bom dia a todos,

Tenho uma PictureBox onde utilizo o metdo DrawString para escrever alguns textos, o problema , como salvar estes textos como se fosse uma imagem, ou de outra forma....

Ederson Gondyn

#335288 - 24/02/2010 22:24:32

GONDYN
ITUIUTABA
Cadast. em:Dezembro/2004


Boa noite pra todos, descobri como fazer. Se algum tiver o mesmo problema que o meu, pode utilizar o cdigo que colocarei logo abaixo:
  
        
Cabecalho
Dim Text As String = []Ederson Gondyn[]
        Dim FontColor As Color = Color.Blue
        Dim BackColor As Color = Color.Yellow
        Dim FontName As String = []Times New Roman[]
        Dim FontSize As Integer = 14

        Dim Height As Integer = 40
        Dim Width As Integer = 200
        Dim FileName As String = []MyImage[]

        Dim objBitmap As New Bitmap(Width, Height)      
        Dim objGraphics As Graphics = Graphics.FromImage(objBitmap)
        Dim objColor As Color
        Dim objFont As New Font(FontName, FontSize)
        Dim objPoint As New PointF(5.0F, 5.0F)
        Dim objBrushForeColor As New SolidBrush(FontColor)
        Dim objBrushBackColor As New SolidBrush(BackColor)

        objGraphics.FillRectangle(objBrushBackColor, 0, 0, Width, Height)
        objGraphics.DrawString(Text, objFont, objBrushForeColor, objPoint)
        objBitmap.Save(Application.StartupPath & FileName  & [].png[], ImageFormat.Png)


Ederson Gondyn

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por GONDYN em 25/02/2010 01:03:33