189 8069 5689
一个例子:
安吉网站制作公司哪家好，找创新互联建站！从网页设计、网站建设、微信开发、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控制excel,让excel生成曲线图,然后利用excelVBA将图输出,最后导入到VB.net就可以了。
采用绘制直线的方法：
你给出了9个点坐标；
(2,0.8)、(3,0.6)、(4,0.5)、(5,0.4)、..........
把这些相邻的点之间用直线连接起来，就是折线了。
VB6可以在窗体上或者PictureBox里绘制图形，语句为：
对象.Line (x1,y1)-(x2,y2)
其中：(x1,y1)和(x2,y2)分别是两个点的坐标。
。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