• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Ridelight

[ASP] Criar texto em Imagem

1 mensagem neste tópico

O código abaixo mostra como criar texto em imagem dinamicamente. Este recurso é bastante utilizado para confirmação no envio de formulários.

<%@ Page ContentType="image/jpeg" %>
<%@ Import namespace="System.Drawing" %>
<%@ Import namespace="System.Drawing.Imaging" %>
<%@ Import namespace="System.Drawing.Text" %>

<Script Runat="Server">

Sub Page_Load
Dim objectoBitmap As Bitmap
Dim objectoGraficos As Graphics
Dim strTexto As String
objectoBitmap = New Bitmap( 600, 100 )

objectoGraficos = Graphics.FromImage( objectoBitmap )
objectoGraficos.Clear( Color.DarkBlue )

Dim objectoFonte As New Font( "Verdana", 20 )

strTexto = "Título com AntiAlias"
objectoGraficos.TextRenderingHint = TextRenderingHint.AntiAlias
objectoGraficos.DrawString( strTexto, objectoFonte, Brushes.White, 10, 10 )

strTexto = "Breve descrição com o SystemDefault"
objectoGraficos.TextRenderingHint = TextRenderingHint.SystemDefault
objectoGraficos.DrawString( strTexto, New Font("Times", 14), Brushes.White, 12, 50 )

objectoBitmap.Save( Response.OutputStream, ImageFormat.JPEG )
End Sub
</Script> 

0

Partilhar esta mensagem


Link 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