在VB5中生成统计图形

在用VB5进行数据库编程时，经常要生成统计图形。生成的方法有很多种，最简单的是利用VB5提供的MSChart控件。具体操作方法如下：
　　 1.首先在VB5“工程”→“部件”中找到“Microsoft Chart Control5.0”项，选中并应用，此时在工具面板中出现MSChart控件图标。选中它并在新工程的Form1中画一矩形，生成MSChart1,即出现缺省状态的直方图。设其ColumnCount属性为1。
　　 2.利用Access或VB5的可视化数据管理器生成一个example.mdb的数据库，在其中建一名为temp的数据表，包含“日期”和“数据”两个字段，并在表中输入一些记录。
　　 3.在Form1中生成一个Command1按钮，然后在Private Sub Command1_click()中写入以下代码：
　　 dim i as integer
　 dim NewDyn as recordset
　　 dim OpenWs as Workspace
　　 dim OpenDB as DataBase
　　 set OpenWs=DBengine.Workspaces(0)
　　 set OpenDB=OpenWs.Opendatabase(app.path ＆ ″\example.mdb″)
　　 set NetDyn=OpenDB.Openrecordset(″select ＊ from temp″,dbOpenSnapShot)
　　 NewDyn.MoveLast
　　 NewDyn.Movefirst
　　 If NewDyn.RecordCount=0 then
　　 Msgbox″请在数据库中输入数据!″，vbCritical
　　 Exit sub
　　 End if
　　 With MSChart1
　　 .TitleText=″直方图示例″
　　 .RowCount=NewDyn.ReordCount
　　 For i=1 to NewDyn.RecordCount
　　 .Row=i
　　 .Data=NewDyn.Fields(″数据″)
　　 .Rowlabel=NewDyn.Fields(″日期″)
　　 NewDyn.MoveNext
　　 Next i
　　 End With
　　 NewDyn.Close
　　 4.运行时按Command1键即可生成统计图表了。
　　 如果想生成其他类型的图形，修改MSChart1的属性即可定制成其他各种二维或三维图表。

上一篇： 用VB6.0开发猜数字小游戏
下一篇： Visual Basic 中字符淡出淡入的实现

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!