在VB5中生成統計圖形

2019-11-18 17:38:01

字體：大中小

來源：轉載

供稿：網友

在用VB5進行數據庫編程時，經常要生成統計圖形。生成的方法有很多種，最簡單的是利用VB5提供的MSChart控件。具體操作方法如下：
　　1.首先在VB5“工程”→“部件”中找到“MicrosoftChartControl5.0”項，選中并應用，此時在工具面板中出現MSChart控件圖標。選中它并在新工程的Form1中畫一矩形，生成MSChart1,即出現缺省狀態的直方圖。設其ColumnCount屬性為1。
　　2.利用 access或VB5的可視化數據管理器生成一個example.mdb的數據庫，在其中建一名為temp的數據表，包含“日期”和“數據”兩個字段，并在表中輸入一些記錄。
　　3.在Form1中生成一個Command1按鈕，然后在PRivateSubCommand1_click()中寫入以下代碼：
　　dimiasinteger
　dimNewDynasrecordset
　　dimOpenWsasWorkspace
　　dimOpenDBasDataBase
　　setOpenWs=DBengine.Workspaces(0)
　　setOpenDB=OpenWs.Opendatabase(app.path＆″/example.mdb″)
　　setNetDyn=OpenDB.Openrecordset(″select＊fromtemp″,dbOpenSnapShot)
　　NewDyn.MoveLast
　　NewDyn.Movefirst
　　IfNewDyn.RecordCount=0then
　　Msgbox″請在數據庫中輸入數據!″，vbCritical
　　Exitsub
　　Endif
　　WithMSChart1
　　.TitleText=″直方圖示例″
　　.RowCount=NewDyn.ReordCount
　　Fori=1toNewDyn.RecordCount
　　.Row=i
　　.Data=NewDyn.Fields(″數據″)
　　.Rowlabel=NewDyn.Fields(″日期″)
　　NewDyn.MoveNext
　　Nexti
　　EndWith
　　NewDyn.Close
　　4.運行時按Command1鍵即可生成統計圖表了。
　　如果想生成其他類型的圖形，修改MSChart1的屬性即可定制成其他各種二維或三維圖表。->

上一篇：用VB6.0編寫電腦抽獎程序

下一篇：用VB實現全屏幕圖形界面及動態功能提示