7.19 Crear figuras geométricas usando código

Visual Basic trae los controles para crear figuras geométricas, como ya aprendió en páginas recientes; pero también se pueden crear mediante código.

Ejercicio: Crear Gráficos con código:

El formulario por default responde al evento Load, pero puede cambiarse en la ventana de eventos. Para dibujar gráficos en el formulario hará uso del evento Paint del formulario.

  • Cree un nuevo proyecto con nombre Gráficos por código:
  • Abra la casilla de eventos de controles que se encuentra en la parte superior de la ventana de código  y elija  Form1 eventos, luego en la casilla de la derecha busque y elija el evento Paint.
225
  • En la línea que está por debajo de Private Sub …… escriba la siguiente instrucción:

Dim Oval As Graphics

Oval = Me.CreateGraphics

Dim PenColor As New Pen(Color.Red)

Oval.DrawEllipse(PenColor, 50, 50, 200, 160)

El código quedará así:

Recuerde que el evento es el Paint por lo que la parte superior del código quedará así:

226

Y las instrucciones quedarán de la siguiente forma.

227
  • Ejecute la aplicación y verá  un ovalo  en el formulario creado por código y que usted puede modificar, si en el código cambia los números de Oval.DrawElipse(PenColor,….etc.
228
  • También puede cambiar a otro color, si usted lo desea.
  • Agregue otro formulario en este proyecto, de la misma manera que lo hizo en el ejercicio anterior. Y configure también en este formulario, para que se cargue el evento Paint.
  • De doble clic en el formulario e inserte el siguiente código…

Dim Rectangulo As Graphics

Rectangulo = Me.CreateGraphics

Dim BrushColor As New SolidBrush(Color.Green)

Rectangulo.FillRectangle(BrushColor, 50, 40, 250, 200)

El código quedará así:

229
  • Ejecute la aplicación.
2230
  • Ahora cree el formulario 3 para dibujar una línea e inserte las siguientes instrucciones:

Dim Linea As Graphics

Linea = Me.CreateGraphics

Dim PenColor As New Pen(Color.Fuchsia)

Linea.DrawLine(PenColor, 100, 300, 200, 10)

El código quedará así:

2231

No olvide que para cargar el formulario tres, alejecutar el programa, debe poner el Form3.vb en formulario de inicio en la ventana propiedades del proyecto; por que si no hace esto, al ejecutar la aplicación cargará el formulario del ejercicio anterior.

También debe recordar que en estos ejercicios el evento del formulario es Paint, tal y como se explicó al hacer el primer ejercicio de esta índole.

  • Ejecute la aplicación y vea el resultado.
2232

Web consultada: social.msdn.microsoft.com

¿Te gustó? Pues comparte ;-)
Conoce al autor
Este sitio usa cookies para personalizar el contenido y los anuncios, ofrecer funciones de redes sociales y analizar el tráfico. Ninguna cookie será instalada a menos que se desplace exprésamente más de 600px. Leer nuestra Política de Privacidad y Política de Cookies. Las acepto | No quiero aprender cursos gratis. Sácame