分享
 
 
 

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

王朝other·作者佚名  2008-06-01
窄屏简体版  字體: |||超大  

使用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

ift<=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桌面。

作 者:李湘江

--

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有