使用VFP3.0编写应用程序时，我们利用系统本身的性能可以制作出类似于Word、Excel启动时的软件封面、漂亮的窗口背景和带背景音乐、移动字幕的动感封底，使我们编写的VFP3.0应用程序更具有专业性。
一、封面、背景的制作
1.用画笔或其它绘图工具软件绘制一幅BMP位图格式的封面图片文件Face.bmp。也可从其它现有的图片文件中截取剪切一幅比较合适的图片，再用图片转换软件将其转换为BMP位图格式文件，作为封面图片。
2.以同样方法再作一幅背景图片Back.bmp，尺寸为屏幕大小，以全部覆盖主菜单窗口空白区为准。假如屏幕分辩率为640×480，则背景图片尺寸大概为640×450象素左右。
3.进入Visual FoXPro 3.0系统环境，打开应用程序所在的项目，在命令行窗口中键入Create Form或在“文件”菜单中选择“新建”、“表单”，建立一个文件名为 Fack.scx 的新表单FORM1。
4. 设置表单FORM1的Picture属性，选取刚才作好的Face.bmp文件，调整表单FORM1的窗口大小，使其恰好被封面图片全部覆盖；然后再设置表单FORM1的其它属性：AutoCenter=.T.，Borderstyle= 0-无边框，MaxButton=.F.，MinButton=.F.，Movlable=.F. 等。
5. 鼠标点击“表单控制栏”中的“标签”，并在表单FORM1上拉出一个矩形框Lable1，设置Lable1的Caption属性为“人事治理系统”。
6. 鼠标点击“表单控制栏”中的“计时器”，在表单FORM1中加入两个计时器对象Timer1和Timer2，设置Timer1的Interval属性为了3000（3秒），Timer2的Interval属性为了4000（4秒），在Timer1的Time过程中加入语句：
_screen.picture="Back.bmp" &&打开屏幕背景图片
在Timer2的Time过程中加入语句：
release thisform &&释放封面表单
7.在主文件程序的最前面加入语句：
ZOOM WINDOWS SCREEN Max &&菜单主窗口最大化
DO FORM Face.scx &&执行封面表单
8. 实现效果：执行编译后的应用程序，菜单主窗口出现并扩大到最大化时，弹出封面，封面停留3秒钟后打出背景图案，再经过1秒钟封面消失，程序进入带有背景图案的主窗口界面。
二、带背景音乐、移动字幕封底的制作
1. 用背景图片的作法及标准制作一幅封底图片Over.bmp，尺寸为屏幕大小，以全部覆盖主菜单窗口空白区为准。假如屏幕分辩率为640×480，则封底图片大概为640×440象素左右。
2. 建立一个文件名为 Over.scx 的新表单 FORM2。设置表单FORM2的Picture 属性为 Over.bmp，再设置属性AutoCenter=.T.，Borderstyle= 2-双线边框，MaxButton=.F.，MinButton=.F.，Movlable=.F.，Height=440,Width=640等。
3. 在表单FORM2中加入两个标签对象Lable1和Lable2，按实际情况调整好Lable1和Lable2的位置，设置Lable1和Lable2 的属性AutoSize=.T.，BackStyle =0-透明，Caption=""，FontName=隶书，设置Lable1属性FontSize=36，设置Lable2 的属性FontSize=24。
4. 鼠标点击“表单控制栏”中的“OLE容器控制”，拖动到表单FORM2中建立Olecontrol1对象，在弹出的“插入对象”窗口中选择“媒体剪辑”对象类型，选中“以图标显示”框，将其隐藏。在打开的“媒体播放机”窗口中，从文件列表中选择一.wav文件或.MID文作为封底背景音乐，选择“编辑”菜单下“选项”中的“自动重复”，将其设为循还播放，并去掉“重放的控制条”的选中标记，让音乐播放时不出现“媒体播放机”界面，确认后退出。然后设置Olecontrol1的属性Visible=.F.，AutoSize=.T.。
5. 在表单FORM2的Avtivate过程中加入语句：
Public t &&定义全局变量t
t=0
a="人事治理系统"+chr(13)+chr(13)
b=" 项目策划：李湘江"+chr(13)+chr(13)
c=" 软件设计：李湘江"+chr(13)+chr(13)
d="矩菱机电工作室出品"+chr(13)
e=" 一九九八年二月"
thisform.label2.caption=a
thisform.label1.caption=b+c+d +e
thisform.olecontrol1.doverb(0) &&打开Olecontrol1对象
6. 在表单FORM2中加入一个计时器对象Timer1，设置Timer1的Interval属性为了30（0.03秒）,在Timer1的Time过程加入程序语句：
If t<3000 then &&时间控制
t=t+4
if t<=255 then
thisform.label1.forecolor=RGB(t,0,0) &&颜色渐变，黑→红
else
if t<=510 then
thisform.label1.forecolor=RGB(255,t-255,0) &&颜色渐变，红→黄
else
thisform.label2.top=thisform.label2.top-1 &&字幕label2上移
thisform.label1.top=thisform.label1.top-1 &&字幕label1上移
endif
endif
endif
7. 在表单 FORM2 的 Click 过程中加入语句：
release t &&释放全局变量t
release thisform &&释放封底表单
8. 在主文件程序的最后面加入语句：
DO FORM Over.scx &&执行封底表单
9. 实现效果：执行应用程序后，在退出应用程序时，出现动态封底，同时响起美丽的音乐。鼠标单击封底画面，封底关闭，返回Windows桌面。
作 者：李湘江
|
