让三维动画在VFP表单中动起来

首先，请将动画(白色背景)以BMP图像格式逐帧存储在您正在构建的项目的子目录中。
这个例子是title1.bmp，title2.bmp，...，title25.bmp.
然后，在表单中添加一个名为Image1的图像类对象，将BackStyle属性改为“并在其Picture属性中填入第一张图像的文件名，本例中为title1.bmp.
接下来，添加一个timer对象，在其Interval属性中填入100(每秒10帧，改变该值可以控制动画显示速度)。并在Timer Event事件中填入以下代码:
a = this form . image1 . picture
s = 5的是图片文件名前缀中的英文字符数，本例中为5
zs=25 'zs是图片数，本例中为25帧
b = subs。a)+1+s)
n = val(b)
n = IIF(n = zs，1，n+1)
this form . image1 . picture = str ran(a，b，alt (str (n))图像在移动。
记得将所有bmp文件添加到项目管理器的“其他文件”中，这样在编译成exe文件时，VFP会将所有BMP文件数据嵌入到exe文件中并自动调用，运行时只需复制一个exe文件即可。