vb.net2008 启动画面专用类

来源：互联网发布：免费医药进销存软件编辑：程序博客网时间：2024/06/05 07:20

Namespace My
    ''' <summary>
    ''' MyApplication
    ''' </summary>
    ''' <remarks>MyApplicationクラス</remarks>
    ''' <history>
    ''' [] 2011/11/01 Created
    ''' </history>
    Partial Friend Class MyApplication

Protected Overrides Sub OnCreateMainForm()

            Try
                'Configファイルからシステムの情報を保存する
                Configuration.PSb_SaveSystemInfo()

                '起動画面を選択する
                If Utility.PFn_NullToString(Configuration.PSb_GetTestWindowFlg()).Equals("1") Then
                    Me.MainForm = Global.GRP.TestForm
                Else
                    Me.MainForm = Global.GRP.メインメニュー_Flash
                End If

            Catch ex As Exception
                'LOGファイルを出力する
                Global.GRP.Utility.PSb_WriteLOGFile(3, ex.Message)

                Me.MainForm = Global.GRP.メインメニュー_Gif
            End Try
        End Sub
    End Class
End Namespace