明輝手游網(wǎng)中心:是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)!

在VB中怎么創(chuàng)建閃爍(標(biāo)語(yǔ))屏

[摘要]大型應(yīng)用系統(tǒng)啟動(dòng)運(yùn)行的時(shí)間需要很長(zhǎng)時(shí)間,其時(shí)間會(huì)根據(jù)需要初始化的數(shù)量和用戶系統(tǒng)的速度變化,因此在主窗口顯示前,應(yīng)顯示一個(gè)初始化窗口,使應(yīng)用程序看起來(lái)更具吸引力,因?yàn)楫?dāng)裝載程序時(shí)不斷可以向用戶顯示一些...
大型應(yīng)用系統(tǒng)啟動(dòng)運(yùn)行的時(shí)間需要很長(zhǎng)時(shí)間,其時(shí)間會(huì)根據(jù)需要初始化的數(shù)量和用戶系統(tǒng)的速度變化,因此在主窗口顯示前,應(yīng)顯示一個(gè)初始化窗口,使應(yīng)用程序看起來(lái)更具吸引力,因?yàn)楫?dāng)裝載程序時(shí)不斷可以向用戶顯示一些信息,而且可產(chǎn)生美觀的視覺效果。例如vb、delphi在啟動(dòng)時(shí)均在主界面前顯示一splash窗口.
---- 1. 下面是顯示閃爍(標(biāo)語(yǔ))屏splash的一種簡(jiǎn)單方法:

option explicit
private sub form_load()
注釋:顯示主窗口
me.show
注釋:顯示splash窗口
frmsplash.show
doevents
注釋:執(zhí)行應(yīng)用程序初始化
initialize
注釋:關(guān)閉splash窗口
unload spalsh
end sub

---- 該過(guò)程代碼應(yīng)放在應(yīng)用程序的啟動(dòng)窗體中。第一個(gè)show方法可使windows在屏幕上顯示主窗體,下一個(gè)show方法顯示閃爍屏,它是你設(shè)計(jì)的名為frmsplash的窗體.在利用show方法之后,再利用Doevents函數(shù),以確保閃爍屏窗體的所有元數(shù)立即繪制完。Initialize函數(shù)執(zhí)行應(yīng)用程序在啟動(dòng)時(shí)需要執(zhí)行的費(fèi)時(shí)任務(wù),例如,從文件中裝載數(shù)據(jù),將窗體裝入內(nèi)存等等。這時(shí)一切都準(zhǔn)備就緒.

---- 2.閃爍窗體模板

---- Visual Basic 中含有許多摸板窗體,其中之一是閃爍屏。要為項(xiàng)目添加Splash screen 窗體,需要從project菜單中選擇Add Form.在Add Form 對(duì)話框的New標(biāo)簽上選擇Splash Screen圖標(biāo),并單擊Open.這樣Splash Screen窗體就被添加到項(xiàng)目中.

---- 下列代碼顯示了如何定制Splash Screen 窗體摸板的實(shí)例:

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對(duì)象,該對(duì)象可以訪問有關(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