vb先输入几个坐标,再把这几个坐标连起来,谁会啊?把代码发来
发布网友
共2个回答
热心网友
我会。
使用Line即可。
Line方法使用介绍：
[Object.]Line (X1,Y1)-(X2,Y2)
说明：Object是一个支持Line方法的对象，比如：窗体、PictureBox等。这个可以省略（可选参数），如果省略，则默认在窗体上画出此直线。
(X1,Y1)是直线起点坐标，也可以省略（可选参数），省略后，则自动默认从上一个直线的终点接着画，注意：不管(X1,Y1)是否省略，但“-”绝不能省略。
(X2,Y2)是直线的终点坐标，不能省略（必需参数）。
实例，连接（45,85）和（350,790）这两个点（直接画在窗体上）。
代码：Line (45,85)-(350,790)
热心网友
Private Sub Form_Load()
Form1.Show
Line (600, 0)-(4000, 1000), RGB(0, 255, 120), B '画矩形
Line (600, 1200)-(4000, 2200), RGB(0, 255, 120), BF '画有填充色的矩形
Form1.DrawWidth = 4
Line (600, 2400)-(4000, 2400), RGB(0, 255, 120) '画直线
Line Step(-3000, 500)-Step(2000, 0)
End Sub
画直线 直线两端点坐标（x1,y1) (x2,y2)
Line (x1, y1)-(x2, y2), RGB(0, 255, 120) '画直线
热心网友
Private Sub Form_Load()
Form1.Show
Line (600, 0)-(4000, 1000), RGB(0, 255, 120), B '画矩形
Line (600, 1200)-(4000, 2200), RGB(0, 255, 120), BF '画有填充色的矩形
Form1.DrawWidth = 4
Line (600, 2400)-(4000, 2400), RGB(0, 255, 120) '画直线
Line Step(-3000, 500)-Step(2000, 0)
End Sub
画直线 直线两端点坐标（x1,y1) (x2,y2)
Line (x1, y1)-(x2, y2), RGB(0, 255, 120) '画直线
热心网友
我会。
使用Line即可。
Line方法使用介绍：
[Object.]Line (X1,Y1)-(X2,Y2)
说明：Object是一个支持Line方法的对象，比如：窗体、PictureBox等。这个可以省略（可选参数），如果省略，则默认在窗体上画出此直线。
(X1,Y1)是直线起点坐标，也可以省略（可选参数），省略后，则自动默认从上一个直线的终点接着画，注意：不管(X1,Y1)是否省略，但“-”绝不能省略。
(X2,Y2)是直线的终点坐标，不能省略（必需参数）。
实例，连接（45,85）和（350,790）这两个点（直接画在窗体上）。
代码：Line (45,85)-(350,790)
