initialize zooflow

ZooFlow/Config/ClassConfig.vb

@@ -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

ZooFlow/Config/ClassUIConfig.vb

@@ -0,0 +1,12 @@
+Public Class ClassUIConfig
+    Public Property SkinName As String = "Office 2016 Colorful"
+
+    Public Property EditFormConfigs As New List(Of EditFormConfig)
+
+    Public Class EditFormConfig
+        Public Property SysKey As String
+
+        Public Property SplitterDistance As Integer = 700
+        Public Property SplitterHorizontal As Boolean = True
+    End Class
+End Class