如何进行简单的二维作图.txt

VB技巧问答10000例 VB技巧问答10000例

你 可 以 使 用 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>