使用VFP3.0編寫應(yīng)用程序時(shí)，我們利用系統(tǒng)本身的性能可以制作出類似于WORD、EXCEL啟動(dòng)時(shí)的軟件封面、漂亮的窗口背景和帶背景音樂、移動(dòng)字幕的動(dòng)感封底，使我們編寫的VFP3.0應(yīng)用程序更具有專業(yè)性。
一、封面、背景的制作
1.用畫筆或其它繪圖工具軟件繪制一幅BMP位圖格式的封面圖片文件Face.bmp。也可從其它現(xiàn)有的圖片文件中截取剪切一幅比較合適的圖片，再用圖片轉(zhuǎn)換軟件將其轉(zhuǎn)換為BMP位圖格式文件，作為封面圖片。
2.以同樣方法再作一幅背景圖片Back.bmp，尺寸為屏幕大小，以全部覆蓋主菜單窗口空白區(qū)為準(zhǔn)。如果屏幕分辯率為640×480，則背景圖片尺寸大概為640×450象素左右。
3.進(jìn)入Visual Foxpro 3.0系統(tǒng)環(huán)境，打開應(yīng)用程序所在的項(xiàng)目，在命令行窗口中鍵入Create Form或在“文件”菜單中選擇“新建”、“表單”，建立一個(gè)文件名為 Fack.scx 的新表單FORM1。
4. 設(shè)置表單FORM1的Picture屬性，選取剛才作好的Face.bmp文件，調(diào)整表單FORM1的窗口大小，使其恰好被封面圖片全部覆蓋；然后再設(shè)置表單FORM1的其它屬性：AutoCenter=.T.，Borderstyle= 0-無邊框，MaxButton=.F.，MinButton=.F.，Movlable=.F. 等。
5. 鼠標(biāo)點(diǎn)擊“表單控制欄”中的“標(biāo)簽”，并在表單FORM1上拉出一個(gè)矩形框Lable1，設(shè)置Lable1的Caption屬性為“人事管理系統(tǒng)”。
6. 鼠標(biāo)點(diǎn)擊“表單控制欄”中的“計(jì)時(shí)器”，在表單FORM1中加入兩個(gè)計(jì)時(shí)器對(duì)象Timer1和Timer2，設(shè)置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&&執(zhí)行封面表單
8. 實(shí)現(xiàn)效果：執(zhí)行編譯后的應(yīng)用程序，菜單主窗口出現(xiàn)并擴(kuò)大到最大化時(shí)，彈出封面，封面停留3秒鐘后打出背景圖案，再經(jīng)過1秒鐘封面消失，程序進(jìn)入帶有背景圖案的主窗口界面。
二、帶背景音樂、移動(dòng)字幕封底的制作
1. 用背景圖片的作法及標(biāo)準(zhǔn)制作一幅封底圖片Over.bmp，尺寸為屏幕大小，以全部覆蓋主菜單窗口空白區(qū)為準(zhǔn)。如果屏幕分辯率為640×480，則封底圖片大概為640×440象素左右。
2. 建立一個(gè)文件名為 Over.scx 的新表單 FORM2。設(shè)置表單FORM2的Picture 屬性為 Over.bmp，再設(shè)置屬性AutoCenter=.T.，Borderstyle= 2-雙線邊框，MaxButton=.F.，MinButton=.F.，Movlable=.F.，Height=440,Width=640等。
3. 在表單FORM2中加入兩個(gè)標(biāo)簽對(duì)象Lable1和Lable2，按實(shí)際情況調(diào)整好Lable1和Lable2的位置，設(shè)置Lable1和Lable2 的屬性AutoSize=.T.，BackStyle =0-透明，Caption=""，F(xiàn)ontName=隸書，設(shè)置Lable1屬性FontSize=36，設(shè)置Lable2 的屬性FontSize=24。
4. 鼠標(biāo)點(diǎn)擊“表單控制欄”中的“OLE容器控制”，拖動(dòng)到表單FORM2中建立Olecontrol1對(duì)象，在彈出的“插入對(duì)象”窗口中選擇“媒體剪輯”對(duì)象類型，選中“以圖標(biāo)顯示”框，將其隱藏。在打開的“媒體播放機(jī)”窗口中，從文件列表中選擇一.wav文件或.MID文作為封底背景音樂，選擇“編輯”菜單下“選項(xiàng)”中的“自動(dòng)重復(fù)”，將其設(shè)為循還播放，并去掉“重放的控制條”的選中標(biāo)記，讓音樂播放時(shí)不出現(xiàn)“媒體播放機(jī)”界面，確認(rèn)后退出。然后設(shè)置Olecontrol1的屬性Visible=.F.，AutoSize=.T.。
5. 在表單FORM2的Avtivate過程中加入語句：
Public t&&定義全局變量t
t=0
a="人事管理系統(tǒng)"+chr(13)+chr(13)
b=" 項(xiàng)目策劃：李湘江"+chr(13)+chr(13)
c=" 軟件設(shè)計(jì)：李湘江"+chr(13)+chr(13)
d="矩菱機(jī)電工作室出品"+chr(13)
e=" 一九九八年二月"
thisform.label2.caption=a
thisform.label1.caption=b+c+d +e
thisform.olecontrol1.doverb(0)&&打開Olecontrol1對(duì)象
6. 在表單FORM2中加入一個(gè)計(jì)時(shí)器對(duì)象Timer1，設(shè)置Timer1的Interval屬性為了30（0.03秒）,在Timer1的Time過程加入程序語句：
If t<3000 then&&時(shí)間控制
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 &&執(zhí)行封底表單
9. 實(shí)現(xiàn)效果：執(zhí)行應(yīng)用程序后，在退出應(yīng)用程序時(shí)，出現(xiàn)動(dòng)態(tài)封底，同時(shí)響起優(yōu)美的音樂。鼠標(biāo)單擊封底畫面，封底關(guān)閉，返回Windows桌面。
作 者：李湘江