Befehlszeilenparameter ermitteln Durch Erweiterung der "Sub Main" lassen sich die beim Start der Anwendung angegebenen Befehlszeilenparameter sehr einfach abrufen.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  12.662
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 5 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Um zu ermitteln, mit welchen Parametern (Befehlszeilenargumente) die eigene Anwendung aufgerufen wurde, gehen Sie am einfachsten wie folgt vor:

1. Fügen Sie dem Projekt innerhalb eines Modduls eine "Sub Main" hinzu bzw. erweitern Sie diese wie folgt:

Module modMain
 
  Public Sub Main(ByVal sArgs() As String)
    ' ...
  End Sub
 
End Module

2. Ändern Sie im Eigenschaften-Dialog des Projekts das Startobjekt auf "Sub Main". Unter VB 2005 müssen Sie hier ggf. zuvor die Einstellung "Anwendungsframework aktivieren" deaktivieren.

Über das String-Array sArgs erhalten Sie dann sofort alle Parameter, die beim Start Ihrer Anwendung angegeben wurden:

  Public Sub Main(ByVal sArgs() As String
 
    ' Wurde die Anwendung mit Parametern gestartet?
    If sArgs.Length > 0 Then
      ' alle Parameter ermitteln
      For i As Integer = 0 To sArgs.Length - 1
        Debug.Print sArgs(i)
      Next i
    End If
 
  End Sub

Anmerkung:
Um das Ganze zu testen, können Sie die Parameter für die Ausführung der Anwendung im Debug-Modus direkt in den Projekt-Eigenschaften hinterlegen (Projekt-Eigenschaften - Debuggen - Startoptionen - Befehlszeilenargumente).

Hinweis:
Durch Deaktivierung der Einstellung "Anwendungsframework aktivieren" wird autom. auch der evtl. eingestellte "Visuelle XP-Style" deaktiviert. Damit Ihre Anwendung aber dennoch den "Visuellen XP-Style" benutzt, setzen Sie folgende Anweisung in die Prozedur "Main":

  Public Sub Main(ByVal sArgs() As String)
    ' Visuellen XP-Style aktivieren
    Application.EnableVisualStyles()
 
    ...
  End Sub