VB-Homepage Tipp 007
Absichern, daß ein Programm nur einmal gestartet werden kann
Form1/Load
If App.PrevInstance Then
   MsgBox "Programm läuft schon"
Else
End If

Einblenden einer Infobox "Programm läuft schon", ansonsten keine Reaktion, wenn Programm zum ersten mal gestartet wird.

'Ergänzung
Außer zu wissen, daß schon eine Instanz des gestarteten Programms läuft, ist es auch günstig, diese zu aktivieren, bevor sich die zweite Instanz selbst beendet.

If App.PrevInstance Then
   Label1(1).Caption = "Zweite Instanz"

   'da nach dem Titel der Anwendung geprüft wird,
   'Titel der zweiten Instanz umbenennen
   Form1.Caption = "VB-Homepage Tipp"

   'aktivieren der ersten Instanz
   AppActivate "VB-Homepage Tipp"      'Titelleistentext

   'Programm beenden
   Unload Me
   Set Form1 = Nothing
   End
Else
   Label1(1).Caption = "Erste Instanz"
End If
Tipp-Download
Quelle :
Zurück zur Übersichtsseite