First Pass of new control loader add BaseClass that provides Logger

EDMI_ClientSuite/Base/BaseForm.vb

@@ -0,0 +1,43 @@
+Imports DevExpress.XtraBars.Ribbon
+Imports DigitalData.Modules.Logging
+
+''' <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
+End Class