Base: Add IBaseForm Interface

2022-03-09 14:10:09 +01:00
parent 574dcf9d32
commit a4c0a46dc4
3 changed files with 15 additions and 0 deletions
--- a/GUIs.Common/Base/BaseErrorHandler.vb
+++ b/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)