Visual Basic yordamı ana

Makale
02/26/2013

Her bir Visual Basic uygulaması çağrılan yordam içermelidir Main.Bu yordamı başlangıç işaret ve uygulamanız için genel kontrol gibi işlev görür..net Framework çağırır, Main yordamı uygulamanız yükledi ve Denetim geçirmeye hazır olduğunda.Bir Windows Forms uygulamasý oluşturmuyorsanız, yazması gerekiyor Main yordamı çalıştırmak kendi uygulamaları için.

Mainİlk çalışan kodunu içerir.De Main, hangi formu program başladığında, ilk yüklenen belirlemek, uygulamanızın kopyasını zaten sistem üzerinde çalışıp çalışmadığını öğrenmek, uygulamanız için bir dizi değişkenlerini kurmak veya uygulama gerektiren bir veritabanını açın.

Main yordamı için gereksinimler

(Genellikle ile uzantısı .exe) kendi çalıştığı bir dosyanın içermesi gereken bir Main yordam.Kitaplık (örneğin ile uzantısı .dll) kendi çalışmaz ve gerek duymuyorsanız bir Main yordam.Farklı proje türleri için oluşturabileceğiniz gereksinimleri aşağıdaki gibidir:

Konsol uygulamaları çalıştırmak, kendi ve en az bir tedarik Main yordam..
Windows Forms uygulamaları kendi run On'u tıklayın.Ancak, Visual Basic derleyici otomatik olarak oluşturduğu bir Main gibi bir işlemde bir uygulama ve gerekmez bir yazma.
Sınıf kitaplıkları gerek duymuyorsanız bir Main yordam.Bunlar, Windows Denetim kitaplıklar ve Web denetimi kitaplıkları içerir.Web uygulamaları sınıf kitaplıkları dağıtılır.

Main yordamı bildirmek

Bildirmek için dört yol vardır Main yordam.Bağımsız değişkenler veya alabilir ve veya bir değer döndürebilirsiniz.

[!NOT]

Bildirirseniz Main bir sınıfta, kullanmanız gereken Shared anahtar sözcüğü.Bir modülde Main olması gerekmez Shared.

Bildirmek için en kolay yolu olan bir Sub yordam bağımsız değişkenleri alır veya bir değer döndürür.

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

MainAyrıca dönebilirsiniz bir Integer çıkış kodu olarak programınız için işletim sisteminin kullandığı değer.Diğer programlar, Windows errorlevel değerini inceleyerek bu kodu test edebilirsiniz.Çıkış kodu geri dönmek için bildirmelisiniz Main olarak bir Function yordam yerine bir Sub yordam.

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

MainAyrıca alabilir bir String bir bağımsız değişken bir dizi.Her dize dizisi, bir programı başlatmak için kullanılan komut satırı bağımsız değişkenleri içerir.Değerlerine bağlı olarak farklı eylemler gerçekleştirebilir.

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

Bildirmek Main komut satırı bağımsız değişkenleri incelemek, ancak bir çıkış kodu aşağıdaki gibi dönmek değil.

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