Hlavní procedura v jazyce Visual Basic

Článek
06/08/2015

Každá aplikace Visual Basic musí obsahovat postup se nazývá Main.Tento postup slouží jako počáteční bod a celkové řízení pro aplikace.Na.NET Framework volá vaše Main postup při zavedení aplikace je a je připraven předat řízení.Pokud vytváříte aplikace model Windows Forms, musíte napsat Main postup pro aplikace spuštěné na své vlastní.

Mainobsahuje kód, který se nejprve spustí.V Main, můžete určit, který formulář, je nejdříve načten při spuštění programu, zjistit, je-li kopii aplikace spuštěná v systému, aplikace vytvořit sadu proměnných nebo otevřete databázi, který aplikace vyžaduje.

Požadavky na postup hlavní

Musí obsahovat soubor, který spouští na vlastní (obvykle s příponou EXE) Main postup.Knihovny (například s příponou DLL) nelze spustit v jeho vlastní a nevyžaduje Main postup.Požadavky pro různé typy projektů, že můžete vytvořit jsou následující:

Aplikace konzoly spustit vlastní a musíte zadat alespoň jednu Main postup..
Model Windows Forms aplikace se v jejich vlastní.Však kompilátoru Visual Basic automaticky generuje Main postupu v takových aplikací a není nutné psát jeden.
Nevyžadují knihoven tříd Main postup.Patří Windows řízení knihovny a knihovny ovládací prvek Web.Webové aplikace jsou zavedeny jako knihoven tříd.

Deklaraci procedury Main

Existují čtyři způsoby, jak deklarovat Main postup.Může trvat argumenty nebo Ne a může vrátit hodnotu, či nikoli.

[!POZNÁMKA]

Pokud deklarujete Main ve třídě, musíte použít Shared klíčové slovo.V modulu Main nemusí být Shared.

Nejjednodušším způsobem je deklarovat Sub postup, který argumenty nebo se vrátit hodnotu.

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

MainMůžete také vrátit Integer hodnotu, která používá operační systém jako kód ukončení programu.Hodnoty Windows ERRORLEVEL tento kód můžete otestovat jiné programy.Chcete-li vrátit kód, musíte deklarovat Main jako Function postupu namísto Sub postup.

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

MainMůžete také provést String jako argument matici.Každý řetězec v poli obsahuje jeden z argumentů příkazového řádku slouží k vyvolání programu.Můžete provést různé akce v závislosti na jejich hodnoty.

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

Můžete deklarovat Main přezkoumá argumenty příkazového řádku, ale není takto vrátí kód ukončení.

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