jj: app state

EDMI_ClientSuite/ApplicationEvents.vb

@@ -1,4 +1,7 @@
-Namespace My
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Logging.LogConfig
+
+Namespace My
     ' Für MyApplication sind folgende Ereignisse verfügbar:
     ' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst.
     ' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst.  Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung mit einem Fehler beendet wird.
@@ -6,8 +9,18 @@
     ' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn die Anwendung bereits aktiv ist. 
     ' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.
     Partial Friend Class MyApplication
-        Public Sub App_Shutdown(sender As Object, e As EventArgs) Handles Me.Shutdown
+        Private _Logger As Logger
 
+        Public Sub App_Startup() Handles Me.Startup
+            Dim oLogConfig As New LogConfig(PathType.AppData)
+            LogConfig = oLogConfig
+
+            _Logger = LogConfig.GetLogger()
+            _Logger.Info("Starting Client Suite..")
+        End Sub
+
+        Public Sub App_Shutdown(sender As Object, e As EventArgs) Handles Me.Shutdown
+            _Logger.Info("Shutting down Client Suite..")
         End Sub
     End Class
 End Namespace