大規模なアプリケーションシステムの起動と実行には時間がかかります。その時間は必要な初期化の回数とユーザーのシステムの速度によって異なります。そのため、メインウィンドウを表示する前に初期化ウィンドウを表示する必要があります。プログラムのロード時に一部の情報をユーザーに継続的に表示でき、美しい視覚効果を生み出すことができるため、アプリケーションはより魅力的に見えます。たとえば、VB と Delphi は両方とも、起動時にメイン インターフェイスの前面にスプラッシュ ウィンドウを表示します。
----1. 以下は、フラッシュ (スローガン) 画面のスプラッシュを表示する簡単な方法です。
オプション明示的
PRivatesubform_load()
'メインウィンドウを表示
私に見せて
'スプラッシュウィンドウを表示
frmsplash.show
イベントを行う
'アプリケーションの初期化を実行します
初期化する
'スプラッシュウィンドウを閉じる
アンロードスパルシュ
エンドサブ
----このプロシージャ コードはアプリケーションの起動フォームに配置する必要があります。最初の show メソッドにより、Windows は画面上にメイン フォームを表示できます。次の show メソッドは、frmsplash という名前で設計したフォームであるフラッシュ画面を表示します。show メソッドを使用した後、Doevents 関数を使用して、すべての要素を確実にフラッシュします。画面フォームがすぐに描画されます。 Initialize 関数は、ファイルからのデータの読み込み、メモリへのフォームの読み込みなど、アプリケーションの起動時に実行する必要がある時間のかかるタスクを実行します。この時点で、すべての準備が整いました。
----2. 点滅するフォーム テンプレート
----VisualBasic には多くのテンプレート フォームが含まれており、その 1 つが Flash 画面です。スプラッシュスクリーン フォームをプロジェクトに追加するには、プロジェクト メニューから [フォームの追加] を選択し、[フォームの追加] ダイアログ ボックスの [新規] タブで [スプラッシュスクリーン] アイコンを選択し、[開く] をクリックします。
----次のコードは、SplashScreen フォーム テンプレートをカスタマイズする方法の例を示しています。
オプション明示的
privatesubform_load()
frmsplash.lllicenseto=app.legaltrademarks
frmsplash.lblcompanyproduct=app.製品名
frmsplash.lblplatform="ウィンドウ98"
frmsplash.lblcopyright=app.legalcopyright
frmsplash.lblcompany=app.会社名
frmsplash.lblwarning="警告:このプログラムは保護されています"&_
「著作権法により、コピーしないでください」
frmsplash.show
イベントを行う
初期化する
アンロードフロムスプラッシュ
エンドサブ
----ここでは、アプリケーションに関する情報にアクセスできる app オブジェクトが使用されていることに注意してください。
----スプラッシュ スクリーン フォーム テンプレート コード モジュールのコードは次のとおりです。
PrivateSubForm_keypress(keyasciiasinteger)
アンロードしてください
エンドサブ
Privatesubform_load()
lblversion.caption="バージョン"&app.major&"。
"app.minor"."app.リビジョン
lbl製品名.caption=app.title
エンドサブ
privatesubframe1_click()
アンロードしてください
EndSub->