VB se da cuenta de medir la distancia entre dos puntos en el formulario
Dim?x1?As?Single,?y1?As?Single,?x2?As?Single,?y2?As?Single,?m?As?Single,?n?As?Single, ?L?As?Single
Privado?Sub?Form_Load()
Línea1.Visible?=?False
Fin?Sub
Privado?Sub?Form_MouseDown(Botón?As?Integer, ?Shift?As?Integer, ?X?As?Single, ?Y?As?Single)
Si?Button?=?1?Then
x1?=?X
y1?=?Y
¿Fin?Si
¿Fin?Sub
Privado?Sub?Form_MouseMove(Botón?Como?Integer, ?Shift?As?Integer, ?X?As?Single, ?Y?As?Single)
Si?Button?=?1?Then
Línea1.x1?=?x1
Línea1.y1?=?y1
Línea1.x2?=?X
Línea1 .y2?=?Y
Línea1.Visible?=?True
Fin?Si
Fin?Sub
Privado?Sub ?Form_MouseUp(Botón?As?Integer, ?Shift?As?Integer, ?X?As?Single, ?Y?As?Single)
Si?Button?=?1?Then
Línea1.Visible?=?Falso
x2?=?X
y2?=?Y
Si?m?=?0?Entonces
m?=?Me.ScaleX(Sqr((x2?-?x1)?^?2? ?(y2?-?y1)?^?2),?1,?3)
MsgBox?"La longitud de píxeles de la regla m="?amp;?m
ElseIf?n?=?0?Then
n?=? Yo ScaleX(Sqr((x2?-?x1)?^?2? ?(y2?-?y1)?^?2),?1,?3)
L?=?5 ?* ?n?/?m
MsgBox?"La longitud de píxeles entre dos puntos n="?amp;?n?amp;?vbCrLf?amp;?"La distancia de la regla entre dos puntos L= "?amp;?L?amp;?"mm"
m?=?0
n?=?0
L?=?0
End?If
End?If
End?Sub
El único control utilizado en el código anterior es Línea1