VisualFoxpro3.0应用程序封面、背景及封底的制作

核心提示：使用VFP3.0编写应用程序时，我们利用系统本身的性能可以制作出类似于Word、Excel启动时的软件封面、漂亮的窗口背景和带背景音乐、移动字幕的动感封底，VisualFoxpro3.0应用程序封面、背景及封底的制作，使我们编写的VFP3.0应用程序更具有专业性，一、封面、背景的制作1.用画笔或其它绘图工具软件绘制一幅

　　使用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桌面。
作 者：李湘江