WIP: cleanup, work on doc result form
This commit is contained in:
48
GUIs.ZooFlow/Config/ClassConfig.vb
Normal file
48
GUIs.ZooFlow/Config/ClassConfig.vb
Normal file
@@ -0,0 +1,48 @@
|
||||
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
|
||||
Public Function GetConnectionStringBuilder(ConnectionString As String) As SqlClient.SqlConnectionStringBuilder
|
||||
Try
|
||||
If ConnectionString = String.Empty Then
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
Dim oBuilder As New SqlClient.SqlConnectionStringBuilder(ConnectionString)
|
||||
Return oBuilder
|
||||
Catch ex As Exception
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' === Service Configuration ===
|
||||
<ConnectionString>
|
||||
Public Property ConnectionString As String = String.Empty
|
||||
|
||||
' === Logging Configuration
|
||||
Public Property LogDebug As Boolean = False
|
||||
|
||||
' === User Configuration ===
|
||||
Public Property UserLanguage As String = "de-DE"
|
||||
End Class
|
||||
8
GUIs.ZooFlow/Config/ClassUIConfig.vb
Normal file
8
GUIs.ZooFlow/Config/ClassUIConfig.vb
Normal file
@@ -0,0 +1,8 @@
|
||||
Public Class ClassUIConfig
|
||||
Public Property SkinName As String = "Office 2016 Colorful"
|
||||
Public Property FlowForm As New FlowFormConfig
|
||||
|
||||
Public Class FlowFormConfig
|
||||
Public Property Location As New Point(0, 0)
|
||||
End Class
|
||||
End Class
|
||||
Reference in New Issue
Block a user