高一地理地球软流层:MSChart控件的属性与属性对话框
来源:百度文库 编辑:偶看新闻 时间:2024/05/11 12:32:01
1、MSChart控件的属性
(1)ChartType属性:用于设置或返回图表类型,MSChart控件图表类型与对应ChartType属性值如表8.7所示。如,ChartType=1则显示二维直方图,ChartType=14则显示饼图。
表8.7 MSChart图表类型
(2)行(格)属性
① RowCount属性:用于表示图表中总格(行)数。例如:
若MSChart控件显示二维数组Array_2(M,N),则总格(行)数RowCount=M。
如:RowCount=5,表示有5格(行)数据。
若MSChart控件显示一维数组Array_1(N)的元素值,则总行数RowCount=1。
② Row属性:用于表示图表中某格(行)的序号。
若MSChart控件显示二维数组Array_2(M,N),则图表中第I格的序号Row=I,当Row=1表示第1格(行)数据。
③ RowLabel属性:用于表示格(行)标签名,默认值为Ri。用户可以修改其值,如改为无锡地区人数、南京地区人数等。
④RowLabelCount属性:用于表示格(行)标签数,MSChart控件允许设置多个格(行)标签。通常取值为1,当需要用2行以上的标签时,才修改此属性。
⑤ RowLabelIndex属性:用于表示格(行)标签序号,用户通过设置不同格(行)标签序号选择不同格(行)标签进行编辑。
(3)列属性
①ColumnCount属性:用于表示图表中每格(行)中的列数,即数组中列数N。如设置ColumnCount=3,则每格(行)中有3列,图表每数据格用3个矩形或3个扇形表示。
② Column属性:用于表示图表中某格(行)某列的列序号,例如:
Row=1,Column=1,表示图表中第1格(行)第1列。
③ ColumnLabel属性:用于表示图表列标签名,默认为Ci。
④ ColumnLabelCount属性:用于表示图表某格中的列标签数。
⑤ ColumnLabelIndex属性:用于表示图表某格中的列标签序号。
(4)Data属性
Data属性用于表示图表中由数据格(行)序号Row与列序号Column所指定值,即数组Array_2(Row,Column)的值。用户可修改其值。例如在MSChart1的属性框内:
设置Row=1,Column=1,Data=60,表示将图表中第1个数据格(行)中第1列的矩形高度改为60。
(5)图例属性:是MSChart控件用于说明图表中列值含义而设置的一个图形,通常图例内容包含列的颜色图标与标签名。以便使用户能知道图表中每列的含义。图例的主要属性如下。
① ShowLegend属性:为True时显示图例,为False时不显示图例。
② Legend属性:用于设置图例字体等内容。
(6)TitleText属性:用于表示图表标题,如TitleText=”一维数组图表示例”。
(7)ChartData属性:用于设置或返回一个数组,该数组包含图表要显示的数据值。
例如:ChartData=Array_2,表示MSChart将显示二维数组的元素值。
说明:
如果是多维数组或数据表,且其第一列(或第一个字段)为字符串,则第一列(或第一个字段)被用作图表的行标签。
【例8.7】用MSChart控件显示一维数组的图表示例。
定义一维整型数组Array_1(1 To 10),用直方图与饼图两种方式显示Array_1中的数据图表,如图8.13(a)与8.13(b)所示。
新建一个工程(ex8_8.vbp),窗体名为Form_ex88.frm。在部件中选择Microsoft ChartControls 6.0(OLEDB),将数据图表控件MSChart1添加到窗体内,再添加由两个命令按钮组成的控件数组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 '将一维数组赋给MSChart控件
.TitleText = "一维数组图表示例"
.ShowLegend = True'显示图例
If Index = 0 Then
.chartType = 1 '以直方图形式显示一维数组元素值
ElseIf Index = 1 Then
.chartType = 14 '以饼图形式显示一维数组元素值
End If
For I = 1 To 10
.Plot.SeriesCollection(I).LegendText = "Y" &I '图例中列标签名赋值
Next I
End With
End Sub
程序运行后,分别单击直方图按钮与饼图按钮,屏幕显示如图8.13(a)、(b)所示。
图8.13(a)一维数组直方图显示 图8.13(b)一维数组饼图显示
【例8.8】用MSChart控件显示二维数组的图表示例。
定义5行5列的二维变体类型数组Array_2(1 To 5,1 To 5),用直方图与饼图两种方式显示Array_2中的数据图表。
新建一个工程(ex8_9.vbp),窗体名为Form_ex89.frm。在部件中选择Microsoft ChartControls 6.0(OLEDB),将数据图表控件MSChart1添加到窗体内,再添加由三个命令按钮组成的控件数组Command1(3),分别用于显示直方图、饼图与折线图。双击命令按钮输入如下事件处理程序。
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 &")" ‘数组第1列为字符串时,将作为行标签使用
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‘将二维数组赋给MSChart控件
.TitleText = "二维数组图表示例"‘MSChart控件标题赋值
.ShowLegend = True‘显示图例
If Index = 0 Then
.chartType = 1‘以直方图形式显示二维数组元素值
ElseIf Index = 1 Then
.chartType = 14‘以饼图形式显示二维数组元素值
Else
.chartType = 3‘以折线图形式显示二维数组元素值
End If
For I = 1 To 5 – 1‘除去标签首列外,还有5-1=4列
.Plot.SeriesCollection(I).LegendText = "Y" & I‘图例中标签名赋值
Next I
End With
End Sub
程序运行后,分别单击直方图按钮、饼图按钮与折线图按钮,屏幕显示如图8.14(a)、(b)、(c)所示。
图8.14(a)二维数组直方图表示 图8.14(b) 二维数组饼图表示
图8.14(c)二维数组折线图表示
2、MSChart控件的属性对话框
MSChart控件的属性也可用其属性对话框来设置。用鼠标右击MSChart1,在弹出式菜单中单击属性,则出现属性对话框,如图8.15所示。下面分别介绍对话框各选项卡中的属性。
1、图表选项卡
(1)图表类型
在图表类型框中,用户可选择不同的图形,如条(直方图)、线(曲线图)、区域、步骤、组合、饼图、XY散点图等。还可选择二维平面图形或三维立体图形。
(2)图表选项
在图表选项框中,用户可选择下列四个复选框有效或无效。
显示图例:图例是对图表中每种图形颜色所表示含义的说明;
显示标记:显示标记是图表中每种图形的标记;
叠置系列:叠置系列是将图表中每种图形叠加在一起;
按行系列:对二维数组的行与列互换,即以列Ci为数据格,以行Ri为每数据格中数据值。
图8.15MSCHart控件的属性设置对话框
2、轴选项卡
(1)选择X轴
显示刻度:复选框有效,显示行标签(如R1、R2等)。复选框无效,不显示行标签;
自动缩放:复选框有效,图形随控件自动缩放。复选框无效,手工设置标签间隔与刻度间隔。
(2)选择Y轴
显示刻度:复选框有效,显示Y轴刻度值(如0、20、40等)。
自动缩放:复选框有效,图形随控件自动缩放。复选框无效,手工设置Y轴最小值、最大值、主要间隔和次要间隔值。
3、轴网格选项卡
该选项卡用于设置X轴与Y轴方向的主网格行与次网格行的样式、宽度与颜色。
4、序列选项卡
在序列选项卡中,用户可隐藏序列、排除序列、显示标记等。
5、序列颜色选项卡
在序列颜色选项卡中,用户可选择序列的颜色、样式与图案等。
6、文本选项卡
可填写图表标题、脚注、X轴说明、Y轴说明,例如在图表标题、X轴说明、Y轴说明栏中分别填写“班级生源统计图表”、“X轴”、“Y轴”。并将Y轴方向改为水平方向。
7、字体选项卡
可设置图表标题、脚注、X轴标签、Y轴标签的字体、大小与颜色等。如图表标题的字体为14号粗楷体,墨绿色
【例8.9】要求统计某个班级不同地区学生人数,并用直方图、饼图两种图表显示统计结果。假设某班学生统计结果如表 8.8所示。
表8.8 学生地区生源统计表
程序设计步骤如下:
(1)新建一个工程(ex8_9.vbp),窗体名为Form_ex89.frm。
(2)在部件中选择Microsoft Chart Controls 6.0 (OLEDB),将数据图表控件MSChart1添加到窗体内,再添加由二个命令按钮组成的控件数组Command1(2),分别用于显示直方图、饼图。
(3)用鼠标右键单击MSChart1控件,打开MSChart1的属性对话框,设置属性如下。
选择图表选项卡,使“显示图例”、“按行系列”复选框有效。
选择文本选项卡,在标题、X轴标题、Y轴标题栏中分别填写“班级生源统计图表”、“X轴”、“Y轴”。将Y轴方向改为水平方向。
选择字体选项卡,设置标题的字体为14号墨绿色粗楷体,加下划线。
(4)表8.8中第1列(地区名)为字符串,可以作为列标签,第2列为各地区学生人数,可作为列值。因此,图表实际只有一个数据格,该数据格共11列。将 地区与人数赋给二维数组Array_2,并将Array_2赋给MSChart1. ChartData属性。则MSChart控件可显示班级学生生源统计图表。
(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("南京", "无锡", "徐州", "扬州", "盐城", "淮阴", "连云港", "南通", "苏州", "常州", "镇江")
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) '将地区名赋给数组的第1列
Array_2(I, 2) = A(I) '将各地区名学生人数赋给数组的第2列
Next I
.ChartData = Array_2 '将数组名赋给ChartData属性
.TitleText = "班级生源统计图表" '设置统计图表标题
.ShowLegend = True '使图例有效,即显示图例
If Index = 0 Then '当按“直方图”按钮则显示直方图统计表
.chartType = 1
ElseIf Index = 1 Then '当按“饼图”按钮则显示饼图统计表
.chartType = 14
End If
End With
End Sub
程序执行后可显示出班级生源地区分布统计图表,如图8.16所示。
图8.16 班级生源统计图表
【例8.10】在学生档案管理系统工程(xsdagl.vbp)中增加《生源地区分布统计图表》子窗体,如图8.17所 示。要求用TreeView控件选择系部与班级,单击班级后显示该班地区生源分布图表。
1.设计要求
(1)程序界面由工具栏、选择系部与班级的树形控件、生源分布图表区组成;
(2)该程序要能由系选择班级,由班级显示地区生源分布图表;
(3)工具栏中放置“退出”按钮;
(4)在图表下方放置三个命令按钮,能以直方图、饼图两种方式显示统计结果。
(5)程序界面设计如图8.17所示。
2.设计步骤
(1)界面设计
观看视频
(2)程序设计
①单击树形控件结点事件过程
Private Sub TreeView_TB03_NodeClick(ByVal Node As MSComctlLib.Node)
With Adodc_XA01
.CommandType = adCmdText
.RecordSource = "Select GC0202,Count(*) From XA01,GC02,TB03 " & _‘分地区统计学生人数
"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'将学生档案统计表数据集赋给DataSource属性
.TitleText = TreeView_TB03.SelectedItem.text & "班级生源统计图表"
.ShowLegend = True
End With
End Sub
②在窗体内添加命令按钮数组Command1(2),分别用于直方图、饼图显示。
单击按钮的事件过程如下。
Private Sub Command1_Click(Index As Integer)
With MSChart_XA01
Set .DataSource = Adodc_XA01.Recordset'将学生档案统计表数据集赋给DataSource属性
.TitleText = TreeView_TB03.SelectedItem.text & "班级生源统计图表"
.ShowLegend = True
If Index = 0 Then
.chartType = 1
ElseIf Index = 1 Then
.chartType = 14
End If
End With
End Sub
程序运行后的界面如图8.17(a)、(b)所示。
图8.17(a)班级生源统计图表(直方图)
图8.17(b)班级生源统计图表(饼图)
(1)ChartType属性:用于设置或返回图表类型,MSChart控件图表类型与对应ChartType属性值如表8.7所示。如,ChartType=1则显示二维直方图,ChartType=14则显示饼图。
表8.7 MSChart图表类型
(2)行(格)属性
① RowCount属性:用于表示图表中总格(行)数。例如:
若MSChart控件显示二维数组Array_2(M,N),则总格(行)数RowCount=M。
如:RowCount=5,表示有5格(行)数据。
若MSChart控件显示一维数组Array_1(N)的元素值,则总行数RowCount=1。
② Row属性:用于表示图表中某格(行)的序号。
若MSChart控件显示二维数组Array_2(M,N),则图表中第I格的序号Row=I,当Row=1表示第1格(行)数据。
③ RowLabel属性:用于表示格(行)标签名,默认值为Ri。用户可以修改其值,如改为无锡地区人数、南京地区人数等。
④RowLabelCount属性:用于表示格(行)标签数,MSChart控件允许设置多个格(行)标签。通常取值为1,当需要用2行以上的标签时,才修改此属性。
⑤ RowLabelIndex属性:用于表示格(行)标签序号,用户通过设置不同格(行)标签序号选择不同格(行)标签进行编辑。
(3)列属性
①ColumnCount属性:用于表示图表中每格(行)中的列数,即数组中列数N。如设置ColumnCount=3,则每格(行)中有3列,图表每数据格用3个矩形或3个扇形表示。
② Column属性:用于表示图表中某格(行)某列的列序号,例如:
Row=1,Column=1,表示图表中第1格(行)第1列。
③ ColumnLabel属性:用于表示图表列标签名,默认为Ci。
④ ColumnLabelCount属性:用于表示图表某格中的列标签数。
⑤ ColumnLabelIndex属性:用于表示图表某格中的列标签序号。
(4)Data属性
Data属性用于表示图表中由数据格(行)序号Row与列序号Column所指定值,即数组Array_2(Row,Column)的值。用户可修改其值。例如在MSChart1的属性框内:
设置Row=1,Column=1,Data=60,表示将图表中第1个数据格(行)中第1列的矩形高度改为60。
(5)图例属性:是MSChart控件用于说明图表中列值含义而设置的一个图形,通常图例内容包含列的颜色图标与标签名。以便使用户能知道图表中每列的含义。图例的主要属性如下。
① ShowLegend属性:为True时显示图例,为False时不显示图例。
② Legend属性:用于设置图例字体等内容。
(6)TitleText属性:用于表示图表标题,如TitleText=”一维数组图表示例”。
(7)ChartData属性:用于设置或返回一个数组,该数组包含图表要显示的数据值。
例如:ChartData=Array_2,表示MSChart将显示二维数组的元素值。
说明:
如果是多维数组或数据表,且其第一列(或第一个字段)为字符串,则第一列(或第一个字段)被用作图表的行标签。
【例8.7】用MSChart控件显示一维数组的图表示例。
定义一维整型数组Array_1(1 To 10),用直方图与饼图两种方式显示Array_1中的数据图表,如图8.13(a)与8.13(b)所示。
新建一个工程(ex8_8.vbp),窗体名为Form_ex88.frm。在部件中选择Microsoft ChartControls 6.0(OLEDB),将数据图表控件MSChart1添加到窗体内,再添加由两个命令按钮组成的控件数组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 '将一维数组赋给MSChart控件
.TitleText = "一维数组图表示例"
.ShowLegend = True'显示图例
If Index = 0 Then
.chartType = 1 '以直方图形式显示一维数组元素值
ElseIf Index = 1 Then
.chartType = 14 '以饼图形式显示一维数组元素值
End If
For I = 1 To 10
.Plot.SeriesCollection(I).LegendText = "Y" &I '图例中列标签名赋值
Next I
End With
End Sub
程序运行后,分别单击直方图按钮与饼图按钮,屏幕显示如图8.13(a)、(b)所示。
图8.13(a)一维数组直方图显示 图8.13(b)一维数组饼图显示
【例8.8】用MSChart控件显示二维数组的图表示例。
定义5行5列的二维变体类型数组Array_2(1 To 5,1 To 5),用直方图与饼图两种方式显示Array_2中的数据图表。
新建一个工程(ex8_9.vbp),窗体名为Form_ex89.frm。在部件中选择Microsoft ChartControls 6.0(OLEDB),将数据图表控件MSChart1添加到窗体内,再添加由三个命令按钮组成的控件数组Command1(3),分别用于显示直方图、饼图与折线图。双击命令按钮输入如下事件处理程序。
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 &")" ‘数组第1列为字符串时,将作为行标签使用
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‘将二维数组赋给MSChart控件
.TitleText = "二维数组图表示例"‘MSChart控件标题赋值
.ShowLegend = True‘显示图例
If Index = 0 Then
.chartType = 1‘以直方图形式显示二维数组元素值
ElseIf Index = 1 Then
.chartType = 14‘以饼图形式显示二维数组元素值
Else
.chartType = 3‘以折线图形式显示二维数组元素值
End If
For I = 1 To 5 – 1‘除去标签首列外,还有5-1=4列
.Plot.SeriesCollection(I).LegendText = "Y" & I‘图例中标签名赋值
Next I
End With
End Sub
程序运行后,分别单击直方图按钮、饼图按钮与折线图按钮,屏幕显示如图8.14(a)、(b)、(c)所示。
图8.14(a)二维数组直方图表示 图8.14(b) 二维数组饼图表示
图8.14(c)二维数组折线图表示
2、MSChart控件的属性对话框
MSChart控件的属性也可用其属性对话框来设置。用鼠标右击MSChart1,在弹出式菜单中单击属性,则出现属性对话框,如图8.15所示。下面分别介绍对话框各选项卡中的属性。
1、图表选项卡
(1)图表类型
在图表类型框中,用户可选择不同的图形,如条(直方图)、线(曲线图)、区域、步骤、组合、饼图、XY散点图等。还可选择二维平面图形或三维立体图形。
(2)图表选项
在图表选项框中,用户可选择下列四个复选框有效或无效。
显示图例:图例是对图表中每种图形颜色所表示含义的说明;
显示标记:显示标记是图表中每种图形的标记;
叠置系列:叠置系列是将图表中每种图形叠加在一起;
按行系列:对二维数组的行与列互换,即以列Ci为数据格,以行Ri为每数据格中数据值。
图8.15MSCHart控件的属性设置对话框
2、轴选项卡
(1)选择X轴
显示刻度:复选框有效,显示行标签(如R1、R2等)。复选框无效,不显示行标签;
自动缩放:复选框有效,图形随控件自动缩放。复选框无效,手工设置标签间隔与刻度间隔。
(2)选择Y轴
显示刻度:复选框有效,显示Y轴刻度值(如0、20、40等)。
自动缩放:复选框有效,图形随控件自动缩放。复选框无效,手工设置Y轴最小值、最大值、主要间隔和次要间隔值。
3、轴网格选项卡
该选项卡用于设置X轴与Y轴方向的主网格行与次网格行的样式、宽度与颜色。
4、序列选项卡
在序列选项卡中,用户可隐藏序列、排除序列、显示标记等。
5、序列颜色选项卡
在序列颜色选项卡中,用户可选择序列的颜色、样式与图案等。
6、文本选项卡
可填写图表标题、脚注、X轴说明、Y轴说明,例如在图表标题、X轴说明、Y轴说明栏中分别填写“班级生源统计图表”、“X轴”、“Y轴”。并将Y轴方向改为水平方向。
7、字体选项卡
可设置图表标题、脚注、X轴标签、Y轴标签的字体、大小与颜色等。如图表标题的字体为14号粗楷体,墨绿色
【例8.9】要求统计某个班级不同地区学生人数,并用直方图、饼图两种图表显示统计结果。假设某班学生统计结果如表 8.8所示。
表8.8 学生地区生源统计表
程序设计步骤如下:
(1)新建一个工程(ex8_9.vbp),窗体名为Form_ex89.frm。
(2)在部件中选择Microsoft Chart Controls 6.0 (OLEDB),将数据图表控件MSChart1添加到窗体内,再添加由二个命令按钮组成的控件数组Command1(2),分别用于显示直方图、饼图。
(3)用鼠标右键单击MSChart1控件,打开MSChart1的属性对话框,设置属性如下。
选择图表选项卡,使“显示图例”、“按行系列”复选框有效。
选择文本选项卡,在标题、X轴标题、Y轴标题栏中分别填写“班级生源统计图表”、“X轴”、“Y轴”。将Y轴方向改为水平方向。
选择字体选项卡,设置标题的字体为14号墨绿色粗楷体,加下划线。
(4)表8.8中第1列(地区名)为字符串,可以作为列标签,第2列为各地区学生人数,可作为列值。因此,图表实际只有一个数据格,该数据格共11列。将 地区与人数赋给二维数组Array_2,并将Array_2赋给MSChart1. ChartData属性。则MSChart控件可显示班级学生生源统计图表。
(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("南京", "无锡", "徐州", "扬州", "盐城", "淮阴", "连云港", "南通", "苏州", "常州", "镇江")
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) '将地区名赋给数组的第1列
Array_2(I, 2) = A(I) '将各地区名学生人数赋给数组的第2列
Next I
.ChartData = Array_2 '将数组名赋给ChartData属性
.TitleText = "班级生源统计图表" '设置统计图表标题
.ShowLegend = True '使图例有效,即显示图例
If Index = 0 Then '当按“直方图”按钮则显示直方图统计表
.chartType = 1
ElseIf Index = 1 Then '当按“饼图”按钮则显示饼图统计表
.chartType = 14
End If
End With
End Sub
程序执行后可显示出班级生源地区分布统计图表,如图8.16所示。
图8.16 班级生源统计图表
【例8.10】在学生档案管理系统工程(xsdagl.vbp)中增加《生源地区分布统计图表》子窗体,如图8.17所 示。要求用TreeView控件选择系部与班级,单击班级后显示该班地区生源分布图表。
1.设计要求
(1)程序界面由工具栏、选择系部与班级的树形控件、生源分布图表区组成;
(2)该程序要能由系选择班级,由班级显示地区生源分布图表;
(3)工具栏中放置“退出”按钮;
(4)在图表下方放置三个命令按钮,能以直方图、饼图两种方式显示统计结果。
(5)程序界面设计如图8.17所示。
2.设计步骤
(1)界面设计
观看视频
(2)程序设计
①单击树形控件结点事件过程
Private Sub TreeView_TB03_NodeClick(ByVal Node As MSComctlLib.Node)
With Adodc_XA01
.CommandType = adCmdText
.RecordSource = "Select GC0202,Count(*) From XA01,GC02,TB03 " & _‘分地区统计学生人数
"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'将学生档案统计表数据集赋给DataSource属性
.TitleText = TreeView_TB03.SelectedItem.text & "班级生源统计图表"
.ShowLegend = True
End With
End Sub
②在窗体内添加命令按钮数组Command1(2),分别用于直方图、饼图显示。
单击按钮的事件过程如下。
Private Sub Command1_Click(Index As Integer)
With MSChart_XA01
Set .DataSource = Adodc_XA01.Recordset'将学生档案统计表数据集赋给DataSource属性
.TitleText = TreeView_TB03.SelectedItem.text & "班级生源统计图表"
.ShowLegend = True
If Index = 0 Then
.chartType = 1
ElseIf Index = 1 Then
.chartType = 14
End If
End With
End Sub
程序运行后的界面如图8.17(a)、(b)所示。
图8.17(a)班级生源统计图表(直方图)
图8.17(b)班级生源统计图表(饼图)
RealPlayer控件的属性
有关VB的控件属性
VB做的控件的属性问题
Winsock控件的BytesReceived属性是什么?
关于VB中的MSFlexGrid控件的属性
vb中ShockwaveFlash控件的属性问题?
如何使用vb的MSchart控件?
控件属性 书籍介绍
.net 控件属性问题。
返回ocx控件属性
.net控件属性问题
系统属性对话框选项卡的增加
ARX中如何实现 属性对话框样式的对话框
特性与属性..的区别
“属性”与“本性”的关系?
vb中的控件属性保存
VB控件属性大全急用
vb 控件、属性 、事件资料
VB中的Inet控件属性
所有的控件都由Name属性,大部分控件由Caption属性,对于同一个控件来说,这两个属性有什么区别
窗体Font属性与其上的控件的默认属性的关系
在VB中,滚动条控件的VALUE属性()?
Powerpoint中关于vba控件属性的问题。
delphi 中 httprio 控件的属性怎么设置??急急急!!