Gewusst wie: Aktivieren des Batchmodus für Windows Forms-Anwendungen

Aktualisiert: November 2007

In diesem Beispiel wird mit dem My.Application.Startup-Ereignis überprüft, ob eine Anwendung mit der Zeichenfolge /batch als Argument gestartet wurde.

So aktivieren Sie den Batchmodus für eine Windows Forms-Anwendung

1. Wählen Sie im Projektmappen-Explorer ein Projekt aus. Klicken Sie im Menü Projekt auf Eigenschaften.

2. Klicken Sie auf der Registerkarte Anwendung auf Anwendungsereignisse anzeigen, um den Code-Editor zu öffnen.

3. Erstellen Sie die Methode, die das My.Application.Startup-Ereignis behandelt. Weitere Informationen finden Sie unter Gewusst wie: Behandeln von Anwendungsereignissen (Visual Basic).

   Private Sub MyApplication_Startup( _
       ByVal sender As Object, _
       ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs _
   ) Handles Me.Startup
   

   End Sub
   

4. Durchlaufen Sie die Befehlszeilenargumente der Anwendung, und legen Sie die Cancel-Eigenschaft des e-Objekts auf True fest, wenn eines der Argumente /batch ist.

   Wenn die Cancel-Eigenschaft auf True festgelegt ist, wird das Startformular nicht gestartet.

   For Each s As String In My.Application.CommandLineArgs
       If s.ToLower = "/batch" Then
           ' Stop the start form from loading.
           e.Cancel = True
       End If
   Next
   

5. Wenn die Cancel-Eigenschaft des e-Objekts auf True festgelegt ist, rufen Sie die Hauptroutine für die fensterlose Operation auf.

   If e.Cancel Then
       ' Call the main routine for windowless operation.
       Dim c As New BatchApplication
       c.Main()
   End If
   

Beispiel

Private Sub MyApplication_Startup( _
    ByVal sender As Object, _
    ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs _
) Handles Me.Startup
    For Each s As String In My.Application.CommandLineArgs
        If s.ToLower = "/batch" Then
            ' Stop the start form from loading.
            e.Cancel = True
        End If
    Next
    If e.Cancel Then
        ' Call the main routine for windowless operation.
        Dim c As New BatchApplication
        c.Main()
    End If
End Sub
Class BatchApplication
    Sub Main()
        ' Insert code to run without a graphical user interface.
    End Sub
End Class

Siehe auch

Aufgaben

Gewusst wie: Zugriff auf Befehlszeilenargumente (Visual Basic)

Konzepte

Übersicht über das Visual Basic-Anwendungsmodell

Referenz

My.Application-Objekt

My.Application.CommandLineArgs-Eigenschaft