move clientsuite to GUIs.ClientSuite folder

GUIs.ClientSuite/ApplicationEvents.vb

@@ -0,0 +1,42 @@
+Imports DigitalData.Modules.Config
+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.
+    ' UnhandledException: Wird bei einem Ausnahmefehler ausgelöst.
+    ' 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
+        Private _Logger As Logger
+
+        Private _BaseUserConfigPath As String = Windows.Forms.Application.UserAppDataPath
+        Private _BaseMachineConfigPath As String = Windows.Forms.Application.CommonAppDataPath
+
+        Public Sub App_Startup() Handles Me.Startup
+            Dim oLogConfig As New LogConfig(PathType.AppData)
+
+            ' System Config files like Service Url will be saved in %LocalAppdata% so they will remain on the machine
+            Dim oSystemConfigManager As New ConfigManager(Of ClassConfig)(oLogConfig,
+                                                                          Windows.Forms.Application.UserAppDataPath,
+                                                                          Windows.Forms.Application.CommonAppDataPath)
+
+            ' Layout files will be saved in %Appdata% (Roaming) so they will be syncronized with the user profile
+            Dim oUIConfigPath = IO.Path.Combine(Windows.Forms.Application.UserAppDataPath, ClassConstants.FOLDER_NAME_LAYOUT)
+            Dim oUIConfigManager As New ConfigManager(Of ClassUIConfig)(oLogConfig, oUIConfigPath, oUIConfigPath)
+
+            LogConfig = oLogConfig
+            SystemConfigManager = oSystemConfigManager
+            UIConfigManager = oUIConfigManager
+
+            _Logger = LogConfig.GetLogger()
+            _Logger.Debug("Starting Client Suite..")
+        End Sub
+
+        Public Sub App_Shutdown(sender As Object, e As EventArgs) Handles Me.Shutdown
+            _Logger.Debug("Shutting down Client Suite..")
+        End Sub
+    End Class
+End Namespace