LECCION 29

Visual Basic 2015 Lección 29: Texto Dibujo

Hemos aprendido cómo dibujar rectángulo, elipse y el círculo en Visual Basic 2015 en las lecciones anteriores, ahora vamos a aprender a dibujar texto en la pantalla. Si, en lugar de utilizar el comando de impresión, también puede dibujar texto en la pantalla.

29.1 Dibujo de texto

Con el fin de dibujar texto en la pantalla, podemos utilizar el método de cordón. El formato es el siguiente:

myGraphics.DrawString (myText, myFont, mybrush, X, Y)

Donde myGraphics es el objeto Graphics, myText es el texto que desea mostrar en la pantalla, myFont es el objeto de fuente creado por usted, myBrush es el estilo de pincel creado por usted y X, Y son las coordenadas de la esquina superior izquierda del texto .

Puede crear el objeto de fuente en Visual Basic 2015 utilizando la siguiente declaración:

myFont = Nueva System.Drawing.Font ( "Verdana", 20)

Donde el primer argumento de la fuente es el tipo de letra, y el segundo argumento es el tamaño de la fuente. Se puede añadir un tercer argumento como estilo de fuente, ya sea en negrita, cursiva, subrayado.

Aquí están los ejemplos:

myFont = Nueva System.Drawing.Font ( "Verdana", 20, FontStyle.Bold) myFont = Nueva System.Drawing.Font ( "Verdana", 20, FontStyle.Underline)

myFont = Nueva System.Drawing.Font ( "Verdana", 20, FontStyle.Italic)

myFont = Nueva System.Drawing.Font ( "Verdana", 20, FontStyle.Regular)

Para crear el objeto de Cepillo, puede utilizar la siguiente declaración:

Dim myBrush Como Cepillo

myBrush = Nueva Drawing.SolidBrush (Color.BrushColor)

Además de los siete colores, algunos de los colores del cepillo comunes son Aliceblue, AquaMarine beige, DarkMagenta, DrarkOliveGreen, SkyBlue y más. Usted no tiene que recordar los nombres de todos los colores, el IntelliSense le permitirá navegar a través de los colores en un menú desplegable, una vez se escribe el punto después de la palabra en color.

Ahora procederemos a dibujar la fuente utilizando el código de ejemplo a continuación:

ejemplo 29.1

Private Sub BtnDraw_Click (remitente como objeto, e como EventArgs) Maneja BtnDraw.Click

myGraphics tenues como gráficos = Me.CreateGraphics
Dim myFont Como fuente
Dim myBrush Como Cepillo

myBrush = Nueva Drawing.SolidBrush (Color.DarkOrchid)
myFont = Nueva System.Drawing.Font ( "Verdana", 20, FontStyle.Underline)
myGraphics.DrawString ( "Visual Basic 2015", myFont, myBrush, 10, 10)

End Sub

La interfaz de tiempo de ejecución es como se muestra en la Figura 29.1

vb2015_fig29.1

 Figura 29.1

El ejemplo anterior se puede modificar si no desea crear la fuente y los objetos de pincel. Puede utilizar la fuente de un objeto existente, como la forma y los colores de sistema. Vuelva a colocar la última línea en el ejemplo anterior con esta línea (es necesario eliminar las líneas que crean el cepillo y objetos de la fuente también)

myGraphics.DrawString ( "Visual Basic 2015", me.Font, System.Drawing.Brushes.DarkOrchid, 10, 10)

También puede añadir un InputBox y permitió que el usuario introduzca su mensaje a continuación, mostrar el mensaje en la pantalla.

Esto se muestra en el Ejemplo 29.2

ejemplo 29.2

myGraphics tenues como gráficos = Me.CreateGraphics

Dim myFont Como fuente

Dim myBrush Como Cepillo

Dim como secuencia userMsg

userMsg = InputBox ( "¿Cuál es su mensaje?", "Forma de escritura de mensajes", "Ingrese su mensaje aquí", 100, 200)

myBrush = Nueva Drawing.SolidBrush (Color.DarkOrchid)

myFont = Nueva System.Drawing.Font ( "Verdana", 20, FontStyle.Underline)

myGraphics.DrawString (userMsg, myFont, myBrush, 10, 10)