App.PrevInstance für VB.NET Mehr als nur eine Ersatzfunktion für die unter VB6 bekannte App.PrevInstance Eigenschaft!
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  23.428
https://www.tools4vb.com	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Unter VB6 konnte man beim Starten der eigenen Anwendung mit Hilfe der App.PrevInstance-Eigenschaft schnell und einfach prüfen, ob die Anwendung bereits gestartet ist, um so einen Mehrfachaufruf der Anwendung zu verhindern. Unter VB.NET gibt es diese Eigenschaft aber leider nicht mehr.

Nachfolgend eine Ersatzfunktion für VB.NET, mit der sich im Gegensatz zur VB6-Funktion die Erst-Instanz der Anwendung über den optional Parameter "bAppActivate" auch noch direkt aktivieren lässt!

' Anwendung bereits gestartet?
Public Function AppPrevInstance(Optional ByVal bShowMsg As Boolean = True, _
  Optional ByVal bAppActivate As Boolean = True) As Boolean
 
  ' Anzahl der gestarteten Prozesse der eigenen Anwendung
  If Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName).Length > 1 Then
    ' Hinweis anzeigen
    If bShowMsg Then MsgBox("Anwendung wird bereits ausgeführt!")
 
    ' Erst-Anwendung aktivieren
    If bAppActivate Then
      AppActivate(Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName)(1).Id)
    End If
 
    Return True
  End If
End Function

Beispiel für den Aufruf:

Private Sub Form1_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
 
  ' Falls Anwendung bereits gestartet, Hinweis anzeigen
  ' und Erst-Instanz aktivieren...
  If AppPrevInstance() Then
    ' ... und neue Instanz sofort wieder beenden
    Application.Exit()
  End If
End Sub