Uz Galaxy - Info Archive top BBS   RSS
Info Archive  Info Archive開発 - 25 スプラッシュ画面 の表示  

InfoArchive は起動に時間がかかるので、スプラッシュ画面を表示することにします。
(たぶん Web ブラウザコントロールの起動に時間がかかってるのだと思います。)


まず、適当に画面を作成します。

画面1


そして、標準モジュールを追加して、そこにスタートアップ関数である Main 関数を作ります。

リスト1
Module Main
    Public splash As SplashWnd

    Public Sub Main()
        splash = New SplashWnd
        splash.Show()
        Application.DoEvents()

        Application.Run(New MainWnd)
    End Sub 'Main
End Module

プロジェクトのプロパティ画面を開き、スタートアップを Sub Main にします。

画面2


そして、メイン画面が起動し終わったら、スプラッシュ画面を閉じます。

リスト2
    Private Sub MainWnd_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        splash.Close()
    End Sub


Copyright © 2004 Uz. All rights reserved.
http://uzgalaxy.com/
このページはInfoArchiveで作成されています。