【VB6】判断点是否在线段上的简单算法

设平面上有点A(xa,ya)，点B(xb,yb)，点C(xc,yc)，连接AB，问：如何用VB代码判断C点是否在线段AB上？

代码如下：

Public Function JudgmentPointOnline(xa As Single, ya As Single, xb As Single, yb As Single, xc As Single, yc As Single,Optional fuzzyDistance As Single) As Boolean
    If Sqr((xa- xb) ^ 2 + (ya- yb) ^ 2) + fuzzyDistance >= Sqr((xa- xc) ^ 2 + (ya- yc) ^ 2) + Sqr((xb- xc) ^ 2 + (yb- yc) ^ 2) Then
        JudgmentPointOnline = True
    End If
End Function

原理很简单：

原理基础：三角形两边之和必定大于第三边。

通过判断线段AB的长与线段AC+BC的长度关系，就能确定点C与线段AB的大致距离。如果C在AB上，则AC+BC=AB；只要C不在AB上，AC+BC>AB。

因为有时候需要近似在AB上就可以了，故上述代码中加入了一个可选参数fuzzyDistance（模糊距离）用来增加判定范围。