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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。