47 lines
1.3 KiB
VB.net
47 lines
1.3 KiB
VB.net
Imports System.ServiceModel
|
|
Imports System.Threading
|
|
Imports DigitalData.Modules.Config
|
|
Imports DigitalData.Modules.Logging
|
|
Imports DigitalData.Modules.EDMIAPI.IDBServiceReference
|
|
|
|
Namespace My
|
|
''' <summary>
|
|
''' Extends the My Namespace
|
|
''' Example: My.LogConfig
|
|
''' </summary>
|
|
<HideModuleName()>
|
|
Module Extension
|
|
Property SystemConfigManager As ConfigManager(Of ClassConfig)
|
|
ReadOnly Property SysConfig As ClassConfig
|
|
Get
|
|
Return SystemConfigManager.Config
|
|
End Get
|
|
End Property
|
|
|
|
Property UIConfigManager As ConfigManager(Of ClassUIConfig)
|
|
ReadOnly Property UIConfig As ClassUIConfig
|
|
Get
|
|
Return UIConfigManager.Config
|
|
End Get
|
|
End Property
|
|
|
|
Property LogConfig As LogConfig
|
|
Property ChannelFactory As ChannelFactory(Of IIDBServiceChannel)
|
|
Property Channel As IIDBServiceChannel
|
|
Property MainForm As frmMain
|
|
Property Common As ClassCommon
|
|
End Module
|
|
|
|
''' <summary>
|
|
''' Extends the My.Application Namespace to hold Application State
|
|
''' Example: My.Application.User
|
|
''' </summary>
|
|
Partial Class MyApplication
|
|
' User Config
|
|
Public User As New ClassUserState()
|
|
Public Service As New ClassServiceState()
|
|
End Class
|
|
End Namespace
|
|
|
|
|