Процедура Main в Visual Basic

Статья
08/11/2011

Каждое приложение Visual Basic должно содержать процедуру с именем Main. Эта процедура служит начальной точкой программы и осуществляет общее управление работой приложения. Платформа .NET Framework вызывает процедуру Main при загрузке приложения и готовности передачи управления. При создании приложения Windows Forms для приложений, которые выполняются самостоятельно, необходимо написать процедуру Main.

Main содержит код, который будет выполняться в первую очередь. В процедуре Main пользователь может определить, какая форма загружается первой при запуске программы, установить, работают ли в системе копии данного приложения, ввести набор переменных для приложения или открыть необходимую для приложения базу данных.

Требования для процедуры Main

Файл, запускаемый самостоятельно (обычно с расширением .exe), должен содержать процедуру Main. Библиотека (например с расширением .dll) не может быть запущена самостоятельно и не требует процедуры Main. Ниже приведены требования для различных типов проектов, которые можно создать:

Консольные приложения выполняются самостоятельно. Необходимо указать по крайней мере одну процедуру Main. .
Приложения Windows Forms выполняются самостоятельно. В то же время компилятор Visual Basic в таких приложениях создает процедуру Main автоматически, и поэтому ее не требуется создавать.
Библиотеки классов не требуют процедуры Main. В это число входят библиотеки элементов управления Windows и библиотеки веб-элементов управления. Веб-приложения развертываются как библиотеки классов.

Объявление процедуры Main

Существуют четыре способа объявления процедуры Main. Она может принимать аргументы или не принимать их, а также может возвращать или не возвращать значение.

Примечание

Если Main объявляется в классе, то необходимо использовать ключевое слово Shared.В модуле нет необходимости объявлять Main с ключевым словом Shared.

Проще всего объявить процедуру 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. Чтобы вернуть код завершения, необходимо объявить Main как Function вместо Sub.
```
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. В этом массиве каждая строка содержит один из аргументов командной строки, используемых для вызова данной программы. В зависимости от задаваемых им значений могут быть предприняты различные действия.

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

Объявленная следующим образом процедура 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 argNum
        End If
        ' Insert call to appropriate starting place in your code.
        MsgBox("The application is terminating.")
    End Sub
End Module