Main-Prozedur in Visual Basic

  • Artikel

Jede Visual Basic-Anwendung muss eine Prozedur mit dem Namen Main enthalten. Diese Prozedur fungiert als Ausgangspunkt und Gesamtsteuerung für die Anwendung. .NET Framework ruft Ihre Main-Prozedur auf, nachdem Ihre Anwendung geladen wurde und dafür bereit ist, die Steuerung an sie zu übergeben. Sofern Sie keine Windows Forms-Anwendung erstellen, müssen Sie die Main-Prozedur für Anwendungen schreiben, die eigenständig ausgeführt werden.

Main enthält den Code, der zuerst ausgeführt wird. In Main können Sie bestimmen, welches Formular zuerst geladen werden soll, wenn das Programm gestartet wird, ermitteln, ob eine Kopie Ihrer Anwendung bereits auf dem System ausgeführt wird, eine Reihe von Variablen für Ihre Anwendung einrichten oder eine Datenbank öffnen, die die Anwendung benötigt.

Anforderungen für die Main-Prozedur

Eine Datei, die eigenständig ausgeführt wird (in der Regel mit der Erweiterung .exe), muss eine Main-Prozedur enthalten. Eine Bibliothek (z. B. mit der Erweiterung .dll) wird nicht eigenständig ausgeführt und erfordert keine Main-Prozedur. Die Anforderungen für die verschiedenen Arten von Projekten, die Sie erstellen können, sind wie folgt:

  • Konsolenanwendungen werden eigenständig ausgeführt, und Sie müssen mindestens eine Main-Prozedur angeben.

  • Windows Forms-Anwendungen werden eigenständig ausgeführt. Der Visual Basic-Compiler generiert jedoch automatisch eine Main-Prozedur in einer solchen Anwendung, und Sie müssen diese Prozedur nicht erstellen.

  • Klassenbibliotheken erfordern keine Main-Prozedur. Dazu gehören Windows-Steuerungsbibliotheken und Websteuerungsbibliotheken. Webanwendungen werden als Klassenbibliotheken bereitgestellt.

Deklarieren der Main-Prozedur

Es gibt vier Möglichkeiten, die Main-Prozedur zu deklarieren. Sie kann Argumente annehmen oder auch nicht, und sie kann einen Wert zurückgeben oder auch nicht.

Hinweis

Wenn Sie Main in einer Klasse deklarieren, müssen Sie das Schlüsselwort Shared verwenden. In einem Modul muss Main nicht Shared sein.

  • Die einfachste Möglichkeit besteht darin, eine Sub-Prozedur zu deklarieren, die keine Argumente annimmt und keinen Wert zurückgibt.

    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 kann auch einen Integer-Wert zurückgeben, den das Betriebssystem als Exitcode für Ihr Programm verwendet. Andere Programme können diesen Code testen, indem sie den Windows-ERRORLEVEL-Wert untersuchen. Um einen Exitcode zurückzugeben, müssen Sie Main als Function-Prozedur anstelle einer Sub-Prozedur deklarieren.

    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 kann auch ein String-Array als Argument annehmen. Jede Zeichenfolge im Array enthält eines der Befehlszeilenargumente, die zum Aufrufen des Programms verwendet werden. Abhängig von deren Werten können Sie verschiedene Aktionen ausführen.

    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

  • Sie können Main deklarieren, um die Befehlszeilenargumente zu untersuchen, aber keinen Exitcode wie folgt zurückzugeben.

    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

Weitere Informationen