Imports DigitalData.Modules.Database Imports DigitalData.Modules.EDMI.API Imports DigitalData.Modules.EDMI.API.Modules Imports DigitalData.Modules.Logging Imports DigitalData.Modules.ZooFlow Namespace My ''' ''' Extends the My Namespace ''' Example: My.LogConfig ''' Module Extension Property LogConfig As LogConfig #Region "Database" Property Database As DatabaseWithFallback Property DatabaseECM As MSSQLServer Property DatabaseIDB As MSSQLServer End Module #End Region Partial Friend Class MyApplication Public Property Skin As String = "" Public Property Palette As String = "" Public Property GlobixDropAreaStyle As String = "PROGRESSIVE" Public Property Settings As New State.SettingsState Public Property User As New State.UserState Public Property Service As New State.ServiceState Public Property Modules As New Dictionary(Of String, State.ModuleState) Public Property ModulesActive As New List(Of String) Public CommandLineFunction As String Public CommandLineArguments As New Dictionary(Of String, String) Public Function GetEnvironment() As Environment Return New Environment With { .Database = My.DatabaseECM, .DatabaseIDB = My.DatabaseIDB, .Modules = My.Application.Modules, .Service = My.Application.Service, .Settings = My.Application.Settings, .User = My.Application.User } End Function End Class End Namespace