サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2013/01/25 16:10
- 名前： VBレスキュー(花ちゃん)
- ***********************************************************************************
* カテゴリー：[自アプリ関係][フォーム][] *
* キーワード：スプラッシュ スクリーン,SplashScreen,ロゴ,バージョン,起動時表示 *
***********************************************************************************
タイトル ： Visual Basic 2005でのスプラッシュウィンドウ
記 事 No ： 11018
投 稿 日 ： 2013/01/21(Mon) 11:35
元質問者 ： 佐藤hs
-----------------------------------------------------------------------------------
単純なスプラッシュウィンドウを作成したいのですが、以下の様に作成しました。
問題は
１）スプラッシュウィンドウが時間たっても閉じない
２）メインのフォーム（FORM1）が起動しない
どちらも同じ原因かも知れませんが、調べてもわかりませんでした。
多分初歩的な事だと思うのですが、宜しくお願い致します。
'下記コードの部分は、テンプレートのコードそのままでもOKです。
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
'下記コードは、特になくても動作します。− By 花ちゃん−
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
-----------------------------------------------------------------------------------
記事No ： 11019
投稿日 ： 2013/01/21(Mon) 17:57
回答者 ： VBレスキュー(花ちゃん)
-----------------------------------------------------------------------------------
今回の原因は、下記かと。
http://blogs.wankuma.com/ogiogi/archive/2007/01/11/55560.aspx
（３）【Point】 プロジェクトデザイナ（プロジェクトのプロパティ）で、の赤枠の部分
その他参考サイト
スプラッシュウィンドウ テンプレートの使用方法 : VB2008フォーム関連
http://soft.bex.jp/vb2008/step5/tips5_12.html
 |
