如何显示数据库中的试题和图形.txt

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

在 VB中 ， RichTextBox控 件 可 以 在 一 个 控 件 中 显 示 图 形 和 文 字 ， 而 且 支 持 滚 动 条 ， 所 以 这 个 问 题 可 以 借 助 RichTextBox控 件 得 以 解 决 。 在 下 面 的 介 绍 中 ， 我 们 假 定 数 据 库 为 test.mdb， 它 有 一 个 表 "试 题 "， 在 这 个 表 中 有 一 个 字 段 "题 目 "， 用 来 保 存 试 题 的 文 字 和 图 形 ， 这 个 字 段 是 Memo型 的 。 
    1. 如 何 准 备 试 题 
    首 先 将 试 题 的 文 字 和 图 形 编 辑 后 保 存 为 RTF格 式 。 使 用 Windows 9x/NT的 写 字 板 （ WordPad） 或 其 他 字 处 理 软 件 Word、 WPS 2000都 可 以 生 成 RTF格 式 文 件 。 RichTextBox控 件 对 RTF格 式 的 支 持 与 写 字 板 完 全 相 同 ， 但 会 忽 略 Word、 WPS 2000中 的 一 些 高 级 设 置 ， 如 行 间 距 等 。 图 形 最 好 采 用 黑 白 或 16色 的 ， 这 样 一 般 一 个 RTF文 件 大 小 只 有 几 十 K字 节 。 如 果 采 用 24位 真 彩 色 ， RTF文 件 可 能 有 数 兆 字 节 ， 会 影 响 VB的 运 行 效 果 。 
    然 后 将 保 存 的 RTF文 件 加 入 到 数 据 库 中 。 你 可 以 建 立 一 个 窗 体 ， 在 其 中 加 上 一 个 按 钮 和 一 个 RichTextBox控 件 ， 然 后 输 入 下 面 的 代 码 。 点 击 按 钮 ， 我 们 就 可 以 将 test.rtf文 件 加 入 到 数 据 库 中 。 这 里 的 核 心 语 句 是 AppendChunk， 它 是 用 来 向 Memo型 字 段 加 入 数 据 的 。 
    Private Sub Command1_Click() 
    Dim dbTest As Database 
    Dim rdTest As Recordset 
    Set dbTest = OpenDatabase("g:\test.mdb") 
    Set rdTest = dbTest.OpenRecordset("试 题 ") 
    rdTest.AddNew 
    RichTextBox1.LoadFile "g:\test.rtf" 
    rdTest("题 目 ").AppendChunk RichTextBox1.TextRTF 
    rdTest.Update 
    End Sub 
    2. 如 何 制 作 浏 览 试 题 的 程 序 
    准 备 好 了 试 题 库 ， 我 们 就 可 以 利 用 VB的 数 据 绑 定 显 示 试 题 了 。 首 先 建 立 图 1所 示 的 窗 体 ， 并 在 其 上 放 置 一 个 RichTexBox控 件 、 一 个 Data控 件 和 其 他 相 关 控 件 。 然 后 设 置 如 下 属 性 ： 控 件         属 性           值 
 
               Data1         Database       Test.mdb 
                             Recordsource   试 题 
 
               RichTextBox1  DataSource     Data1
                             DataField      题 目 
                             Locked         True
                             ScrollBars      2
 

    在 学 生 回 答 问 题 时 ， 一 般 不 能 允 许 学 生 随 意 修 改 试 题 ， 所 以 我 们 把 RichTextBox1的 Locked属 性 设 置 为 True。 
     
     图 1 利 用 RichTextBox控 件 显 示 试 题 
<END>