jj

EDMI_ClientSuite/MyApplication.vb

@@ -0,0 +1,38 @@
+Imports System.ServiceModel
+Imports DigitalData.Modules.Logging
+Imports EDMI_ClientSuite.NetworkService_DDEDM
+
+Namespace My
+    ''' <summary>
+    ''' Helper Class to hold User State
+    ''' </summary>
+    Public Class User
+        Public Username As String
+        Public MachineName As String
+
+        Public Sub New()
+            Username = Environment.UserName
+            MachineName = Environment.MachineName
+        End Sub
+    End Class
+
+    ''' <summary>
+    ''' Extends the My Namespace
+    ''' </summary>
+    <HideModuleName()>
+    Module Extension
+        Property LogConfig As LogConfig
+        Property ChannelFactory As ChannelFactory(Of IEDMServiceChannel)
+        Property Channel As IEDMServiceChannel
+    End Module
+
+    ''' <summary>
+    ''' Extends the My.Application Namespace
+    ''' </summary>
+    Partial Class MyApplication
+        ' User Config
+        Public User As New User()
+    End Class
+End Namespace
+
+