程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> VisualBasic程序創建閃爍(標語)屏

VisualBasic程序創建閃爍(標語)屏

編輯:VB綜合教程
大型應用系統啟動運行的時間需要很長時間,其時間會根據需要初始化的數量和用戶系統的速度變化,因此在主窗口顯示前,應顯示一個初始化窗口,使應用程序看起來更具吸引力,因為當裝載程序時不斷可以向用戶顯示一些信息,而且可產生美觀的視覺效果。例如vb、delphi在啟動時均在主界面前顯示一splash窗口.
  ----1.下面是顯示閃爍(標語)屏splash的一種簡單方法:
  
  optionexplicit
  privatesubform_load()
  '顯示主窗口
  me.show
  '顯示splash窗口
  frmsplash.show
  doevents
  '執行應用程序初始化
  initialize
  '關閉splash窗口
  unloadspalsh
  endsub
  
  ----該過程代碼應放在應用程序的啟動窗體中。第一個show方法可使windows在屏幕上顯示主窗體,下一個show方法顯示閃爍屏,它是你設計的名為frmsplash的窗體.在利用show方法之後,再利用Doevents函數,以確保閃爍屏窗體的所有元數立即繪制完。Initialize函數執行應用程序在啟動時需要執行的費時任務,例如,從文件中裝載數據,將窗體裝入內存等等。這時一切都准備就緒.
  
  ----2.閃爍窗體模板
  
  ----VisualBasic中含有許多摸板窗體,其中之一是閃爍屏。要為項目添加Splashscreen窗體,需要從project菜單中選擇AddForm.在AddForm對話框的New標簽上選擇SplashScreen圖標,並單擊Open.這樣SplashScreen窗體就被添加到項目中.
  
  ----下列代碼顯示了如何定制SplashScreen窗體摸板的實例:
  
  optionexplicit
  privatesubform_load()
  frmsplash.lbllicenseto=app.legaltrademarks
  frmsplash.lblcompanyproduct=app.productname
  frmsplash.lblplatform="window98"
  frmsplash.lblcopyright=app.legalcopyright
  frmsplash.lblcompany=app.companyname
  frmsplash.lblwarning="Warning:thisprogramisprotected"&_
  "bycopyrightlaw,sodon'tcopy"
  frmsplash.show
  doevents
  initialize
  unloadfrmsplash
  endsub
  
  ----注意這裡使用了app對象,該對象可以訪問有關你的應用程序的信息;
  
  ----splashscreen窗體摸板代碼模塊的代碼如下所示:
  
  PrivateSubForm_keypress(keyasciiasinteger)
  unloadme
  Endsub
  
  Privatesubform_load()
  lblversion.caption="version"&app.major&".
  "app.minor"."app.revision
  lblproductname.caption=app.title
  endsub
  privatesubframe1_click()
  unloadme
  EndSub->

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved