Herramienta de Dibujo

[StyleCrew]

Bueno aqui les dejo este tutorial muy facil =) y espero que lo entiendan

Controles Utilizados:
3- Frame
2- Command
1- Picture
4- Labels
4- Text
4- Option

Quedara Ordenado Asi

Para ver este enlace Registrate o Inicia Sesion

**********************************************************************

Codigos:
En la Opcion donde dice Click en tu VB
Cambiarla a la Opcion MouseMove en la pic la veran
Aqui prestar mucha atencion para cualquier Error.

Para ver este enlace Registrate o Inicia Sesion

Aqui les Pongo el Code:

Rem Aqui se determina la posicion actual del puntero
Rem Del mouse dentro del Area de Dibujo.
Text1.Text = X
Text2.Text = Y

Rem Se Asigna un Valor RGB a la variable color segun
Rem la tecla o teclas que se esten presionando.
Select Case Shift
Case 0
Rem Negro si no presiona tecla.
Negro = RGB(0, 0, 0)
Case 1
Rem Azul si presiona Tecla Mayus.
Azul = RGB(0, 0, 255)
Case 2
Rem Verde Si presiona tecla Ctrl.
Verde = RGB(0, 255, 0)
Case 3
Rem Celeste si presiona tecla Alt.
Celeste = RGB(0, 255, 255)
Case 4
Rem Rojo si presiona tecla Ctrl+Mayus.
Rojo = RGB(255, 0, 0)
Case 5
Rem Violeta si presiona tecla Alt+Mayus.
Violeta = RGB(255, 0, 255)
Case 6
Rem Amarillo si presiona tecla Ctrl+Alt.
Amarillo = RGB(255, 255, 0)
Case 7
Rem Blanco si Presiona tecla Ctrl+Alt+Mayus.
Blanco = RGB(255, 255, 255)
End Select
Rem Dibuja Puntos por donde arrastre el puntero del
Rem mouse ya sea presionando el boton derecho o el
Rem izquierdo.
If Button = 1 Then
   Picture1.PSet (X, Y), Color
End If
If Button = 2 Then
   Picture1.PSet (X, Y), RGB(255, 255, 255)
End If
End Sub

*************************************************************************
Para Poder Poner otro colores tienen q buscar los numeros (#,#,#)

si no no le saldra

**************************************************************************
Ahora es que queda



Code

If Button = 1 Then
   Text3.Text = "Presionado"
End If
If Button = 2 Then
   Text4.Text = "Presionado"
End If
End Sub

Ahora le cambiamos la opcion de MouseMove
Se la cambiamos a MouseUp



Es lo mismo Solo le Cambiamos "Presionado" a "Suelto"
y lo pusimos en la opcion MouseUp

***********************************************************************
Ahora nos vamos hacia la Option1



Ahora Hacia la Option2
El mismo codigo que la opcion uno Solo que Pondremos

Rem Define un Ancho de 7 pixeles
Picture1.DrawW idth = 7
End Sub

Ahora a la Option3
Igual lo mismo si no que pondremos este codigo solo le cambiamos los pixeles

Rem Define un Ancho de 13 pixeles
Picture1.DrawW idth = 13
End Sub

Ahora la Option4

Rem Define un ancho de 20 pixeles
Picture1.DrawW idth = 20
End Sub

Solo le cambie los pixeles a 20

************************************************************************
Ahora nos vamos hacia el Command1
y ponemos este code:

Picture1.Cls

Despues Hacia el Command2

Code:

End

Fiiiiiiiiin

Espero que lo hayan entendido y Saludos