在 VB中 ， RichTextBox控 件 可 以 在 一 個(gè) 控 件 中 顯 示 圖 形 和 文 字 ， 而 且 支 持 滾 動 條 ， 所 以 這 個(gè) 問 題 可 以 借 助 RichTextBox控 件 得 以 解 決 。 在 下 面 的 介 紹 中 ， 我 們 假 定 數(shù) 據(jù) 庫 為 test.mdb， 它 有 一 個(gè) 表 "試 題 "， 在 這 個(gè) 表 中 有 一 個(gè) 字 段 "題 目 "， 用 來 保 存 試 題 的 文 字 和 圖 形 ， 這 個(gè) 字 段 是 Memo型 的 。 
    1. 如 何 準(zhǔn) 備 試 題 
    首 先 將 試 題 的 文 字 和 圖 形 編 輯 后 保 存 為 RTF格 式 。 使 用 Windows 9x/NT的 寫 字 板 （ WordPad） 或 其 他 字 處 理 軟 件 Word、 WPS 2000都 可 以 生 成 RTF格 式 文 件 。 RichTextBox控 件 對 RTF格 式 的 支 持 與 寫 字 板 完 全 相 同 ， 但 會 忽 略 Word、 WPS 2000中 的 一 些 高 級 設(shè) 置 ， 如 行 間 距 等 。 圖 形 最 好 采 用 黑 白 或 16色 的 ， 這 樣 一 般 一 個(gè) RTF文 件 大 小 只 有 幾 十 K字 節(jié) 。 如 果 采 用 24位 真 彩 色 ， RTF文 件 可 能 有 數(shù) 兆 字 節(jié) ， 會 影 響 VB的 運(yùn) 行 效 果 。 
    然 后 將 保 存 的 RTF文 件 加 入 到 數(shù) 據(jù) 庫 中 。 你 可 以 建 立 一 個(gè) 窗 體 ， 在 其 中 加 上 一 個(gè) 按 鈕 和 一 個(gè) RichTextBox控 件 ， 然 后 輸 入 下 面 的 代 碼 。 點(diǎn) 擊 按 鈕 ， 我 們 就 可 以 將 test.rtf文 件 加 入 到 數(shù) 據(jù) 庫 中 。 這 里 的 核 心 語 句 是 AppendChunk， 它 是 用 來 向 Memo型 字 段 加 入 數(shù) 據(jù) 的 。 
    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. 如 何 制 作 瀏 覽 試 題 的 程 序 
    準(zhǔn) 備 好 了 試 題 庫 ， 我 們 就 可 以 利 用 VB的 數(shù) 據(jù) 綁 定 顯 示 試 題 了 。 首 先 建 立 圖 1所 示 的 窗 體 ， 并 在 其 上 放 置 一 個(gè) RichTexBox控 件 、 一 個(gè) Data控 件 和 其 他 相 關(guān) 控 件 。 然 后 設(shè) 置 如 下 屬 性 ： 控 件         屬 性           值 
 
               Data1         Database       Test.mdb 
                             Recordsource   試 題 
 
               RichTextBox1  DataSource     Data1
                             DataField      題 目 
                             Locked         True
                             ScrollBars      2
 

    在 學(xué) 生 回 答 問 題 時(shí) ， 一 般 不 能 允 許 學(xué) 生 隨 意 修 改 試 題 ， 所 以 我 們 把 RichTextBox1的 Locked屬 性 設(shè) 置 為 True。 
     
     圖 1 利 用 RichTextBox控 件 顯 示 試 題 
<END>