move clientsuite to GUIs.ClientSuite folder
This commit is contained in:
50
GUIs.ClientSuite/ClassConfig.vb
Normal file
50
GUIs.ClientSuite/ClassConfig.vb
Normal file
@@ -0,0 +1,50 @@
|
||||
Imports System.Xml.Serialization
|
||||
Imports DigitalData.Modules.Config.ConfigAttributes
|
||||
|
||||
''' <summary>
|
||||
''' --- User Config for EDMI ---
|
||||
'''
|
||||
''' All settings are simple properties that should have a default value where possible
|
||||
'''
|
||||
''' More complex properties (for example, ServiceConnection) are built from simple ones,
|
||||
''' should be readonly and have an `XmlIgnore` Attribute to prevent them from being saved to the config file.
|
||||
'''
|
||||
''' They can make saving and loading complex properties more easy.
|
||||
'''
|
||||
''' The config is loaded with `ConfigManager` which is initialized in ApplicationEvents
|
||||
''' to ensure that the config is loaded before any of the forms (that might need a config)
|
||||
'''
|
||||
''' The config object can be accessed in two ways:
|
||||
'''
|
||||
''' - My.ConfigManager.Config
|
||||
''' - My.Config (which simply points to My.ConfigManager.Config)
|
||||
'''
|
||||
''' After changing a config value, My.ConfigManager.Save() must be called to persist the change in the config file
|
||||
''' </summary>
|
||||
Public Class ClassConfig
|
||||
' === Complex/Readonly Config Properties
|
||||
<XmlIgnore>
|
||||
Public ReadOnly Property ServiceConnection As String
|
||||
Get
|
||||
If ServiceIP = String.Empty Or ServicePort = -1 Then
|
||||
Return String.Empty
|
||||
Else
|
||||
Return $"net.tcp://{ServiceIP}:{ServicePort}/DigitalData/Services/Main"
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
' === Simple/Actual Config Properties ===
|
||||
' === Service Configuration ===
|
||||
<ConnectionString>
|
||||
Public Property ServiceIP As String = String.Empty
|
||||
<ConnectionString>
|
||||
Public Property ServicePort As Integer = -1
|
||||
Public Property HeartbeatInterval As Integer = 5000
|
||||
|
||||
' === Logging Configuration
|
||||
Public Property LogDebug As Boolean = False
|
||||
|
||||
' === User Configuration ===
|
||||
Public Property UserLanguage As String = "de-DE"
|
||||
End Class
|
||||
Reference in New Issue
Block a user