Un ratón que puede programarse solo.

Proporcionarle un código VB para implementar la función simple del tablero de dibujo. Espero que esto ayude. Dim aa As Integer 'Las variables las defino yo a voluntad.

Marcar bb como un número entero

Marcar cc como un número entero

Subformulario privado _MouseDown (el botón es un número entero, Shift es un número entero, X es un valor único , Y es un valor único)

aa = X

bb = Y

cc = 1

Conector final

Subformulario privado _ MouseMove(El botón es un número entero, Shift es un número entero, X es único, Y es único)

Si cc = 1, entonces

Formulario 1. Recta (aa, bb)-(X, Y)

aa = X

bb = Y

Terminará si...

Conector final

Subformulario privado_MouseUp (el botón es un número entero, Shift es un número entero, X es único, Y es único)

cc = 0

Conector final

Sub privado qk_Click()' Borrar

Form1. Cls

Conector final

Private Sub tc_Click()'Salir

Fin

Conector final