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