在VFP表单中实现三维动画效果

文章作者 100test 发表时间 2008:02:01 15:48:56
来源 100Test.Com百考试题网

首先,请将作出的动画(背景为白色)以BMP图象格式逐帧存放在所建项目的子目录下,
本例为title1.bmp,title2.bmp,......,title25.bmp.

然后,在表单里增加一个图象类对象,名为Image1,将BackStyle属性改为"透明".并在其Picture属性中填入第一帧图象的文件名,本例为title1.bmp. 接着,在增加一个计时器对象,在其Interval属性中填入100(每秒10帧,改动该值可控制动画显示速度),并在Timer Event事件中填入如下代码a=Thisform.Image1.Pictures=5 ’s为图象文件名前缀的英文字符个数,本例为5zs=25’zs为图象的帧数,本例为25帧b=subst(a,Rat(’’,a) 1 s) n=Val(b) n=Iif(n=zs,1,n 1) Thisform.Image1.Picture=strtran(a,b,alt(str(n) ’.bmp’) 最后,按下"运行"按钮,图象动起来了. 记住把所有bmp文件添加到项目管理器的"其他文件"里,这样在编译成exe文件时,VFP会将所有BMP文件数据嵌入exe文件中并自动调用,运行时只需拷一个exe文件即可.

　　一般情况下，在使用VFP系统开发的应用系统，只要经过编译、发布和安装过程就可以脱离VFP运行环境而在中直接运行。其实这只是应用系统的一种运行方式，我们完全可以利用活动文档（Active Documents）的功能，实现将单纯操作系统方式下的应用系统向基于HTML的客户界面应用程序的转变。通过活动文档可顺利地将以前编写的应用程序移植到Web页面上，并可将VFP的功能传递到浏览器上。下面以一个人员情况应用程序实现在浏览器中运行为例，介绍具体的实现过程：


　　1.新建一个项目命名为new，并在该项目器添加一个表单BD1到项目中，设定该表单的属性如下：

　　TitleBar=0 &.&.&.&.关闭表单的标题栏

　　WindowState=2 &.&.&.&.设定表单运行时为最大化方式

　　ScollBar=3 &.&.&.&.设定当表格处于非整屏显示时，可以使用垂直和水平滚动条

　　在表单对象的Destory Events事件中加入如下程序代码：

　　clear Events&.&.&.&.保证当表单关闭时，用户能够退出应用程序的运行

　　2.在表单中添加数据环境和控件对象。

　　在表单的数据环境中添加一个数据表作为表单中的数据源，在这里我们增加的是一个人员情况表。

　　利用鼠标拖动数据环境中的相应字段选项添加到表单中，作为表单的编辑对象，并添加一个对数据记录进行操作的类对象，设置完毕.

　　3.添加活动文档类到项目，在建立好用户应用程序界面后，就可以向项目中添加活动文档类，其步骤如下：

　　在项目管理器中选择“类”页面，单击“新建”按钮，创建一个活动文档类，设定其基类为活动文档，将之于自定义的类库文件中。

　　设定好新类后双击对象，打开新类对象的代码窗口，为新类对象的Destory Events事件设定程序代码如下：

　　DO FORM BD1

　　READ EVENTS

　　设定新类对象的属性：

　　ContainerReleaseType=1

　　&.&.&.&.用户离开活动文档时，VFP将自动退出