求最佳解法
VB6里面如何判断两条平行线是否相交？求最佳解法
[解决办法]
平行线肯定不相交
两条直线就得好好考虑考虑了
不会，帮顶
呵呵
[解决办法]
求比例,下降或者升高的比例
如果是一样必定不相交...........................
比例为DOUBLE 精确
[解决办法]
Option Explicit
Const xx As Double = 0.0000001
Private Sub Command1_Click()
MsgBox IsConnect(Line1, Line2)
End Sub
Public Function IsConnect(Line1 As Line, Line2 As Line) As Boolean
IsConnect = False
Dim Rate1 As Double
Dim Rate2 As Double
If Line1.X2 = Line1.X1 Then
Rate1 = 0
Else
Rate1 = (Line1.Y2 - Line1.Y1) / (Line1.X2 - Line1.X1)
End If
If Line2.X2 = Line2.X1 Then
Rate2 = 0
Else
Rate2 = (Line2.Y2 - Line2.Y1) / (Line2.X2 - Line2.X1)
End If
If Abs(Rate1 - Rate2) > xx Then
IsConnect = True
Else
IsConnect = False
End If
End Function
[解决办法]
ZOU_SEAFARER(颓废程序员^_^) 的程序可以判断直线，但是不能判断线段。
楼主提的问题可高深了，以前有好多人提过了，在不计算线段点的情况下判断是否相交的算法.
[解决办法]
应该从斜率这个角度看解决问题吧？
[解决办法]
比较斜率，对直线是可以用的，对于线段就不行了
T2(無藥可救)说的有道理，
因为线段有区间的，斜率不同的线段也可能不相交
