|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Criar texto em Imagem
|
 |
|
|
|
Postada em 27/10/2003 por ^HEAVY-METAL^
Resumo: Com este código poderá verificar como criar os seus textos em formato de imagem, poderá recorrer a JPEG, GIF, PNG, etc.
Código:
<%@ 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 = "Este é o Título com AntiAlias" objectoGraficos.TextRenderingHint = TextRenderingHint.AntiAlias objectoGraficos.DrawString( strTexto, objectoFonte, Brushes.White, 10, 10 ) strTexto = "Olá, como se pode verificar esta uma 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>
T+,
|
|
|
|
|
