|
大型應用系統啟動運行的時間需要很長時間,其時間會根據需要初始化的數量和用戶系統的速度變化,因此在主窗口顯示前,應顯示一個初始化窗口,使應用程序看起來更具吸引力,因為當裝載程序時不斷可以向用戶顯示一些信息，而且可產生美觀的視覺效果。例如vb、delphi在啟動時均在主界面前顯示一splash窗口.
---- 1. 下面是顯示閃爍(標語)屏splash的一種簡單方法:
option explicit
private sub form_load()
注釋：顯示主窗口
me.show
注釋：顯示splash窗口
frmsplash.show
doevents
注釋：執行應用程序初始化
initialize
注釋：關閉splash窗口
unload spalsh
end sub
---- 該過程代碼應放在應用程序的啟動窗體中。第一個show方法可使windows在屏幕上顯示主窗體，下一個show方法顯示閃爍屏，它是你設計的名為frmsplash的窗體.在利用show方法之后，再利用Doevents函數，以確保閃爍屏窗體的所有元數立即繪制完。Initialize函數執行應用程序在啟動時需要執行的費時任務，例如，從文件中裝載數據，將窗體裝入內存等等。這時一切都準備就緒.
---- 2.閃爍窗體模板
---- Visual Basic 中含有許多摸板窗體，其中之一是閃爍屏。要為項目添加Splash screen 窗體，需要從project菜單中選擇Add Form.在Add Form 對話框的New標簽上選擇Splash Screen圖標，并單擊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對象，該對象可以訪問有關你的應用程序的信息;
---- 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
|
