tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
テンプレートを使ってのスプラッシュウィンドウの表示方法(VB.NET) ( No.0 )  [親スレッドへ]
日時: 2013/01/25 16:10
名前: VBレスキュー(花ちゃん)

***********************************************************************************
* カテゴリー:[自アプリ関係][フォーム][]                                          *
* キーワード:スプラッシュ スクリーン,SplashScreen,ロゴ,バージョン,起動時表示    *
***********************************************************************************
タイトル : Visual Basic 2005でのスプラッシュウィンドウ
記 事 No : 11018
投 稿 日 : 2013/01/21(Mon) 11:35
元質問者 : 佐藤hs  
-----------------------------------------------------------------------------------
単純なスプラッシュウィンドウを作成したいのですが、以下の様に作成しました。
問題は
1)スプラッシュウィンドウが時間たっても閉じない
2)メインのフォーム(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
(3)【Point】 プロジェクトデザイナ(プロジェクトのプロパティ)で、の赤枠の部分

その他参考サイト
スプラッシュウィンドウ テンプレートの使用方法 : VB2008フォーム関連
http://soft.bex.jp/vb2008/step5/tips5_12.html



 [スレッド一覧へ] [親スレッドへ]