畫 深 深 吸 引， 十 分 佩 服 作 者 的 想 象 力 和 制 作 技 巧。 在 使 用
VB 進 行 應 用 軟 件 開 發 設 計 中， 為 使 軟 件 的 人 機 界 面 新 穎
友 好， 總 想 加 點 動 畫 作 點 綴， 但 又 常 常 苦 于 一 幅 幅 動 畫 圖
片 的 繪 制 或 尋 找! 因 此 萌 發 了 一 種 奇 妙 的 設 想： 能 否 讓Web
頁 面 上 的 動 畫 在VB 應 用 軟 件 界 面 上 活 起 來? 幸 運 的 是， 當
前 圖 像 處 理 軟 件 甚 多， 終 于 將 筆 者 的 這 一 設 想 變 成 了 現
實。
VB 動 畫 設 計 ---- 動 畫 的 制 作 原 理 很 簡 單：
首 先 繪 制 幾 幅 相 近 但 又 有 細 微 變 化 的 圖 片， 然 后 每 隔 一
段 很 短 的 時 間 就 依 次 顯 示 其 中 一 幅， 由 于 人 眼 視 覺 暫 留，
就 能 看 到 連 貫 的 動 畫 效 果。 ---- 使 用VB 進 行 動 畫 設 計 非 常
方 便， 因 為 其 工 具 箱 中 有 圖 像、 圖 片、 時 鐘 控 件。 只 要 獲
得 了 一 幅 幅 動 畫 單 幅 圖 像 文 件， 把 它 們 放 入 圖 像 控 制 數
組 中 去， 便 可 用 時 鐘 控 件 的 控 制 屬 性Interval 來 控 制 每 幅 圖
片 的 顯 示 間 隔， 把 最 終 動 畫 顯 示 的 位 置 確 定 好 后， 按 時 間
間 隔 依 次 從 圖 像 控 制 數 組 中 取 出 一 幅 圖 顯 示。 如 此 交 替
反 復 顯 示， 即 可 產 生 動 畫 效 果， 編 程 實 現 比 較 簡 單。 ----
VB 動 畫 設 計 所 能 接 收 的 單 幅 圖 片 文 件 的 格 式 有 四 種， 即
＊.Bmp、 ＊.Ico、 ＊.Wmf 和 ＊.Dib。 其 中 ＊.Bmp 文 件 的 來 源 最 廣，
不 但 可 以 使 用Windows 環 境 下 的 各 種 繪 圖 軟 件 來 繪 制( 但 費
時 費 力， 且 不 是 每 個 人 都 有 繪 畫 的 天 才)， 也 可 以 Web 動 畫
圖 像 分 解 方 法 ---- 從Web 網 頁 上 下 載 靜 態 圖 像 文 件 比 較 簡
單， 下 載 后 需 要 進 行 分 解。 ---- 動 畫 圖 像 文 件 的 分 解 是 動
畫 設 計 的 逆 過 程， 即 把 一 個 動 畫 效 果 的 圖 像 文 件 分 解 形
成 它 的 多 幅 圖 片 文 件。 可 使 用GIF Construction Set 軟 件 打 開(
此 軟 件 可 在 許 多 服 務 器 上 下 載) 要 分 解 的 圖 像 文 件， 該 軟
件 即 可 將 動 畫 自 動 分 解 為 多 幅 組 成 動 畫 的 單 幅 圖 畫。 ----
使 用 上 述 軟 件 分 解 后， 首 先 看 看 是 由 幾 幅 圖 畫 組 成 的 動
畫， 如 果 有N 幅 圖 畫， 就 把 動 畫 文 件 拷 貝N 份。 ---- 然 后， 逐
個 打 開 拷 貝 文 件 對 每 個 文 件 進 行 處 理， 處 理 過 程 中 只 需
在 第 一 個 文 件 中 保 留 靜 止 的 圖 像， 在 其 它 文 件 中 只 保 留
動 畫 圖 像。 ---- 最 后， 使 用 具 有 圖 形 轉 換 功 能 的 圖 形 處 理
軟 件 如Phtoshop， 就 可 把 得 到 的N 個 ＊.Gif 圖 像 文 件 都 轉 換 成
＊.Bmp 文 件 的 格 式。 ---- Web 動 畫 分 解 過 程 概 括 描 述 如 下： -
--- Web 動 畫 下 載 →Web 動 畫 分 解(GIF Construction Set) →Web 動 畫
格 式 轉 換(Phtoshop 等)。 一 個 實 例 ---- 這 是 一 個 在 數 據 庫 查
詢 窗 體 上 設 計 的 眼 睛 轉 動 查 看 的 動 畫， 此 動 畫 的 每 個 單
幅 圖 畫 就 是 從Web 網 頁 上 下 載 分 解 得 到 的。 ---- 動 畫 設 計 實
現 步 驟 如 下： ---- 首 先， 用 上 述 方 法 把Web 網 頁 上 轉 眼 睛 動
畫 下 載 保 存、 分 解、 格 式 轉 換 成 二 幅 畫Eyesl.Bmp 和Eyes2.Bmp(
此 動 畫 簡 單， 只 由 二 幅 畫 組 成)。 ---- 其 次， 將Eyes1.Bmp 和
Eyes2.Bmp 放 入 圖 像 控 制 數 組 中。
---- 程 序 代 碼 如 下：
在窗體的General中聲明：
Dim Rotateflag as Integer '交替顯示標志
Dim Currenteyes as Integer '當前顯示第幾幅畫
窗體裝載初始化：
Sub Form_Load()
Rotateflag=1 '進入顯示(時鐘計數開始)
Currenteyes=0 '第一幅畫定位
End Sub
交替顯示子程序(時鐘控制顯示間隔，本例為250ms)：
Sub Tmrtimer_Timer()
If Rotateflag=1
Then '交替顯示開始 SImgeyes.Picture=Imgeyes(Currenteyes).Picture '開始顯
示第一幅畫
Currenteyes=Currenteyes＋1 '250ms后顯示下一幅
If Currenteyes=2 Then Currenteyes=0 '如果已顯示了兩幅，則再從第一幅顯示
End If
End If
End Sub
結 束 ---- 利 用Web 網 頁 動 畫 圖 像 分 解 成 的 多 個 單 幅 圖 畫， 不
但 可 以 為VB 動 畫 設 計 提 供 方 便， 也 可 用 于VC 等 動 畫 編 程。
目 前，Inte.net 的 范 圍 日 益 擴 大， 使Web 與 軟 件 編 程 聯 系 起 來，
無 疑 提 高 了 應 用 軟 件 的 制 作 效 率 和 質 量。
文章來源于領測軟件測試網 http://www.kjueaiud.com/
