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
