Base: Add IBaseForm Interface

GUIs.Common/Base/BaseErrorHandler.vb

@@ -14,6 +14,12 @@ Namespace Base
             _Form = Form
         End Sub
 
+        Public Sub New(pLogConfig As LogConfig, pForm As Form)
+            _LogConfig = pLogConfig
+            _Logger = pLogConfig.GetLogger(LogConfig.GetClassFullName())
+            _Form = pForm
+        End Sub
+
         Public Sub ShowErrorMessage(Exception As Exception, Origin As String)
             Dim oMessage = GetMessage(Exception, Origin)
             ShowErrorMessage(Exception, Origin, oMessage)

GUIs.Common/Common.vbproj

@@ -121,6 +121,7 @@
     </Compile>
     <Compile Include="DocumentResultList\Cache.vb" />
     <Compile Include="GridBuilder.vb" />
+    <Compile Include="IBaseForm.vb" />
     <Compile Include="IResultForm.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">

GUIs.Common/IBaseForm.vb

@@ -0,0 +1,8 @@
+Imports DigitalData.GUIs.Common.Base
+Imports DigitalData.Modules.Logging
+
+Public Interface IBaseForm
+    ReadOnly Property LogConfig As LogConfig
+    ReadOnly Property Logger As Logger
+    ReadOnly Property ErrorHandler As BaseErrorHandler
+End Interface