Visual Basic 6.0: Starten und Beenden von Anwendungen

Programmierung

Öffnen Sie Visual Studio, und starten Sie ein neues Projekt. Fügen Sie nun drei Befehlsschaltflächen hinzu: cmdCheck, cmdClose und cmdStart. Ihr Bildschirm sieht dann ungefähr wie in Abbildung A dargestellt aus.


Abbildung A: Erstellen eines einfachen Projekts mit drei Befehlsschaltflächen.

Nun werden wir unser Projekt um etwas einfachen Code erweitern. Fügen Sie den folgenden Code zum Ereignis im Bereich General Declaration hinzu:


Private sAppName As String, sAppPath As String

Fügen Sie den in Listing A aufgeführten Code zum Ereignis cmdCheck_Click() hinzu. Fügen Sie dann den folgenden Code zum Ereignis cmdClose_Click() hinzu:


'close application
Call EndTask(sAppName)

Fügen Sie den folgenden Code zum Ereignis cmdStart_Click() hinzu:


'start an application
Shell sAppPath, vbMinimizedFocus

Fügen Sie anschließend den folgenden Code zum Ereignis Form_Load() hinzu:


sAppName = "Adobe Photoshop"
sAppPath = "D:program filesAdobePhotoshop 6.0Photoshp.exe"

In unserem Beispiel haben wir Adobe Photoshop benutzt. Verweisen Sie einfach auf die entsprechende Anwendung in Ihrer Implementierung. Fügen Sie ein Modul sowie den in Listing B dargestellten Code hinzu. Drücken Sie [Ctrl] [F5] um das Projekt auszuführen.

Klicken Sie auf die Schaltfläche Check Status. Es wird eine Meldung angezeigt, die darauf hinweist, dass die Anwendung nicht ausgeführt wird. Klicken Sie nun auf die Schaltfläche Start Application, und Sie sehen, wie die Anwendung gestartet wird. Klicken Sie erneut auf Check Status, und Sie erhalten die Bestätigung, dass die Anwendung ausgeführt wird. Klicken Sie auf die Schaltfläche Close Application, und das Anwendungsfenster wird geschlossen.

Page: 1 2

ZDNet.de Redaktion

Recent Posts

Alphabet übertrifft die Erwartungen im ersten Quartal

Der Umsatz steigt um 15 Prozent, der Nettogewinn um 57 Prozent. Im nachbörslichen Handel kassiert…

2 Tagen ago

Microsoft steigert Umsatz und Gewinn im dritten Fiskalquartal

Aus 61,9 Milliarden Dollar generiert das Unternehmen einen Nettoprofit von 21,9 Milliarden Dollar. Das größte…

2 Tagen ago

Digitalisierung! Aber wie?

Mehr Digitalisierung wird von den Unternehmen gefordert. Für KMU ist die Umsetzung jedoch nicht trivial,…

2 Tagen ago

Meta meldet Gewinnsprung im ersten Quartal

Der Nettoprofi wächst um 117 Prozent. Auch beim Umsatz erzielt die Facebook-Mutter ein deutliches Plus.…

3 Tagen ago

Maximieren Sie Kundenzufriedenheit mit strategischem, kundenorientiertem Marketing

Vom Standpunkt eines Verbrauchers aus betrachtet, stellt sich die Frage: Wie relevant und persönlich sind…

3 Tagen ago

Chatbot-Dienst checkt Nachrichteninhalte aus WhatsApp-Quellen

Scamio analysiert und bewertet die Gefahren und gibt Anwendern Ratschläge für den Umgang mit einer…

3 Tagen ago