Gerador de Legendas

[Gustavo Moura 1]

Fala pessoal entao eu fiz um Gerador de memes ou legendas só que na hora de salvar eu nao consigo fazer com que a label salve junto com a picture box

é possivel isso ou n?

Download do programa Link

[ribeiro55 47]

Possível é, mas não como imaginas.

Terás de desenhar as strings diretamente na imagem. Podes usar a GDI+ para o efeito.

Tens alguns exemplos na Wiki da comunidade, mas deixo-te aqui um exemplo bem básico:

       Dim texto As String = "P@P é que está a dar!"
       'isto é só para ir buscar uma imagem qualquer (a tua neste caso)
       Dim WC As New Net.WebClient()
       Dim ms As New IO.MemoryStream(WC.DownloadData("https://4.bp.blogspot.com/-gsD1qEf0GVo/V0XhDNsOW6I/AAAAAAAAAK0/daBOm9e1qHUTbhqTboi8s8Pbbc-QeWQMACKgB/s1600/Sem%2Bt%25C3%25ADtulo.png"))

       'definimos o texto a escrever
       Dim texto As String = "P@P é que está a dar!"
       'criamos um Bitmap com a informação da tua imagem
       Dim imagem As New Bitmap(ms)
       'preparamos uma superfície GDI com a imagem como base
       Dim g As Graphics = Graphics.FromImage(imagem)
       g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
       'definimos a font e a cor do brush
       Dim f As New Font("Arial", 14)
       Dim b As New SolidBrush(Color.Red)
       'medimos a string final, com aquela font, para saber o tamanho que irá ocupar
       Dim tamanho As SizeF = g.MeasureString(texto, f, imagem.Width)
       'calculamos a posição, com base no tamanho da imagem base e no tamanho que a string vai ocupar
       Dim posicao = New PointF((imagem.Width / 2) - (tamanho.Width / 2), imagem.Height - tamanho.Height - 10)
       'desenhamos a string na imagem
       g.DrawString(texto, f, b, posicao)
       'e gravamos a coisa
       imagem.Save("c:\teste.bmp")