39 lines
938 B
VB.net
39 lines
938 B
VB.net
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
|
|
|
|
|