| 導購 | 订阅 | 在线投稿
分享
 
 
 

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

來源:互聯網網民  2008-06-01 01:10:35  評論

使用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桌面。

作 者:李湘江

--

 
特别声明:以上内容(如有图片或视频亦包括在内)为网络用户发布,本站仅提供信息存储服务。
 
  使用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桌面。 作 者:李湘江 --
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 
 熱帖排行
 
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有