Question

求助，VB Mschart控件的动态加载曲线

若以下回答无法解决问题，邀请你更新回答

Answer 1

（1）在窗体上布置一个MSChart控件

（2）窗体代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

Option Explicit

Private Sub Form_Load()
'设置MSChart1
With MSChart1
'图上只画一条曲线
.ColumnCount = 1
'设置图表类型为二维曲线；默认为直方图
.chartType = VtChChartType2dLine
'X轴显示10个单位
.RowCount = 10
End With

'曲线数据
Dim v(1 To 10) As Single
Dim i As Integer
'曲线数据随机产生
For i = 1 To 10
v(i) = Rnd * 99 + 1
Next
' 显示曲线
With MSChart1
For i = 1 To 10
' 指定X轴的坐标
.Row = i
' X轴标签
.RowLabel = i
' 与x对应的值
.data = v(i)
Next
End With
End Sub

（3）运行结果

（4）其他注意事项
在设计状态，鼠标右键单击MSChart控件，在弹出菜单中单击“属性”，可以调出控件的属性页窗口。利用这个窗口，可以直观地设计MSChart