Dibujando Texto


Viendo un poco de System.Drawing, se me ocurrio algo que mas adelante podriamos utilizar, por ejemplo para hacer un Capcha, no se tal vez otra cosa en la cual le des utilidad.

Ahi vamos:

a)Importar las librerías

Imports System.Drawing
Imports System.Drawing.Drawing2D

b)Programar el evento Paint del Formulario

Private Sub frmTexto_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Me.BackColor = Color.Beige
e.Graphics.DrawString("Visual Studio", New Font("Arial Black", 30, FontStyle.Bold), Brushes.LightSlateGray, 10, 13)
e.Graphics.DrawString("Visual Studio", New Font("Arial Black", 30, FontStyle.Bold), Brushes.Beige, 8, 10)
Dim brush As New HatchBrush(HatchStyle.DarkVertical, Color.Gold, Color.Red)
e.Graphics.DrawString("Visual Studio", New Font("Arial Black", 30, FontStyle.Bold), Brushes.LightSlateGray, 10, 53)
e.Graphics.DrawString("Visual Studio", New Font("Arial Black", 30, FontStyle.Bold), brush, 8, 50)
brush = New HatchBrush(HatchStyle.Weave, Color.Green, Color.Beige)
e.Graphics.DrawString("Visual Studio", New Font("Arial Black", 30, FontStyle.Bold), Brushes.LightSlateGray, 10, 93)
e.Graphics.DrawString("Visual Studio", New Font("Arial Black", 30, FontStyle.Bold), brush, 8, 90)
brush = New HatchBrush(HatchStyle.ZigZag, Color.Blue, Color.Beige)
e.Graphics.DrawString("Visual Studio", New Font("Arial Black", 30, FontStyle.Bold), Brushes.LightSlateGray, 10, 133)
e.Graphics.DrawString("Visual Studio", New Font("Arial Black", 30, FontStyle.Bold), brush, 8, 130)
Dim rec As New Rectangle(5, 180, 330, 40)
Dim Deg As New LinearGradientBrush(rec, Color.Navy, Color.Aqua, LinearGradientMode.BackwardDiagonal)
e.Graphics.DrawString("Visual Studio", New Font("Arial Black", 30, FontStyle.Bold), Brushes.LightSlateGray, 10, 173)
e.Graphics.DrawString("Visual Studio", New Font("Arial Black", 30, FontStyle.Bold), Deg, 8, 170)
Dim bmp As New Bitmap("C:\WINDOWS\A pescar.bmp") 'Cambia la ruta de la imagen
Dim tbImg As New TextureBrush(bmp)
e.Graphics.DrawString("Visual Studio", New Font("Arial Black", 50, FontStyle.Bold), Brushes.LightSlateGray, 10, 213)
e.Graphics.DrawString("Visual Studio", New Font("Arial Black", 50, FontStyle.Bold), tbImg, 8, 210)
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s