31 lines
1.5 KiB
VB.net
31 lines
1.5 KiB
VB.net
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
|
|
|
|
Public Sub App_Startup() Handles Me.Startup
|
|
Dim oLogConfig As New LogConfig(PathType.AppData)
|
|
Dim oConfigManager As New ConfigManager(Of ClassConfig)(oLogConfig, Windows.Forms.Application.UserAppDataPath, Windows.Forms.Application.CommonAppDataPath)
|
|
|
|
LogConfig = oLogConfig
|
|
ConfigManager = oConfigManager
|
|
|
|
_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
|