Private Sub Command1_Click()
创新互联是一家专注于网站制作、成都做网站与策划设计,永康网站建设哪家好?创新互联做网站,专注于网站建设10余年,网设计领域的专业建站公司;建站业务涵盖:永康等地区。永康做网站价格咨询:028-86922220
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
[{"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"}]
1、绘制线表后肯定要先找到这两个控件。
2、然后在这里先画上X和Y两轴线。
4、接下来,用标签输入这两个标志。
4、在使用这个形状按钮绘制。
5、一个个画过去线条就可以了。
注意事项:
VB可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建Active X控件,用于高效生成类型安全和面向对象的应用程序。
新建窗口,添加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()
绘图是系统内部操作的,不需要懂原理
方法就在那里,只有会用和不会用,你的代码告诉它绘制,它就会绘制。它(方法)究竟如何去绘制的并不是重点,反正它会绘制。
drawline(绘线)方法很简单,第一个参数是pen,它确定线条的颜色、宽度和样式。第二、第三个参数都是point类型,确定两个点的位置,绘制直线。