|
首先,请将作出的动画(背景为白色)以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将自动退出
4.设定生成的新类为主文件，VFP6中活动文档应用程序的编译方式与其他普通VFP应用程序相同。将活动文档表单连接为应用程序，编译后将生成一个new.app应用程序，这个应用程序可以在VFP环境下或在浏览器中运行。
为了在浏览器中运行活动文档，我们要在系统选单“工具”中选择“运行Active Document”，在文件名编辑框中输入要运行的活动文档的文件名new.app，单击“运行”按钮，系统会提示你对欲运行的文件处理进行选择，这里我们要选择“在文件的当前位置打开”选项，便可在浏览器中运行活动文档.
通过上面的操作步骤，我们就可以很方便地实现把使用VFP系统编写的应用程序移植到浏览器中去运行。
黄金铁
微软的工具Visual 6.0在国内应用很广，但也不可避免地存在某些Bug。近日，本人在使用VFP 6.0简体中文版开发软件时，就发现了其安装向导中的一个Bug，下面，笔者将具体介绍该问题及笔者的。
在制作应用程序发行版软件时，笔者利用安装向导将中的字形文件安装到目录。按其提示正常操作后，得到的应用程序发行版在执行安装过程中出错，出错的窗口标题为“安装程序出错824”，错误提示为“对象16，您的安装程序文件可能已被破坏。请从您原来运行它的位置重新启动安装程序”。此错误代码在帮助文件中找不到。根据其提示的内容，笔者检查了所有的源文件和生成文件，发现均正确无误。将该字形文件安装到应用程序目录和Windows系统目录亦正常。最后锁定了故障的原因，即安装向导在把文件安装到Windows目录时出现错误。
经过较长时间的分析和思索，笔者最后在生成的安装程序中的两个参数文件setup.stf及setup.inf中找到了蛛丝马迹。在setup.stf中，该字形文件对应行有一个字段内容为“应用程序 - Windows，-0b20z4avw”；而在setup.inf中，文件的内容按节分开，节名用方括号包括。该字形文件单独在一节，节名为[Application - Windows]。笔者试着用debug反汇编程序把该节名修改为[应用程序 - Windows]，以便与setup.stf对应，空出的三个字节用空格补齐。结果生成的安装程序顺利地将该字形文件安装到了Windows目录下，至此摆平了该Bug。
回头来看，此Bug产生的原因是微软Visual FoxPro 6.0汉化不完全造成的，在英文版的Visual FoxPro 6.0中不应该有此问题。为了以后应用的方便，本人专门做了一段FoxPro程序自动做替换节名的工作。程序如下：
&&&&解决Visual Viusal FoxPro 6.0简体中文版安装向导 Bug 的程序
f1=locfile(’setup.inf’,’inf:inf’)
if len(f1)＞0
setupinf=fopen(f1,2)
else
wait windows "没找到 setup.inf 文件!"
return
endif
if setupinf＜0
wait windows "打开 setup.inf 文件错误!"
return
endif
s1="[Application - Windows]"
s2="[应用程序 - Windows] "
&&&&s2字符串尾部有3个空格,以使其长度与s1长度相等
flag1=.f.
do while .not.feof(setupinf)
s3=fgets(setupinf)
if s3=s1
fseek(setupinf,0-len(s1)-2,1)
fputs(setupinf,s2)
flag1=.t.
exit
endif
enddo
fclose(setupinf)
if flag1
wait windows "替换成功!"
else
wait windows "没找到 "+s1+" 节!"
endif
return
|
