Red de conocimiento informático - Problemas con los teléfonos móviles - VB se da cuenta de medir la distancia entre dos puntos en el formulario

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