关于将一直线向前延长的问题？

Question

以知两点“x1,y1;x2,y2”这两点连一直线，那么如何让这直线从 x2、y2 这点延伸出去呢？
希望那位高手老师教教我。万分感谢。

Answer 1

我想要的搜索 http://www.531d.com 找你想要的一切

Answer 2

你是需要延伸出去的动画效果，还是需要延伸出去的结果？如果是效果的话，就用line，结果的话就这样：
Private Sub Command1_Click()
Line1.X2 = 4000
Line1.Y2 = 1000
End SubPrivate Sub Form_Load()
Line1.X1 = 1000
Line1.Y1 = 1000
Line1.X2 = 2000
Line1.Y2 = 1000
End Sub
不知道我有没有误解您的意思，希望这些回答对你有用。

Answer 3

不妨设个参数l，设这个l 表示新的端点P(x,y)离开端点P2(x2,y2)的水平距离。
则：新端点坐标：x = x2 + l
                y = y2 +[(y2-y1)/(x2-x1)]*l
                注：l = (x - x2)
VB方法：Line (x1,y1)-(x,y)
参数l 可以用任何你想的方式控制。