move clientsuite to GUIs.ClientSuite folder

GUIs.ClientSuite/Base/BaseForm.vb

@@ -0,0 +1,60 @@
+Imports DevExpress.XtraBars.Ribbon
+Imports DigitalData.Modules.Logging
+
+Namespace Base
+    ''' <summary>
+    ''' This BaseClass is used to provide common functionality like the Logger or ErrorHandler to all Forms
+    ''' To use it, create a form and change the `Inherits` statement in FormName.Designer.vb to this form, eg.:
+    ''' 
+    ''' Partial Class frmExample
+    '''     Inherits BaseForm
+    '''     
+    '''     ... 
+    ''' End Class
+    ''' </summary>
+    Public Class BaseForm
+        Inherits Form
+
+        Private ReadOnly _Logger As Logger
+        Private ReadOnly _ErrorHandler As ClassErrorHandler
+
+        Protected ReadOnly Property Logger As Logger
+            Get
+                Return _Logger
+            End Get
+        End Property
+
+        Public Sub New()
+            ' Get the full name of the inheriting form
+            ' so the log messages have the right classname
+            Dim oClassName = [GetType]().FullName
+
+            ' My.LogConfig is undefined in the designer  
+            _Logger = My.LogConfig?.GetLogger(oClassName)
+            _ErrorHandler = New ClassErrorHandler(_Logger)
+
+            ' When you add something, be careful if it 
+            ' depends on a global var like My.LogConfig
+            ' you might need to check for its existence with ?
+        End Sub
+
+        Public Sub ShowErrorMessage(Exception As Exception)
+            _ErrorHandler.ShowErrorMessage(Exception)
+        End Sub
+
+        Private Sub InitializeComponent()
+            Me.SuspendLayout()
+            '
+            'BaseForm
+            '
+            Me.ClientSize = New System.Drawing.Size(284, 261)
+            Me.Name = "BaseForm"
+            Me.ResumeLayout(False)
+
+        End Sub
+
+        Private Sub BaseForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        End Sub
+    End Class
+End Namespace