?? 如何進行簡單的二維作圖.txt
字號:
你 可 以 使 用 VB自 己 帶 的 控 件 MSChart。 它 提 供 很 多 種 二 維 數 據 的 顯 示 方 式 , 特 別 適 合 顯 示 統 計 數 據 。
首 先 在 VB菜 單 “ 工 程 |部 件 ” 中 選 中 “ Microsoft Chart Control” 項 。 此 時 在 工 具 面 板 中 出 現 MSChart控 件 圖 標 。 選 中 它 并 窗 體 上 放 置 MSChart控 件 , 則 出 現 缺 省 狀 態 的 直 方 圖 。 設 其 ColumnCount屬 性 為 1( 一 組 數 據 ) 。 下 面 的 代 碼 假 定 數 據 庫 example.mdb中 包 含 “ 日 期 ” 和 “ 數 據 ” 兩 個 字 段 。
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("example.mdb")
Set NetDyn = OpenDB.OpenRecordset("select * from data", dbOpenSnapShot)
NewDyn.MoveLast
NewDyn.Movefirst
With MSChart1
.TitleText="直 方 圖 示 例 "
.RowCount = NewDyn.RecordCount
For i = 1 To NewDyn.RecordCount
.Row = i
.Data = NewDyn("數 據 ")
.Rowlabel = NewDyn("日 期 ")
NewDyn.MoveNext
Next
End With
NewDyn.Close
如 果 想 生 成 其 他 類 型 的 圖 形 , 修 改 MSChart1的 ChartType屬 性 即 可 定 制 成 其 他 各 種 二 維 或 三 維 圖 表 :3D 條 形 圖 、 2D 條 形 圖 、 3D 折 線 圖 、 2D 折 線 圖 、 3D 面 積 圖 、 2D 面 積 圖 、 3D 階 梯 圖 、 2D 階 梯 圖 、 3D 組 合 圖 、 2D 組 合 圖 、 2D 餅 圖 和 2D XY 散 點 圖 。
<END>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -