VB-Homepage Tipp 002

Individueller Programmstart durch Parameteroption
(ZBsp. ScreenSaver)

Was Windowsprogramme nicht können, am Ende irgendwelche Errorlevel zurückliefern, zumindestens nicht, wie man das von Batchdateien oder DOS-Toolprogrammen gewohnt ist. Was man aber nutzen kann, ist das individuelle Starten eines Programmes über Parameterangabe beim Start.

Nehmen wir als Beispiel an, Sie haben ein Programm mit zwei unterschiedlichen Teilprogrammen auf zwei Formen definiert, dann möchten Sie dem User die Möglichkeit einräumen, über Parameter zum Programmstart, die gewünschte Form zu laden.

Sie benötigen also für den Test, in Ihrem Projekt 2 Formen und ein Modul.
Erstellen Sie im Modul, die Prozedur (Sub) "Main" und geben Sie unter (VB5+6) "Projekt" - Eintrag "Eigenschaften von ..." als Startobjekt "Sub Main" an.

Sub Main()
If InStr(1, Command$, "/c", 1) Then        'wenn mit Option /c gestartet wurde
    Form2.Show                                    'Laden der Form
ElseIf InStr(1, Command$, "/s", 1) Then  'wenn mit Option /s gestartet wurde
    Form1.Show                                    'Laden der Form
Else
    Msgbox "Keine Option angegeben"       'wenn keine Option angegeben wurde
End If

End Sub

Die Parameter können auch ganze Wörter sein, oder mehrere, durch Leerzeichen oder anderes getrennt. Command$ enthält immer den gesammten Parameterinhalt und man muß sich lediglich etwas einfallen lassen, die Werte aufzuschlüsseln.

Und hier noch ein Link zu einem Screensaverbeispiel mit Quellcode


Tipp-Download

Quelle :

Zurück zur Übersichtsseite