GDI+ Gráficos en Visual Basic .Net - IV

Texto en Block, Cursiva y Reflejo

Fecha: 16/Ago/2005 (16 de Agosto de 2005)
Autor: Ing. Fernando Luque Sánchez  -   DCE  4  Estrellas

[email protected]


Sres. Desarrolladores, esta es la cuarta entrega de una colección de artículos que les enseñará como crear textos artísticos usando GDI+ así como de animaciones sencillas.

Las anteriores

Los anteriores entregas están en:

http://www.elguille.info/colabora/NET2005/FernandoLuque_GDITexto01.htm

http://www.elguille.info/colabora/NET2005/FernandoLuque_GDITexto02.htm

http://www.elguille.info/colabora/NET2005/FernandoLuque_GDITexto03.htm

En esta entrega presento como dibujar el texto en Block, Cursiva y Reflejo

El ejemplo

En este ejemplo muestro como crear texto artístico Block  .


Figura 01

 

En este ejemplo muestro como crear texto artístico Cursiva.


Figura 02

En este ejemplo muestro como crear texto artístico Reflejo.


Figura 03

A continuación sigue código en Visual Basic:

Este es para el texto tipo Block   

Private Sub Block(ByVal sender As System.Object, ByVal e _
        As System.EventArgs) Handles cmdBlock.Click

        'Texto artístico Bloque
        'Definicón del objeto gráfico, pincel 
        Dim grafico As Graphics

        'Para Block se definen los colores de fuente y de la sombra
        Dim pincelSombra As Brush = Brushes.DarkBlue
        Dim pincelFuente As Brush = Brushes.GreenYellow

        'Creamos la fuente 
        Dim miLetra As New Font("Times New Roman", Me.nuSize.Value, _
                FontStyle.Bold, GraphicsUnit.Pixel)

       'CREACION DEL GRAFICO
        grafico = Me.pcTexto.CreateGraphics
        grafico.Clear(Color.White)

        'Calcular el tamaño del texto
        Dim TextoSize As SizeF
        TextoSize = grafico.MeasureString(Me.txtTexto.Text, miLetra)

        'Los valores para la ubicación
        Dim xPos, yPos As Single
        xPos = (Me.pcTexto.Width - TextoSize.Width) / 2
        yPos = (Me.pcTexto.Height - TextoSize.Height) / 2

        'Ya están definidos los elementos: 
        'Grafico, Pinceles, Fuente, Tamaño y posición
        'Dibujar el texto ahora...usar el método DrawString
        'Primero la sombre y luego el frente.
        'Dibujar todo el sombreado inclinado

        Dim i As Integer
        For i = CInt(Me.nuBlock.Value) To 0 Step -1
            grafico.DrawString(Me.txtTexto.Text, miLetra, pincelSombra, _
                            xPos - i, yPos + i)
        Next

        'Dibujar la parte frontal
        grafico.DrawString(Me.txtTexto.Text, miLetra, pincelFuente, xPos, yPos)

    End Sub

 

El codigo completo está en el empaquetado al final del artículo. Suerte a todos y no se olviden dar su opinión en PanoramaBox, eso me alienta a seguir compartiendo con ustedes mis conocimientos.

 

Ing. Fernando Luque Sánchez
CIP 61806
De Trujillo - Perú para el mundo


Espacios de nombres usados en el código de este artículo:

System.Drawing..Drawing2D


Fichero con el código de ejemplo: FernandoLuque_GDITexto04.zip - Tamaño 8 KB


ir al índice