Eigene Anwendung beenden und neu starten Hier wird gezeigt, wie sich die eigene Anwendung sauber beenden und neu starten lässt.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  4.988
www.tools4vb.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit unserem heutigen Tipp möchten wir Ihnen zeigen, wie sich die eigene Anwendung sauber beenden und neu starten lässt. Fügen Sie hierzu nachfolgenden Code in ein Modul ein:

Option Explicit
 
' Benötigte API-Deklarationen
Private Declare Function ShellExecute Lib "shell32.dll" _
  Alias "ShellExecuteA" ( _
  ByVal hwnd As Long, _
  ByVal lpOperation As String, _
  ByVal lpFile As String, _
  ByVal lpParameters As String, _
  ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long

' Anwendung beenden und neu starten
Public Sub Restart()
  ' zunächst alle Fenster schließen
  Dim oForm As Form
  For Each oForm In VB.Forms
    Unload oForm
  Next
 
  ' jetzt Anwendung neu starten
  ShellExecute 0&, "open", App.Path & "\" & App.EXEName & ".exe", "", "", 1
End Sub

Wann immer die Anwendung beendet und neu gestartet werden soll, rufen Sie einfach die Restart-Prozedur auf.