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

2019-11-17 05:51:03

字體：大中小

來源：轉載

供稿：網友

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

上一篇：Visual FoxPro3.0經驗14條

下一篇：CGI編程的安全性 -- 文件名