重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
一个例子:
安吉网站制作公司哪家好,找创新互联建站!从网页设计、网站建设、微信开发、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