VB6的MSchart控件中如何画多条曲线 50
请教各位,我现在使用VB6的MSchart控件,想画多条xy形式的曲线(以两条为例),数据源为一个三列的数组dat,第一列为x值,第二列和第三列为y1和y2.请问该怎么画...
请教各位,我现在使用VB6的MSchart控件,想画多条xy形式的曲线(以两条为例),数据源为一个三列的数组dat,第一列为x值,第二列和第三列为y1和y2.请问该怎么画呢?
直接MsChart1.ChartData =dat得到的结果为x,y1,y2三条曲线,并且横轴标签为字符并非x的值。
VB6中貌似并没有VB.net中类似Series的设置,请问该怎么设置呢??? 展开
直接MsChart1.ChartData =dat得到的结果为x,y1,y2三条曲线,并且横轴标签为字符并非x的值。
VB6中貌似并没有VB.net中类似Series的设置,请问该怎么设置呢??? 展开
1个回答
展开全部
Private Sub Form_Load()
MSChart1.chartType = VtChChartType2dLine
Dim arrValues()
ReDim arrValues(1 To 5, 1 To 6)
Dim i As Integer
For i = 知兄1 To 5
arrValues(i, 1) = "t" & i 'x轴
arrValues(i, 2) = 缓磨0 + Rnd * 100 '第一条线
arrValues(i, 3) = 0 + Rnd * 100 '第二条线
arrValues(i, 4) = 0 + Rnd * 100 '第三条线
搭哪袭 arrValues(i, 5) = 0 + Rnd * 100 '第四条线
arrValues(i, 6) = 0 + Rnd * 100 '第五条线
Next i
MSChart1.ChartData = arrValues
追问
你好,这种图我倒是知道,我想画的线横坐标是x轴,而不是图中的字符标签形式,并且x值的间隔并不连续。
比如我要y1=sinx,y2=cosx两条线,x值为{1,2,4,9,12,13}
还请多多帮忙
追答
:)
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询