'使用菜單[工程] -- [部件],勾選 Microsoft Chart Control 6.0 (SP4) (OLEDB)
'將它添加到控件工具箱,並添加到窗體
代碼如下:
Option Explicit
Private Sub Command1_Click()
Dim MyArrData(1, 1 To 13) '假設n = 12,其中1作為標題
MyArrData(1, 1) = "2012年全年用電統計表:" '在第壹列設置標簽。
MyArrData(1, 2) = 130
MyArrData(1, 3) = 127
MyArrData(1, 4) = 123
MyArrData(1, 5) = 108
MyArrData(1, 6) = 117
MyArrData(1, 7) = 101
MyArrData(1, 8) = 92
MyArrData(1, 9) = 103
MyArrData(1, 10) = 95
MyArrData(1, 11) = 89
MyArrData(1, 12) = 87
MyArrData(1, 13) = 78
MSChart1.ChartData = MyArrData
MSChart1.chartType = VtChChartType2dPie
MSChart1.RowLabel = ""
End Sub