タイトル | : Visual Basic 2005でのスプラッシュウィンドウ |
記事No | : 11018 |
投稿日 | : 2013/01/21(Mon) 11:35 |
投稿者 | : 佐藤hs |
単純なスプラッシュウィンドウを作成したいのですが、以下の様に作成しました。 問題は 1)スプラッシュウィンドウが時間たっても閉じない 2)メインのフォーム(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
|