学时安排： 实验教学1学时。

　

实验目的：

VFP的表单设计器提供了图象控制，允许直接在表单中添加.BMP图片。但是它并不支持其他格式的图象，包括动画。试图用VF环境用某种方式实现动画。

 

实验要求：
1. 每人一机，独立完成实验。
2. 每次实验完成将结果存入自己的U盘，或上传至信息中心个人网络U盘中保存。

　

实验设备：
硬件配置：计算机实验教学示范中心机房计算机。
软件配置：Windows操作系统，Visual Foxpro6.0系统。

　

实验内容及步骤：

由于图象控制和其他控制一样，具有自己一整套的属性，在设计时可以动态地改变它。其设计思想是准备几帧连贯的.BMP图象（可用相关的绘图软件自行制作），利用计时器的计时功能，在规定的时间间隔内动态地改变所显示的.BMP图象。

下面通过一个演示实例来加以说明：首先准备四幅图象，分别取名为：1.bmp,2.bmp,3.bmp和4.bmp。然后使用表单设计器设计表单如下：

演示表单：其中包括三个控制：Image（图象）,Timer（计时器）和Command（命令按钮） 。设置属性如下：
　　Image.Picture=“1.bmp”

Ttimer.Enabled=.t.

Timer.Interval=200

Command.Caption=“退出演示”

　　在表单的Activate事件中添加如下代码：
　　Public I

I=1

在计时器的Timer事件中添加代码如下：

If　I ==4　　

I=1

Else

i=I+1

EndIf

Pic=Str(I,1)+".bmp"

Thisform.Image.Picture=”具体路径”+ Pic

　　在命令按钮的Click事件中添加代码如下：
　　Thisform.Release

　　最后，保存并运行表单，我们会看到窗口中图片产生动画交替效果。

　

单击“退出演示”命令按钮，模拟动画的演示就结束了。