Procedura główna w Visual Basic

Artykuł
06/08/2015

Każda aplikacja Visual Basic musi zawierać procedurę o nazwie Main.Ta procedura służy jako początkowy punkt i ogólnej kontroli dla danej aplikacji..NET Framework wywołuje Twój Main procedury po załadowaniu aplikacji i jest gotów przekazać sterowanie do niego.O ile nie tworzysz aplikację Windows Forms, należy napisać Main procedury dla aplikacji uruchamianych na swoje własne.

Mainzawiera kod, który działa jako pierwszy.W Main, można określić formę, która ma być ładowany pierwszy po uruchomieniu programu, dowiedzieć się, jeśli kopię aplikacji jest już uruchomiony w systemie, ustanowić zbiór zmiennych aplikacji lub Otwórz bazę danych, która wymaga stosowania.

Wymagania dotyczące procedury głównego

Plik, który działa na swój własny (zwykle z rozszerzeniem exe) musi zawierać Main procedury.Biblioteki (na przykład z rozszerzeniem dll) nie działa na swój własny i nie wymagają Main procedury.Wymagania dla różnych typów projektów, można utworzyć są w następujący sposób:

Konsola aplikacje są uruchamiane ich własnych i musi dostarczyć co najmniej jeden Main procedury..
Windows Forms aplikacje są uruchamiane swoje własne.Jednak kompilator Visual Basic automatycznie generuje Main procedury w takich aplikacji, a nie trzeba napisać.
Biblioteki klas nie wymagają Main procedury.Obejmują one biblioteki sterowania systemu Windows i sieci Web formant biblioteki.Aplikacje sieci Web są wdrażane jako biblioteki klas.

Deklarowanie procedury głównego

Istnieją cztery sposoby zadeklarować Main procedury.Można podjąć argumentów, lub nie, i może zwracać wartość lub nie.

[!UWAGA]

Przy deklarowaniu Main w klasie, należy użyć Shared słowa kluczowego.W module Main musi być Shared.

Najprostszym sposobem jest zadeklarować Sub procedury, która nie mieć argumentów lub zwrócona wartość.

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

Mainmoże również zwracać Integer wartość, której system operacyjny używa jako kod zakończenia programu.Inne programy można przetestować kod, sprawdzając wartość ERRORLEVEL systemu Windows.Zwraca kod wyjścia, należy zadeklarować Main jako Function procedury, zamiast Sub procedury.

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

Mainmożna również wykonać String tablicy jako argumentu.Każdy ciąg w tablicy zawiera jeden z argumentów wiersza polecenia używane do wywoływania programu.Można wykonać różne czynności w zależności od ich wartości.

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 argNum
        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

Można zadeklarować Main do zbadania argumentów wiersza polecenia, ale nie zwraca kod wyjścia, w następujący sposób.

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 argNum
        End If
        ' Insert call to appropriate starting place in your code.
        MsgBox("The application is terminating.")
    End Sub
End Module