Procedimento principal no Visual Basic

Artigo
08/08/2011

Every Visual Basic application must contain a procedure called Main. This procedure serves as the starting point and overall control for your application. A.Chamadas do NET Framework seu Main procedimento quando ele carregou em seu aplicativo e está pronto para passar o controle do proprietário. Unless you are creating a Windows Forms application, you must write the Main procedure for applications that run on their own.

Maincontém o código que executa o primeiro. Em Main, você pode determinar qual formulário deve ser primeiro carregado quando o programa for iniciado, descobrir se uma cópia do seu aplicativo já está em execução no sistema, estabelecer um conjunto de variáveis para o aplicativoou a em aberto a banco de dados que o aplicativo requer.

Requisitos para o procedimento Main

Um arquivo que é executado em seu próprio (normalmente com extensão . exe) deve conter um Main procedimento. Uma biblioteca (por exemplo, com extensão . dll) não é executado no seu próprio e não requer um Main procedimento. Os requisitos para os diferentes tipos de projetos, você pode criar estão como segue:

Console aplicativos executados em seus próprios e você deve fornecer pelo menos um Main procedimento. .
Windows Forms aplicativos executam em seus próprios. No entanto, o compilador Visual Basic gera automaticamente um Main procedimento como um aplicativoe você não precisará escrever um.
Bibliotecas de classe não exigem um Main procedimento. Elas incluem bibliotecas de controle do Windows e bibliotecas de controle da Web . AplicativosWeb são implantados como bibliotecas de classe .

Declarar o procedimento Main

Existem quatro maneiras para declarar o Main procedimento. Pode levar argumentos ou não, e ele pode retornar um valor ou não.

Observação
Se você declarar Main em uma classe, você deve usar o Shared palavra-chave. Em um módulode Main não precisa ser Shared.

A maneira mais simples é declarar um Sub procedimento que não usam argumentos ou retornar um valor.

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

Maintambém pode retornar um Integer valor, que o sistema operacional usa como o código de sair do programa. Outros programas podem teste esse código examinando o valor ERRORLEVEL do Windows. Para retornar um código de sair , você deve declarar Main como um Function procedimento em vez de um Sub procedimento.

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

Maintambém pode tirar uma String matriz como um argumento. Cada seqüência de caracteres na matriz contém um dos argumentos delinha comando - usados para invocar o seu programa. Você pode tomar ações diferentes dependendo de seus valores.

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

Você pode declarar Main para examinar os argumentos delinha de comando - mas não retornam um código de sair , como segue:

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