Procedimento principal no Visual Basic

Artigo
08/25/2010

Toda aplicação Visual Basic deve conter um procedimento chamado Main.Esse procedimento serve como o ponto inicial e para o controle geral de sua aplicação.O .NET estrutura chama seu Main procedimento quando ele foi carregado de seu aplicativo e está pronto para passar o controle a ele. A não ser que você esteja criando um aplicativo Windows Forms, você deve escrever o procedimento Main para aplicativos que executem nelas mesmas.

Main contém o código é executado primeiro. In Main, determinar qual formulário está a ser carregada pela primeira vez quando o programa for iniciado, descubra se uma cópia do seu aplicativo já está sendo executada no sistema, estabelecer um conjunto de variáveis para seu aplicativo ou em em aberto um banco de dados que o aplicativo requer.

Requisitos para o procedimento principal

Um arquivo que é executado em seu próprio (geralmente 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. Estes são sistema autônomo requisitos para sistema autônomo diferentes tipos de projetos que você pode criar:

Aplicativos de console executado em seus próprios e você deve fornecer pelo menos um Main procedimento. .
Windows Forms aplicativos executados em seus próprios.No entanto, o compilador do Visual Basic gera automaticamente um Main procedimento de como um aplicativo e não precisa escrever um.
classe bibliotecas não requerem um Main procedimento. Isso inclui bibliotecas de controle do Windows e bibliotecas de controle da Web.Aplicativos da Web são implantados sistema autônomo bibliotecas de classes.

Declarar o procedimento principal

Existem quatro maneiras de declarar o Main procedimento. Pode levar argumentos ou não e ele poderá 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ódulo, Main não precisa ser Shared.

A maneira mais simples é declarar um Sub procedimento que não obtém argumentos ou retorna 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

Main também pode retornar um Integer valor, que o sistema operacional utiliza sistema autônomo o código de sair para o seu programa. Outros programas podem testar esse código, examinando o valor ERRORLEVEL do Windows.Para retornar um código de sair, você deve declarar Main sistema autônomo 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

Main também pode aproveitar um String matriz sistema autônomo um argumento. Cada seqüência de caracteres na matriz contém um dos argumentos de linha de comando usados para chamar o programa.Você pode tomar diferentes providências de acordo com 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 sistema autônomo argumentos de linha de comando mas não retornam um código de sair, da seguinte maneira.

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