1、MSChart控件的屬性
（1）ChartType屬性：用于設(shè)置或返回圖表類(lèi)型，MSChart控件圖表類(lèi)型與對(duì)應(yīng)ChartType屬性值如表8.7所示。如，ChartType=1則顯示二維直方圖，ChartType=14則顯示餅圖。
表8.7 MSChart圖表類(lèi)型
（2）行（格）屬性
① RowCount屬性：用于表示圖表中總格（行）數(shù)。例如：
若MSChart控件顯示二維數(shù)組Array_2(M，N)，則總格（行）數(shù)RowCount=M。
如：RowCount=5，表示有5格（行）數(shù)據(jù)。
若MSChart控件顯示一維數(shù)組Array_1(N)的元素值，則總行數(shù)RowCount=1。
② Row屬性：用于表示圖表中某格（行）的序號(hào)。
若MSChart控件顯示二維數(shù)組Array_2(M，N)，則圖表中第I格的序號(hào)Row=I，當(dāng)Row=1表示第1格（行）數(shù)據(jù)。
③ RowLabel屬性：用于表示格（行）標(biāo)簽名，默認(rèn)值為Ri。用戶(hù)可以修改其值，如改為無(wú)錫地區(qū)人數(shù)、南京地區(qū)人數(shù)等。
④RowLabelCount屬性：用于表示格（行）標(biāo)簽數(shù)，MSChart控件允許設(shè)置多個(gè)格（行）標(biāo)簽。通常取值為1，當(dāng)需要用2行以上的標(biāo)簽時(shí)，才修改此屬性。
⑤ RowLabelIndex屬性：用于表示格（行）標(biāo)簽序號(hào)，用戶(hù)通過(guò)設(shè)置不同格（行）標(biāo)簽序號(hào)選擇不同格（行）標(biāo)簽進(jìn)行編輯。
（3）列屬性
①ColumnCount屬性：用于表示圖表中每格（行）中的列數(shù)，即數(shù)組中列數(shù)N。如設(shè)置ColumnCount=3，則每格（行）中有3列，圖表每數(shù)據(jù)格用3個(gè)矩形或3個(gè)扇形表示。
② Column屬性：用于表示圖表中某格（行）某列的列序號(hào)，例如：
Row=1,Column=1，表示圖表中第1格（行）第1列。
③ ColumnLabel屬性：用于表示圖表列標(biāo)簽名，默認(rèn)為Ci。
④ ColumnLabelCount屬性：用于表示圖表某格中的列標(biāo)簽數(shù)。
⑤ ColumnLabelIndex屬性：用于表示圖表某格中的列標(biāo)簽序號(hào)。
（4）Data屬性
Data屬性用于表示圖表中由數(shù)據(jù)格（行）序號(hào)Row與列序號(hào)Column所指定值，即數(shù)組Array_2(Row,Column)的值。用戶(hù)可修改其值。例如在MSChart1的屬性框內(nèi)：
設(shè)置Row=1，Column=1，Data=60，表示將圖表中第1個(gè)數(shù)據(jù)格（行）中第1列的矩形高度改為60。
（5）圖例屬性：是MSChart控件用于說(shuō)明圖表中列值含義而設(shè)置的一個(gè)圖形，通常圖例內(nèi)容包含列的顏色圖標(biāo)與標(biāo)簽名。以便使用戶(hù)能知道圖表中每列的含義。圖例的主要屬性如下。
① ShowLegend屬性：為T(mén)rue時(shí)顯示圖例，為False時(shí)不顯示圖例。
② Legend屬性：用于設(shè)置圖例字體等內(nèi)容。
（6）TitleText屬性：用于表示圖表標(biāo)題，如TitleText=”一維數(shù)組圖表示例”。
（7）ChartData屬性：用于設(shè)置或返回一個(gè)數(shù)組，該數(shù)組包含圖表要顯示的數(shù)據(jù)值。
例如：ChartData=Array_2，表示MSChart將顯示二維數(shù)組的元素值。
說(shuō)明：
如果是多維數(shù)組或數(shù)據(jù)表，且其第一列（或第一個(gè)字段）為字符串，則第一列（或第一個(gè)字段）被用作圖表的行標(biāo)簽。
【例8.7】用MSChart控件顯示一維數(shù)組的圖表示例。
定義一維整型數(shù)組Array_1（1 To 10），用直方圖與餅圖兩種方式顯示Array_1中的數(shù)據(jù)圖表，如圖8.13(a)與8.13(b)所示。
新建一個(gè)工程（ex8_8.vbp），窗體名為Form_ex88.frm。在部件中選擇Microsoft ChartControls 6.0(OLEDB)，將數(shù)據(jù)圖表控件MSChart1添加到窗體內(nèi)，再添加由兩個(gè)命令按鈕組成的控件數(shù)組Command1（2），分別用于顯示直方圖與餅圖。雙擊命令按鈕輸入如下事件處理程序。
Private Sub Command1_Click(Index As Integer)
With MSChart1
Dim I As Integer
Dim Array_1(1 To 10) As Integer
For I = 1 To 10
Array_1(I) = I
Next I
.ChartData = Array_1 '將一維數(shù)組賦給MSChart控件
.TitleText = "一維數(shù)組圖表示例"
.ShowLegend = True'顯示圖例
If Index = 0 Then
.chartType = 1 '以直方圖形式顯示一維數(shù)組元素值
ElseIf Index = 1 Then
.chartType = 14 '以餅圖形式顯示一維數(shù)組元素值
End If
For I = 1 To 10
.Plot.SeriesCollection(I).LegendText = "Y" &I '圖例中列標(biāo)簽名賦值
Next I
End With
End Sub
程序運(yùn)行后，分別單擊直方圖按鈕與餅圖按鈕，屏幕顯示如圖8.13(a)、（b）所示。
圖8.13（a）一維數(shù)組直方圖顯示 圖8.13(b)一維數(shù)組餅圖顯示
【例8.8】用MSChart控件顯示二維數(shù)組的圖表示例。
定義5行5列的二維變體類(lèi)型數(shù)組Array_2（1 To 5，1 To 5），用直方圖與餅圖兩種方式顯示Array_2中的數(shù)據(jù)圖表。
新建一個(gè)工程（ex8_9.vbp），窗體名為Form_ex89.frm。在部件中選擇Microsoft ChartControls 6.0(OLEDB)，將數(shù)據(jù)圖表控件MSChart1添加到窗體內(nèi)，再添加由三個(gè)命令按鈕組成的控件數(shù)組Command1（3），分別用于顯示直方圖、餅圖與折線(xiàn)圖。雙擊命令按鈕輸入如下事件處理程序。
Private Sub Command1_Click(Index As Integer)
With MSChart1
Dim I As Integer
Dim Array_2(1 To 5, 1 To 5) As Variant
For I = 1 To 5
Array_2(I, 1) = "A(" & I &")" ‘數(shù)組第1列為字符串時(shí)，將作為行標(biāo)簽使用
Array_2(I, 2) = I
Array_2(I, 3) = I * 2
Array_2(I, 4) = I * 3
Array_2(I, 5) = I * 4
Next I
.ChartData = Array_2‘將二維數(shù)組賦給MSChart控件
.TitleText = "二維數(shù)組圖表示例"‘MSChart控件標(biāo)題賦值
.ShowLegend = True‘顯示圖例
If Index = 0 Then
.chartType = 1‘以直方圖形式顯示二維數(shù)組元素值
ElseIf Index = 1 Then
.chartType = 14‘以餅圖形式顯示二維數(shù)組元素值
Else
.chartType = 3‘以折線(xiàn)圖形式顯示二維數(shù)組元素值
End If
For I = 1 To 5 – 1‘除去標(biāo)簽首列外，還有5-1=4列
.Plot.SeriesCollection(I).LegendText = "Y" & I‘圖例中標(biāo)簽名賦值
Next I
End With
End Sub
程序運(yùn)行后，分別單擊直方圖按鈕、餅圖按鈕與折線(xiàn)圖按鈕，屏幕顯示如圖8.14(a)、（b）、(c)所示。
圖8.14（a）二維數(shù)組直方圖表示 圖8.14(b) 二維數(shù)組餅圖表示
圖8.14(c)二維數(shù)組折線(xiàn)圖表示
2、MSChart控件的屬性對(duì)話(huà)框
MSChart控件的屬性也可用其屬性對(duì)話(huà)框來(lái)設(shè)置。用鼠標(biāo)右擊MSChart1，在彈出式菜單中單擊屬性，則出現(xiàn)屬性對(duì)話(huà)框，如圖8.15所示。下面分別介紹對(duì)話(huà)框各選項(xiàng)卡中的屬性。
1、圖表選項(xiàng)卡
（1）圖表類(lèi)型
在圖表類(lèi)型框中，用戶(hù)可選擇不同的圖形，如條（直方圖）、線(xiàn)（曲線(xiàn)圖）、區(qū)域、步驟、組合、餅圖、XY散點(diǎn)圖等。還可選擇二維平面圖形或三維立體圖形。
（2）圖表選項(xiàng)
在圖表選項(xiàng)框中，用戶(hù)可選擇下列四個(gè)復(fù)選框有效或無(wú)效。
顯示圖例：圖例是對(duì)圖表中每種圖形顏色所表示含義的說(shuō)明；
顯示標(biāo)記：顯示標(biāo)記是圖表中每種圖形的標(biāo)記；
疊置系列：疊置系列是將圖表中每種圖形疊加在一起；
按行系列：對(duì)二維數(shù)組的行與列互換，即以列Ci為數(shù)據(jù)格，以行Ri為每數(shù)據(jù)格中數(shù)據(jù)值。
圖8.15MSCHart控件的屬性設(shè)置對(duì)話(huà)框
2、軸選項(xiàng)卡
（1）選擇X軸
顯示刻度：復(fù)選框有效，顯示行標(biāo)簽（如R1、R2等）。復(fù)選框無(wú)效，不顯示行標(biāo)簽；
自動(dòng)縮放：復(fù)選框有效，圖形隨控件自動(dòng)縮放。復(fù)選框無(wú)效，手工設(shè)置標(biāo)簽間隔與刻度間隔。
（2）選擇Y軸
顯示刻度：復(fù)選框有效，顯示Y軸刻度值（如0、20、40等）。
自動(dòng)縮放：復(fù)選框有效，圖形隨控件自動(dòng)縮放。復(fù)選框無(wú)效，手工設(shè)置Y軸最小值、最大值、主要間隔和次要間隔值。
3、軸網(wǎng)格選項(xiàng)卡
該選項(xiàng)卡用于設(shè)置X軸與Y軸方向的主網(wǎng)格行與次網(wǎng)格行的樣式、寬度與顏色。
4、序列選項(xiàng)卡
在序列選項(xiàng)卡中，用戶(hù)可隱藏序列、排除序列、顯示標(biāo)記等。
5、序列顏色選項(xiàng)卡
在序列顏色選項(xiàng)卡中，用戶(hù)可選擇序列的顏色、樣式與圖案等。
6、文本選項(xiàng)卡
可填寫(xiě)圖表標(biāo)題、腳注、X軸說(shuō)明、Y軸說(shuō)明，例如在圖表標(biāo)題、X軸說(shuō)明、Y軸說(shuō)明欄中分別填寫(xiě)“班級(jí)生源統(tǒng)計(jì)圖表”、“X軸”、“Y軸”。并將Y軸方向改為水平方向。
7、字體選項(xiàng)卡
可設(shè)置圖表標(biāo)題、腳注、X軸標(biāo)簽、Y軸標(biāo)簽的字體、大小與顏色等。如圖表標(biāo)題的字體為14號(hào)粗楷體，墨綠色
【例8.9】要求統(tǒng)計(jì)某個(gè)班級(jí)不同地區(qū)學(xué)生人數(shù)，并用直方圖、餅圖兩種圖表顯示統(tǒng)計(jì)結(jié)果。假設(shè)某班學(xué)生統(tǒng)計(jì)結(jié)果如表 8.8所示。
表8.8 學(xué)生地區(qū)生源統(tǒng)計(jì)表
程序設(shè)計(jì)步驟如下:
（1）新建一個(gè)工程（ex8_9.vbp），窗體名為Form_ex89.frm。
（2）在部件中選擇Microsoft Chart Controls 6.0 (OLEDB)，將數(shù)據(jù)圖表控件MSChart1添加到窗體內(nèi)，再添加由二個(gè)命令按鈕組成的控件數(shù)組Command1（2），分別用于顯示直方圖、餅圖。
（3）用鼠標(biāo)右鍵單擊MSChart1控件，打開(kāi)MSChart1的屬性對(duì)話(huà)框，設(shè)置屬性如下。
選擇圖表選項(xiàng)卡，使“顯示圖例”、“按行系列”復(fù)選框有效。
選擇文本選項(xiàng)卡，在標(biāo)題、X軸標(biāo)題、Y軸標(biāo)題欄中分別填寫(xiě)“班級(jí)生源統(tǒng)計(jì)圖表”、“X軸”、“Y軸”。將Y軸方向改為水平方向。
選擇字體選項(xiàng)卡，設(shè)置標(biāo)題的字體為14號(hào)墨綠色粗楷體，加下劃線(xiàn)。
（4）表8.8中第1列（地區(qū)名）為字符串，可以作為列標(biāo)簽，第2列為各地區(qū)學(xué)生人數(shù)，可作為列值。因此，圖表實(shí)際只有一個(gè)數(shù)據(jù)格，該數(shù)據(jù)格共11列。將 地區(qū)與人數(shù)賦給二維數(shù)組Array_2，并將Array_2賦給MSChart1. ChartData屬性。則MSChart控件可顯示班級(jí)學(xué)生生源統(tǒng)計(jì)圖表。
（5）雙擊命令按鈕輸入如下事件處理程序。
Option Base 1
Private Sub Command1_Click(Index As Integer)
Dim A As Variant, B As Variant
A = Array(5, 7, 8, 3, 5, 8, 3, 1, 2, 1, 6)
B = Array("南京", "無(wú)錫", "徐州", "揚(yáng)州", "鹽城", "淮陰", "連云港", "南通", "蘇州", "常州", "鎮(zhèn)江")
With MSChart1
Dim I As Integer
Dim Array_2(1 To 11, 1 To 2) As Variant
For I = 1 To 11
Array_2(I, 1) = B(I) '將地區(qū)名賦給數(shù)組的第1列
Array_2(I, 2) = A(I) '將各地區(qū)名學(xué)生人數(shù)賦給數(shù)組的第2列
Next I
.ChartData = Array_2 '將數(shù)組名賦給ChartData屬性
.TitleText = "班級(jí)生源統(tǒng)計(jì)圖表" '設(shè)置統(tǒng)計(jì)圖表標(biāo)題
.ShowLegend = True '使圖例有效，即顯示圖例
If Index = 0 Then '當(dāng)按“直方圖”按鈕則顯示直方圖統(tǒng)計(jì)表
.chartType = 1
ElseIf Index = 1 Then '當(dāng)按“餅圖”按鈕則顯示餅圖統(tǒng)計(jì)表
.chartType = 14
End If
End With
End Sub
程序執(zhí)行后可顯示出班級(jí)生源地區(qū)分布統(tǒng)計(jì)圖表，如圖8.16所示。
圖8.16 班級(jí)生源統(tǒng)計(jì)圖表
【例8.10】在學(xué)生檔案管理系統(tǒng)工程（xsdagl.vbp）中增加《生源地區(qū)分布統(tǒng)計(jì)圖表》子窗體，如圖8.17所 示。要求用TreeView控件選擇系部與班級(jí)，單擊班級(jí)后顯示該班地區(qū)生源分布圖表。
1．設(shè)計(jì)要求
（1）程序界面由工具欄、選擇系部與班級(jí)的樹(shù)形控件、生源分布圖表區(qū)組成；
（2）該程序要能由系選擇班級(jí)，由班級(jí)顯示地區(qū)生源分布圖表；
（3）工具欄中放置“退出”按鈕；
（4）在圖表下方放置三個(gè)命令按鈕，能以直方圖、餅圖兩種方式顯示統(tǒng)計(jì)結(jié)果。
（5）程序界面設(shè)計(jì)如圖8.17所示。
2．設(shè)計(jì)步驟
（1）界面設(shè)計(jì)
觀看視頻（2）程序設(shè)計(jì)
①單擊樹(shù)形控件結(jié)點(diǎn)事件過(guò)程
Private Sub TreeView_TB03_NodeClick(ByVal Node As MSComctlLib.Node)
With Adodc_XA01
.CommandType = adCmdText
.RecordSource = "Select GC0202,Count(*) From XA01,GC02,TB03 " & _‘分地區(qū)統(tǒng)計(jì)學(xué)生人數(shù)
"Where XA0109 = GC0201 and XA0114=TB0301 " &_
" and TB0302='" & TreeView_TB03.SelectedItem.text & "'" & _
"Group By GC0202"
.Refresh
End With
With MSChart_XA01
Set .DataSource = Adodc_XA01.Recordset'將學(xué)生檔案統(tǒng)計(jì)表數(shù)據(jù)集賦給DataSource屬性
.TitleText = TreeView_TB03.SelectedItem.text & "班級(jí)生源統(tǒng)計(jì)圖表"
.ShowLegend = True
End With
End Sub
②在窗體內(nèi)添加命令按鈕數(shù)組Command1(2)，分別用于直方圖、餅圖顯示。
單擊按鈕的事件過(guò)程如下。
Private Sub Command1_Click(Index As Integer)
With MSChart_XA01
Set .DataSource = Adodc_XA01.Recordset'將學(xué)生檔案統(tǒng)計(jì)表數(shù)據(jù)集賦給DataSource屬性
.TitleText = TreeView_TB03.SelectedItem.text & "班級(jí)生源統(tǒng)計(jì)圖表"
.ShowLegend = True
If Index = 0 Then
.chartType = 1
ElseIf Index = 1 Then
.chartType = 14
End If
End With
End Sub
程序運(yùn)行后的界面如圖8.17（a）、（b）所示。
圖8.17（a）班級(jí)生源統(tǒng)計(jì)圖表(直方圖)
圖8.17（b）班級(jí)生源統(tǒng)計(jì)圖表(餅圖)
