ejercicio del dibujo mayo 21-2010

Es la muestra de un programa creado para hacer un dibujo sin herramientas con el puntero del mouse.

este programa se crea con ayuda de visual basic, es muy facil hacerlo, solo se da doble clic sobre la superficie y se introducen las opciones necesarias para q funcione.

las opciones o codigos necesarios son los siguientes:

vamos a declarar las variables, o la variable, NOS UBICAMOS EN GENERAL PARA ESCRIBIR LO SIGUIENTE, en este caso la variable es draw

Dim draw As Boolean 'Declaramos una variable booleana

Hacemos clic sobre el formulario para ver el área donde se escribe el código.

buscamos en los eventos el evento MOUSE DOWN y escribimos:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

draw = True 'Estamos dibujando

CurrentX = X 'carga en la variable, la ubicación en la coordenada X

CurrentY = Y 'carga en la variable, la ubicación en la coordenada Y

End Sub

Hacemos clic sobre el formulario para ver el área donde se escribe el código.

Buscamos en los eventos el evento MOUSE MOVE y escribimos:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If draw Then Line -(X, Y) 'Si la variable draw esta verdadera 'dibuja cada uno de los puntos

End Sub

Hacemos clic sobre el formulario para ver el área donde se escribe el código.

Buscamos en los eventos el evento MOUSE UP y escrbimos:

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

draw = False 'Si draw es falsa detiene el dibujo

End Sub