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.
- 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í:
Y las instrucciones quedarán de la siguiente forma.
- 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.
- 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í:
- Ejecute la aplicación.
- 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í:
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.
Web consultada: social.msdn.microsoft.com
