Software de dibujo de programación VB Arrastre el botón izquierdo del mouse para dibujar un segmento de línea continuo y arrastre el botón derecho del mouse para dibujar un segmento de línea.
Dim Oldx como único
Dim Oldy como único
Dim L como booleano
Dim i como entero
Sub privado Form_Load()
i = 0
End Sub
Sub privado Form_MouseDown(Botón como entero, Mayús como entero, X como único, Y como único)
Si Botón = 2 Entonces
i = i 1
Si i Mod 2 = 0 Entonces
Me.Line (Oldx, Oldy)-(X , Y)
Else
Oldx = X
Oldy = Y
Me.PSet (X, Y)
Finalizar si
Else
L = True
Oldx = X
Oldy = Y
End If
End Sub
Sub privado Form_MouseMove(Botón como entero, Mayús como entero, X como único, Y como único)
Si L = Verdadero, entonces
Línea (Oldx, Oldy)-(X, Y)
Oldx = X
Oldy = Y
Fin si
End Sub
Sub privado Form_MouseUp(Botón como entero) MouseUp(Botón como entero, Mayús como entero, X como único, Y como único)
L = Falso
Fin del subtítulo