Gusanito.com – Postales y tarjetas de amor, amistad y cumpleaños

Gusanito.com – Postales y tarjetas de amor, amistad y cumpleaños

amor genuino_ zion y lenox

codigos para hacer un cursor en visual basic

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