在Visual Basic 中 利 用Image 和Timer 控 件 能 很 方 便 地 实 现 动 画。 本 文 将 介 绍Visual Basic 动 画 编 程 的 基 本 原 理 和 实 现 三 种 不 同 类 型 动 画 的 编 程 技 术。

一、 基 本 原 理

---- 在Visual Basic 中， 用LoadPicture 函 数 将BMP、ICO 和WMF 格 式 的 图 象 文 件 装 入 内 存， 并 将 函 数 返 回 值 赋 予Image 对 象 的Picture 属 性， 便 能 在Image 对 象 中 显 示 图 象。 使 图 象 移 动 或 变 化 的 基 本 方 法 有 三 种， 即：

1. 用Image 对 象 的Move 方 法 移 动 图 象， 其Left 和Top 属 性 指 示 了Image 对 象 的 当 前 左 上 角 位 置；
   
2. 调 用LoadPicture 函 数 装 载 不 同 的 图 象， 并 赋 给Image 对 象 的Picture 属 性， 将 在 对 象 中 显 示 不 同 的 图 象， 即 实 现 图 象 变 化；
   
3. 修 改Image 对 象 的Width 和/ 或Height 属 性 可 以 缩 放 图 象。

---- Timer 对 象 的Enabled 属 性 决 定 了Timer 事 件 是 否 有 效。 设 置Enabled 属 性 为True 将 启 动Timer 事 件（ 如 启 动 动 画）； 为False 则 将 使Timer 事 件 无 效（ 如 停 止 动 画）。

二、 无 位 移 动 画

---- 下 面 是 翻 书 动 画 的 例 子。 程 序 启 动 时， 在 窗 体 中 显 示 一 本 翻 开 的 书， 用 鼠 标 左 键 点 击 书， 则 将 开 始 翻 书； 再 用 鼠 标 左 键 点 击 书， 则 书 将 停 止 翻 动。 位 图 文 件book1.bmp~ book4.bmp 分 别 表 现 了 翻 书 时， 正 在 翻 的 书 页 的 不 同 位 置， 它 们 存 放 在 当 前 工 程 所 在 的 目 录 中。

---- 在 需 显 示 动 画 的 窗 体（Form1） 中 设 置Image 对 象Image1 和Timer 对 象Timer1， 并 按 下 表 设 置 它 们 的 属 性， 未 列 出 的 属 性 使 用 缺 省 值。

.
.
.

三、 单 帧 位 移 动 画

---- 下 面 是 云 彩 移 动 的 例 子。 程 序 启 动 时， 在 窗 体 中 显 示 一 朵 云， 用 鼠 标 左 键 点 击 云， 则 云 彩 将 开 始 飘 动， 如 碰 到 窗 体 的 边 界， 云 彩 将 改 变 移 动 方 向； 再 用 鼠 标 左 键 点 击 云， 则 云 将 停 止 移 动。 位 图 文 件cloud.bmp 存 放 在 当 前 工 程 所 在 的 目 录 中。

---- 在 需 显 示 动 画 的 窗 体（Form1） 中 设 置Image 对 象Image1 和Timer 对 象Timer1， 并 按 下 表 设 置 它 们 的 属 性， 未 列 出 的 属 性 使 用 缺 省 值。

.
.
.

四、 多 帧 位 移 动 画

---- 下 面 是 小 鸟 飞 翔 的 例 子。 程 序 启 动 时， 在 窗 体 中 显 示 一 只 小 鸟， 用 鼠 标 左 键 点 击 它， 则 小 鸟 将 开 始 扇 翅 飞 翔， 如 碰 到 窗 体 的 边 界， 小 鸟 将 改 变 飞 翔 方 向； 再 用 鼠 标 左 键 点 击 小 鸟， 则 小 鸟 将 停 止 飞 翔。 位 图 文 件bird1.bmp~ bird4.bmp 分 别 表 现 了 小 鸟 飞 翔 时， 其 翅 膀 的 不 同 位 置， 它 们 存 放 在 当 前 工 程 所 在 的 目 录 中。

---- 在 需 显 示 动 画 的 窗 体（Form1） 中 设 置Image 对 象Image1 和Timer 对 象Timer1， 并 按 下 表 设 置 它 们 的 属 性， 未 列 出 的 属 性 使 用 缺 省 值。

.
.
.

五、 缩 放 动 画

---- 下 面 是 模 拟 气 球 在 空 中 缩 放（ 同 心） 的 例 子。 程 序 启 动 时， 在 窗 体 中 显 示 一 只 气 球， 用 鼠 标 左 键 点 击 它， 则 气 球 将 开 始 膨 胀， 如 碰 到 窗 体 的 边 界， 气 球 将 缩 小， 缩 小 到 原 来 大 小 时， 又 将 膨 胀； 再 用 鼠 标 左 键 点 击 气 球， 则 气 球 将 停 止 缩 放。 位 图 文 件Balloon.bmp 存 放 在 当 前 工 程 所 在 的 目 录 中。

---- 在 需 显 示 动 画 的 窗 体（Form1） 中 设 置Image 对 象Image1 和Timer 对 象Timer1， 并 按 下 表 设 置 它 们 的 属 性， 未 列 出 的 属 性 使 用 缺 省 值。

对象
属性
设置值
Image1
Picture
...(工程文件所处路径)\Balloon.bmp
.
.
.