Public Class frm_Main
'グローバル変数の定義 Public w_command As String 'コマンドライン 'スタートアップフォームをfrm_Mainとしたので、Form1_Loadに記述
Private Sub Form1_Load(ByVal sender As Object ... ) Handles Me.Load 'コマンドラインをセット w_command = Command() 'コマンドラインを判断 If w_command.Length = 0 Then 'コマンドが存在しない時のコーディング Else 'コマンドが存在した時のコーディング End If '・・・その他のコーディング・・・ End Sub End Class |