长安奔奔ev报价:如何实现两点间画出连续的点构成直线？

来源：百度文库 编辑：神马品牌网 时间：2024/04/29 07:32:20
这个对我很重要啊

我要用 VB 画一条平滑边缘的直线
就是在 X1, Y1, X2, Y2 间画出一系列的点（点的坐标可以有小数）
但是我不知道如何得出这一系列的点是怎么算出来的

Private Sub DrawLine(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single)
Dim LineLength As Single, D As Single
Length = Sqr(Abs(X2 - X1) ^ 2 + Abs(Y2 - Y1) ^ 2)'算出将要画的线的长度(不知道算的方法对不对，我是用勾股定理算的)
For D = 0 to LineLength
画点的子程序(横坐标，纵坐标)
Refresh
End Sub

代码如何修改

谢谢！

如何实现两点间画出连续的点构成直线？ 给出点的坐标然后画出直线 两点间的距离，点到直线的距离和两平行线之间的距离 如何画出经过A、B两点的圆??简要说明过程和理由 已知P1，P2两点连成一直线，求线外任一点P3至该直线距离的数学公式 如何运用康的哲学证明“两点之间直线最短”？ 一笔画出四条直线，将下列点连起来。 平面上有n个点,过每两点都作一条直线.除了原有的n个点以外,这些直线最多还有几个交点? 平面上有6个点，过两点都画一条直线，则除了原有的6个点之外，这些直线最多还有（ ）个交点。 如何在图形界面下编程实现连接直线的功能？