vb.net控件画线 vb画线程序代码

VB怎么用控件数组使一条线画出多条线？

Private Sub Command1_Click()

Static n As Long

If n 5 Then

If n 0 Then Load Line1(n)

Line1(n).Visible = True

Line1(n).X1 = 1000

Line1(n).X2 = 5000

Line1(n).Y1 = 1000 + n * 1000

Line1(n).Y2 = 1000 + n * 1000

n = n + 1

End If

End Sub

Private Sub Command2_Click()

Static n As Long

If n 5 Then

If n 0 Then Load Line2(n)

Line2(n).Visible = True

Line2(n).X1 = 1000 + n * 1000

Line2(n).X2 = 1000 + n * 1000

Line2(n).Y1 = 5000

Line2(n).Y2 = 1000

n = n + 1

End If

End Sub

Private Sub Form_Load()

Line1(0).Visible = False

Line2(0).Visible = False

End Sub

vb.net怎么画不同坐标的八叉直线

[{"word":"VB.NET画直线方法\n该方法绘制一条连接由坐标对指定的两个点的线条，所以我们需要指定这两个点的坐标，如下所示、\nDrawL in e(pen,x1.y1,x2,y2)或者DrawL in e(pen,Po in t1,Poin t2)\n下面示例将在PictureBox控件表面绘制一条直线、\nDim g As\nGraphics=Me.PictureBox\n1.CreateGraphics\nDim mpen As New\nPen(Color.Red)g.DrawLin e(mpen,0,80,0,160)\n也可以使用如下代码来实现一样的甲\n__\n"}]

在VB中画线（急！）

1、绘制线表后肯定要先找到这两个控件。

2、然后在这里先画上X和Y两轴线。

4、接下来，用标签输入这两个标志。

4、在使用这个形状按钮绘制。

5、一个个画过去线条就可以了。

注意事项：

VB可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。

跪求vb.net代码

新建窗口，添加picture控件

利用line()方法画线

line(开始x坐标,开始y坐标)-(结束x坐标,结束y坐标),线的颜色，画线的方式(默认为线，B为矩形无填充，BF为填充的矩形)

For i = 1 To 16

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(255, 0, 0)

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(255, 0, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(0, 255, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(0, 255, 0)

Next i

如果要在窗口上画也可以调用窗口的line方法即form.line()

vb和vb.net 在picturebox 中绘制直线如何绘制

绘图是系统内部操作的，不需要懂原理

方法就在那里，只有会用和不会用，你的代码告诉它绘制，它就会绘制。它（方法）究竟如何去绘制的并不是重点，反正它会绘制。

drawline（绘线）方法很简单，第一个参数是pen,它确定线条的颜色、宽度和样式。第二、第三个参数都是point类型，确定两个点的位置，绘制直线。