如何使用VB画折线图

一个例子:

安吉网站制作公司哪家好，找创新互联建站！从网页设计、网站建设、微信开发、APP开发、响应式网站等网站项目制作，到程序开发，运营维护。创新互联建站2013年至今到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站。

窗体上有一个按钮 一个能显示折线图的控件（我不大知道应该用哪个控件）

现有十二个数 设其为13-24

点击按钮时图片显示为一折线图 折线图为十二个点的连线 （1，13）（2，14）（3，15）（4，16）（5，17）.....(12，24)

请教如何编写程序

回答：

控件用MsChart，在Microsoft Chart Control 6.0(OLEDB)。

Private Sub Form_Load()

Dim CData(1 To 2, 1 To 24) As Variant

mctChart.chartType = VtChChartType2dLine

For i=1 To 12

CData(1,i)=i '1代表第一个数据

Next i

For i=13 To 24 '2代表第二个数据

CData(2,i)=i

Next i

mctChart.ChartData = CData

End Sub

参考资料：

vb.net怎么在excle里面生成折线图

你可以通过用VB.net控制excel,让excel生成曲线图,然后利用excelVBA将图输出,最后导入到VB.net就可以了。

如何用vb画折线图?

采用绘制直线的方法：

你给出了9个点坐标；

(2,0.8)、(3,0.6)、(4,0.5)、(5,0.4)、..........

把这些相邻的点之间用直线连接起来，就是折线了。

VB6可以在窗体上或者PictureBox里绘制图形，语句为：

对象.Line (x1,y1)-(x2,y2)

其中：(x1,y1)和(x2,y2)分别是两个点的坐标。

vb.net绘制曲线图

。net  其实还是很好绘制图形的

你可以看下 Graphics  类

Dim d As New Bitmap(Me.Width, Me.Height)  ‘一个图片吧

  Dim g As Graphics = Graphics.FromImage(d)’绘制  准备在这个图片是进行

然后  就是你绘制的东西了

线 就是   g.DrawLine()

圆 弧度  就用  g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)

复杂的就是      g.DrawBezier()

等  如果你用的是 VS的  编译  上面都有详细的参数说明

Dim d As New Bitmap(Me.Width, Me.Height)

Dim g As Graphics = Graphics.FromImage(d)

g.DrawArc(Pens.Black, New Rectangle(0, 0, 200, 200), 0, 360)

g.DrawLine(Pens.Red, New Point(0, 0), New Point(200, 200))

g.DrawLines(Pens.Green, New Point() {New Point(0, 0), New Point(50, 40), New Point(50, 80), New Point(90, 70), New Point(100, 400)})

g.DrawBezier(Pens.Yellow, New Point(0, 100), New Point(0, 0), New Point(200, 0）， New Point(200, 200))

g.Dispose()

Me.BackgroundImage = d

当前文章：vb.net怎样画折线,winform画折线图
链接分享：http://ybzwz.com/article/hsiipg.html