v\:* {behavior:url(#default#VML);}o\:* {behavior:url(#default#VML);}w\:* {behavior:url(#default#VML);}.shape {behavior:url(#default#VML);}图表控件UseWay Chart v1 usezhong usezhong 7 195 2004-11-17T06:13:00Z 2004-11-17T06:48:00Z 6 389 2220 cec 18 4 2726 9.2812 7.8 磅 0 2 如何建立VB应用程序的图表
在制作应用软件过程中，需要建立统计分析的模块，现有的Windows提供的控件，使用起来都不是特别的顺手。
后来使用了一个这样的控件，结合自己多年的软件开发经验，同时，也清楚广大编程人员的操作习惯。
这个控件的使用非常方便，而且可以说功能比较强大。下面我们就针对这个控件予以讲解。
下载地址是 ： http://www.useway.com/usewaychart/UsewayChartV1.rar
一、简介
本控件是一个ActiveX OCX控件，你可以轻松的建立一个自己的图表。本控件和其他类似的控件相比有如下特点：
1、 可以建立3种图表的样式；
本控件可以建立3种图表即：
条形图、线形图、饼图。
如图：
2、 可以支持多数据同时显示在图表中，并且数据数量是灵活指定的；
3、 指定显示数据的方式非常简单，只需要采用逗号分隔的字符串赋值给data这个属性即可；
4、 每一种类型的图形赋值方式一样；
5、 支持非对称显示方式(见下图)。
二、使用方法
属性如下：
data：数据，以“,”分隔开的数字。
Rowtext：下面标示每行显示的文字，以“,”分隔开的文字。
Column：每列数据的数量
Header：列的标题，以“,”分隔开的文字。
BorderStyle：边框样式，1有边框，0没有边框
Caption：图表的标题文字
Drawtype：图表的类型，1线形，2条形，3饼图
Backcolor：背景颜色
注：
其他属性与VB中的标准控件的使用方法一致。
方法：
draw：在各个属性设置完毕后调用这个方法绘图。
编程思想要领：
首先，把要显示的数据想象成一个表格：
因此，各个属性应该这样设置：
header=”产值(亿),销售额(亿),毛利润(亿)”
rowtext=”1月,2月,3月,4月,5月,6月,7月,8月,9月,10月,11月,12月”
data=”22,24,26,28,32,35,32,32,31,28,29,30,11,12,16,18,22,25,22,22,21,18,19,20,6,5,8,9,10,7,5,8,9,11,12,13”
column=12
第二，我们确定这个控件的显示方式：
1、 确定有没有边框：borderstyle=0
2、 确定图表类型，线形图：Drawtype=1
3、 确定线条宽度：drawwidth=2
4、确定显示标题：年度产值分析表
第三，调用绘图方法绘图。
在VB中插入了这个控件后代码输入如下：
Private Sub Command1_Click()
UsewayChart1.header = '产值(亿),销售额(亿),毛利润(亿) '
UsewayChart1.rowtext = '1月,2月,3月,4月,5月,6月,7月,8月,9月,10月,11月,12月'
UsewayChart1.Data ='22,24,26,28,32,35,32,32,31,28,29,30,11,12,16,18,22,25,22,22,21,
18,19,20,6,5,8,9,10,7,5,8,9,11,12,13'
UsewayChart1.Column= 12
UsewayChart1.borderstyle= 0
UsewayChart1.drawtype= 1
UsewayChart1.DrawWidth= 2
UsewayChart1.Caption='年度产值分析表'
UsewayChart1.draw
End Sub
显示效果如下：
修改一个属性，当我们将drawtype的属性设置为2的时候显示如图：
如果属性drawtype改为3显示饼图如下效果：
如果采用非对称显示的话代码如下：
Private Sub Command1_Click()
UsewayChart1.header = '产值(亿),销售额(亿),毛利润(亿) '
UsewayChart1.rowtext = '1季度,2季度,3季度,4季度'
UsewayChart1.Data ='22,24,26,28,32,35,32,32,31,28,29,30,11,12,16,18,22,25,22,22,21,18,19,20,6,5,8,9,10,7,5,8,9,11,12,13'
UsewayChart1.Column = 12
UsewayChart1.BorderStyle = 0
UsewayChart1.drawtype = 1
UsewayChart1.DrawWidth = 2
UsewayChart1.Caption = '年度产值分析表'
UsewayChart1.draw
End Sub
效果：
三、我们再看一下其他的例子
其它例子1，只显示一个饼图：
Private Sub Command1_Click()
UsewayChart1.drawtype = 3
UsewayChart1.DrawWidth = 2
UsewayChart1.Column = 8
UsewayChart1.Data = '35,13,34,34,11,52,73,14'
UsewayChart1.header = 'h1'
UsewayChart1.rowtext ='d1,d2,d3,d4,d5,d6,d7,d8'
UsewayChart1.draw
End Sub
效果：
其它例子2，只显示一组条形图：
Private Sub Command1_Click()
UsewayChart1.drawtype = 2
UsewayChart1.DrawWidth = 2
UsewayChart1.Column = 8
UsewayChart1.Data ='35,13,34,34,11,52,73,14'
UsewayChart1.header = 'h1'
UsewayChart1.rowtext ='d1,d2,d3,d4,d5,d6,d7,d8'
UsewayChart1.draw
End Sub
效果：
呵呵，是不是很容易？