tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Visual Basic 2005でのスプラッシュウィンドウ
投稿日： 2013/01/21(Mon) 11:35
投稿者： 佐藤hs

単純なスプラッシュウィンドウを作成したいのですが、以下の様に作成しました。
問題は
１）スプラッシュウィンドウが時間たっても閉じない
２）メインのフォーム（FORM1）が起動しない
どちらも同じ原因かも知れませんが、調べてもわかりませんでした。
多分初歩的な事だと思うのですが、宜しくお願い致します。


Public NotInheritable Class SplashScreen1
    Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'アプリケーション タイトル
        If My.Application.Info.Title <> "" Then
            ApplicationTitle.Text = My.Application.Info.Title
        Else
            'アプリケーション タイトルがない場合は、拡張子なしのアプリケーション名を使用します
            ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
        End If
        Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)
        '著作権情報
        Copyright.Text = My.Application.Info.Copyright
    End Sub
    Private Sub Version_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Version.Click
    End Sub
End Class

Namespace My
    Partial Friend Class MyApplication
        Protected Overrides Function OnInitialize( _
                ByVal commandLineArgs As _
                System.Collections.ObjectModel.ReadOnlyCollection(Of String) _
                ) As Boolean
            'スプラッシュウィンドウを表示する最短時間を10秒にする
            Me.MinimumSplashScreenDisplayTime = 1000
            Return MyBase.OnInitialize(commandLineArgs)
        End Function
    End Class
End Namespace
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。