Namespace My
''' <summary>
''' MyApplication
''' </summary>
''' <remarks>MyApplicationクラス</remarks>
''' <history>
''' []2011/11/01Created
''' </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