Imports Microsoft.VisualBasic.ApplicationServices
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Config
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 _BaseLocalUserConfigPath As String = Windows.Forms.Application.LocalUserAppDataPath
        Private _BaseMachineConfigPath As String = Windows.Forms.Application.CommonAppDataPath

        Public Sub App_Startup() Handles Me.Startup
            Dim oLogConfig As New LogConfig(PathType.AppData)
            oLogConfig.Debug = True

            ' 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,
                                                                          _BaseLocalUserConfigPath,
                                                                          _BaseMachineConfigPath)

            ' Layout files will be saved in %Appdata% (Roaming) so they will be syncronized with the user profile
            Dim oUIConfigPath = IO.Path.Combine(_BaseUserConfigPath, ClassConstants.FOLDER_NAME_LAYOUT)
            Dim oUIConfigManager As New ConfigManager(Of ClassUIConfig)(oLogConfig, oUIConfigPath, oUIConfigPath)

            LogConfig = oLogConfig
            LogConfig.Debug = True  'oSystemConfigManager.Config.LogDebug

            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