Creación de gráficos y formas en Visual Basic ( VB ) comienza con los pasos de programación necesarios para dibujar los elementos simples, tales como puntos , líneas , rectángulos , círculos , elipses y arcos. Mediante la combinación de estos elementos en diferentes maneras y formas , gráficos complicados pueden aparecer en su pantalla. El proceso requiere la escritura de código informático laborioso en ausencia de software de gráficos sofisticado, pero es perfectamente posible el uso de los bloques de construcción descritos aquí . Cosas que necesitará
Visual Basic 6.0
Mostrar más instrucciones
1

Abra un nuevo proyecto de Visual Basic utilizando el "EXE estándar " de plantilla, una de las opciones que aparecen cuando se elige un proyecto nuevo. Guarde el proyecto y el formulario cuando se le pida que MyGraphicsDemo . Establecer la altura " Form1 " en la ventana Propiedades para 5400 y el ancho en 6800.
2

Haga doble clic en el icono " CommandButton " en la columna de caja de herramientas de la izquierda para añadirlo a la forma . Se trata de un pequeño rectángulo que normalmente se encuentra en la columna derecha de las herramientas y tercero de la parte superior . La etiqueta aparece al poner el cursor sobre el mismo. Haga clic en el botón para centrarse en sus "Propiedades" en la ventana de la derecha y cambiar la propiedad " Leyenda " por " Muéstrame Algunos puntos de colores ! ", Sin entrar en las comillas . Cambie la propiedad Height en 500 y la propiedad Width en 3000.
3

Abra una ventana de código , haga clic en "Ver" y luego " Código" en el menú de Visual Basic de alto nivel. Establecer los puntos de localización en la pantalla , el tamaño y el color primero con el código ilustrativo. Entonces variar la configuración de aprender lo que es posible utilizando sólo puntos individuales. En este código, las líneas " PSet " crean puntos de diferentes colores , mientras que las líneas de código que contienen " RND " duplican muchos puntos de colores y ubicaciones aleatorias. Cuando haya terminado, presione "F5 " para ver el resultado

Private Sub Command1_Click () BackColor = vbRedPSet ( 0 , 0 ) PSet ( 15 , 5 ) , vbCyanPSet ( 20 , 10 ) , vbYellowCurrentX = 500 : . CurrentY = 500For i = 1 To 20PSet Paso ( 0 , 0 ) NextFor i = 1 To 500DrawWidth = RND * 5 + 1PSet ( RND * ScaleWidth , RND * ScaleHeight ) , RGB ( RND * 255 , * 255 Vta , RND * 255 ) NextDrawWidth = 1End Sub
4

Crear un gran triángulo con el comando de Visual Basic " Line" , que utiliza la configuración de ubicación para dibujar el triángulo. Añadir un rectángulo de color con el comando de línea mediante el uso de diferentes puntos de ubicación . Agregue dos botones de comando más a la forma como en el paso 2 . Cambiar las propiedades de título para que diga " Dibuja un triángulo " y " dibujar un rectángulo ", respectivamente . Puede que tenga que ampliar las cajas como en el paso 2 . A continuación, introduzca el siguiente código debajo de las líneas de código anteriores . Cuando haya terminado, presione "F5 " para ver

Private Sub Command2_Click () Line ( 1500 , 3000) - . Paso ( 1000 , 0), vbBlackLine - Step ( 0 , 1000) , vbBlackLine - ( 1500 , 3000 ) , vbBlackEnd SubPrivate Sub Command3_Click () Line ( 1200, 1500 ) - Step ( 2100 , 1100 ) , vbGreen , Bend Sub
5

Dibuja un círculo con las siguientes líneas de código. Dibujo de elipses y arcos utiliza el mismo proceso , que acaba de modificar las dimensiones y en los círculos de inicio y fin . Al ampliar un aspecto del círculo, lo conviertes en una elipse y no cerrando el círculo , se hace un arco. Para hacer esto , añada un CommandButton más , etiquetado éste " Dibuja un círculo " .

Private Sub Command4_Click () DrawWidth = 5FillStyle = vbFSSolidFillColor = vbCyanCircle (2000, 2000 ) , 1000, vbBlueEnd Sub