大型應(yīng)用系統(tǒng)啟動運行的時間需要很長時間,其時間會根據(jù)需要初始化的數(shù)量和用戶系統(tǒng)的速度變化,因此在主窗口顯示前,應(yīng)顯示一個初始化窗口,使應(yīng)用程序看起來更具吸引力,因為當(dāng)裝載程序時不斷可以向用戶顯示一些信息,而且可產(chǎn)生美觀的視覺效果。例如vb、delphi在啟動時均在主界面前顯示一splash窗口. ---- 1. 下面是顯示閃爍(標(biāo)語)屏splash的一種簡單方法:
option explicit private sub form_load() 注釋:顯示主窗口 me.show 注釋:顯示splash窗口 frmsplash.show doevents 注釋:執(zhí)行應(yīng)用程序初始化 initialize 注釋:關(guān)閉splash窗口 unload spalsh end sub
---- 該過程代碼應(yīng)放在應(yīng)用程序的啟動窗體中。第一個show方法可使windows在屏幕上顯示主窗體,下一個show方法顯示閃爍屏,它是你設(shè)計的名為frmsplash的窗體.在利用show方法之后,再利用Doevents函數(shù),以確保閃爍屏窗體的所有元數(shù)立即繪制完。Initialize函數(shù)執(zhí)行應(yīng)用程序在啟動時需要執(zhí)行的費時任務(wù),例如,從文件中裝載數(shù)據(jù),將窗體裝入內(nèi)存等等。這時一切都準(zhǔn)備就緒.
---- 2.閃爍窗體模板
---- Visual Basic 中含有許多摸板窗體,其中之一是閃爍屏。要為項目添加Splash screen 窗體,需要從project菜單中選擇Add Form.在Add Form 對話框的New標(biāo)簽上選擇Splash Screen圖標(biāo),并單擊Open.這樣Splash Screen窗體就被添加到項目中.
---- 下列代碼顯示了如何定制Splash Screen 窗體摸板的實例:
option explicit private sub form_load() frmsplash.lbllicenseto=app.legaltrademarks frmsplash.lblcompanyproduct=app.productname frmsplash.lblplatform="window 98" frmsplash.lblcopyright=app.legalcopyright frmsplash.lblcompany=app.companyname frmsplash.lblwarning="Warning:this program is protected" & _ "by copyright law,so don注釋:t copy " frmsplash.show doevents initialize unload frmsplash end sub
---- 注意這里使用了app對象,該對象可以訪問有關(guān)你的應(yīng)用程序的信息;
---- splash screen 窗體摸板代碼模塊的代碼如下所示:
Private Sub Form_keypress(keyascii as integer) unload me End sub
Private sub form_load() lblversion.caption="version"&app.major&". "app.minor"."app.revision lblproductname.caption=app.title end sub private sub frame1_click() unload me End Sub
|