Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #59 da revista programar. Faz já o download aqui!

Gustavo Moura

Gerador de Legendas

Mensagens Recomendadas

Gustavo Moura    1
Gustavo Moura

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?

Sem%2Bt%25C3%25ADtulo.png

Download do programa Link

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
ribeiro55    46
ribeiro55

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")


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.