USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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+,
 


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página