Visual Basic の Main プロシージャ

すべての Visual Basic アプリケーションには、Main と呼ばれるプロシージャが含まれている必要があります。 このプロシージャは、アプリケーションの開始点となり、アプリケーションの全体的な制御を行います。 .NET Framework では、アプリケーションが読み込まれ、制御を渡す準備ができると、Main プロシージャを呼び出します。 Windows フォーム アプリケーションを作成する場合を除き、単独で実行されるアプリケーションでは、Main プロシージャを記述する必要があります。

Main には、最初に実行されるコードが含まれます。 Main では、プログラムの起動時に最初に読み込まれるフォームを決定したり、アプリケーションのコピーがシステムで既に実行されているかどうかを確認したりできます。また、アプリケーションの一連の変数を確立したり、アプリケーションに必要なデータベースを開いたりすることもできます。

Main プロシージャの要件

単独で実行されるファイル (通常は拡張子が .exe) には、Main プロシージャが含まれている必要があります。 ライブラリ (拡張子.dll など) は単独では実行されないので、Main プロシージャは不要です。 作成できるさまざまな種類のプロジェクトの要件は次のとおりです。

• コンソール アプリケーションは単独で実行されるので、少なくとも 1 つの Main プロシージャを指定する必要があります。

• Windows フォーム アプリケーションは単独で実行されます。 ただし、このようなアプリケーションの Main プロシージャは、Visual Basic コンパイラによって自動的に生成されるので、記述する必要はありません。

• クラス ライブラリには、Main プロシージャは不要です。 これには、Windows コントロール ライブラリや Web コントロール ライブラリが含まれます。 Web アプリケーションは、クラス ライブラリとして展開されます。

Main プロシージャの宣言

Main プロシージャを宣言するには、4 つの方法があります。 引数を受け取ることも、受け取らないこともできます。また、値を返すことも返さないこともできます。

• 最も簡単な方法は、引数を受け取らず、値を返さない Sub プロシージャを宣言することです。

  Module mainModule
      Sub Main()
          MsgBox("The Main procedure is starting the application.")
          ' Insert call to appropriate starting place in your code.
          MsgBox("The application is terminating.")
      End Sub
  End Module
  

• Main では、オペレーティング システムがプログラムの終了コードとして使用する Integer 値を返すこともできます。 他のプログラムは Windows の ERRORLEVEL 値を調べることで、このコードをテストできます。 終了コードを返すには、Sub プロシージャではなく、Function プロシージャとして Main を宣言する必要があります。

  Module mainModule
      Function Main() As Integer
          MsgBox("The Main procedure is starting the application.")
          Dim returnValue As Integer = 0
          ' Insert call to appropriate starting place in your code.
          ' On return, assign appropriate value to returnValue.
          ' 0 usually means successful completion.
          MsgBox("The application is terminating with error level " &
               CStr(returnValue) & ".")
          Return returnValue
      End Function
  End Module
  

• Main では、引数として String 配列を受け取ることもできます。 配列内の各文字列には、プログラムの呼び出しに使用されるコマンド ライン引数の 1 つが含まれます。 値に応じてさまざまなアクションを実行できます。

  Module mainModule
      Function Main(ByVal cmdArgs() As String) As Integer
          MsgBox("The Main procedure is starting the application.")
          Dim returnValue As Integer = 0
          ' See if there are any arguments.
          If cmdArgs.Length > 0 Then
              For argNum As Integer = 0 To UBound(cmdArgs, 1)
                  ' Insert code to examine cmdArgs(argNum) and take
                  ' appropriate action based on its value.
              Next
          End If
          ' Insert call to appropriate starting place in your code.
          ' On return, assign appropriate value to returnValue.
          ' 0 usually means successful completion.
          MsgBox("The application is terminating with error level " &
               CStr(returnValue) & ".")
          Return returnValue
      End Function
  End Module
  

• 次のように、コマンド ライン引数を調べ、終了コードは返さないように、Main を宣言できます。

  Module mainModule
      Sub Main(ByVal cmdArgs() As String)
          MsgBox("The Main procedure is starting the application.")
          Dim returnValue As Integer = 0
          ' See if there are any arguments.
          If cmdArgs.Length > 0 Then
              For argNum As Integer = 0 To UBound(cmdArgs, 1)
                  ' Insert code to examine cmdArgs(argNum) and take
                  ' appropriate action based on its value.
              Next
          End If
          ' Insert call to appropriate starting place in your code.
          MsgBox("The application is terminating.")
      End Sub
  End Module
  

関連項目

• MsgBox
• Length
• UBound
• Visual Basic プログラムの構造
• -main
• Shared
• Sub ステートメント
• Function ステートメント
• Integer データ型
• String データ型