Microsoft Visual Basic Express
Ver Más instrucciones
1
Inicie Microsoft Visual Basic Express , haga clic en "Nuevo proyecto ... " en el panel izquierdo de la pantalla, a continuación, seleccione " Aplicación de Windows Forms ". Haga clic en " Aceptar".
2
doble clic en " botón" en la " caja de herramientas " para añadir un nuevo botón . Haga doble clic en "Check Box" para añadir un nuevo cuadro de texto. Agregue dos más casillas de verificación en el formulario. Haga doble clic en " ColorDialog " para agregar el control al programa . Haga doble clic en " Button1 " para abrir el módulo " Form1.vb "
3
Copia y pega el siguiente código dentro del procedimiento " Button1_Click " para que el usuario elija un color: .
Me.ColorDialog1.ShowDialog ()
Si Me.ColorDialog1.ShowDialog = DialogResult.OK Entonces
clr = ColorDialog1.Color
End If
Página 4
Copia y pega el siguiente en " Public Class Form1 " para crear dos variables globales que se utilizan para crear gráficos y color :
privado gfx como gráficos
privado clr Como color
5
clic en la flecha desplegable del cuadro combinado superior izquierda y seleccione " ( Eventos de Form1 ) . " Seleccione " Load" para crear el evento Form y copiar y pegar el siguiente código dentro del evento :
gfx = Me.CreateGraphics ()
6
Haga clic en el evento " FormClosed " para crear el evento y copia y pega el siguiente para eliminar el objeto gráfico :
gfx.Dispose ()
7
Haga clic en el evento " MouseMove " para crear el evento , y copiar y pegar el siguiente código para dibujar objetos cuando el usuario mueve el ratón :
Si e.Button < > Windows.Forms.MouseButtons.Left Luego Exit Sub
Dim As
rect Rectangle
myPen As Pen
myPen = New Pen ( clr , 2 )
Si Me.CheckBox1.Checked Entonces
rect
. X = eX - 1
Y = eY - . . . 1
Ancho = 15
Altura = 15
extremo con
< p > gfx.DrawRectangle ( myPen , rect )
End If
Si Me.CheckBox2.Checked Entonces
rect
. Ancho = 15 < br . >
Altura = 15
extremo con
gfx.DrawLine ( myPen , eX , eY , eX - 1 , EY - 1) spanish
End If
Si Me.CheckBox3.Checked Entonces
myPen = New Pen ( clr , 2 )
rect
X = eX - . 1
< p> Y = eY - . . 1
Ancho = 15
Altura = 15
extremo con
gfx.DrawEllipse ( myPen , rect ) .
End If
8 Pulse
"F5 " para ejecutar el programa, haga clic en " Button1 " para elegir un color para los objetos. Marque la primera casilla para dibujar una serie de rectángulos. Marque la segunda casilla para dibujar líneas o revise la tercera casilla de verificación para dibujar una serie de círculos .