Programación con clic izquierdo

Viejo como único

Marcar L como valor booleano

Marcar I como número entero

Subformulario privado _Load( )

i = 0

Conector final

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)

Si Botón = 2, entonces

i = i + 1

Si i módulo 2 = 0, entonces

i. Línea (Oldx, Oldy) - (X, Y)

Otro

Oldx = X

Oldy = Y

i. PSet (X, Y)

Terminará si...

Otro

L = Verdadero

Oldx = X

Oldy = Y

Terminará si...

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 L = verdadero, entonces

La línea recta (Oldx, Oldy)-(X, Y)

Oldx = X

Oldy = Y

Terminará si...

Finalizar conector

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

L = False

Conector final