zooflow: msgbox

GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb

@@ -40,6 +40,7 @@ Public Class frmGlobix_Index
     Private Property WindowLocation As ClassWindowLayout
     Private Property Database As DatabaseWithFallback
     Private Property Patterns2 As Patterns2
+    Private ReadOnly FormHelper As FormHelper
 
     Private Property OverlayHandle As IOverlaySplashScreenHandle
     Public Property oSuccess As Boolean = False
@@ -62,6 +63,7 @@ Public Class frmGlobix_Index
         Database = New DatabaseWithFallback(pLogConfig, My.Application.Service.Client, My.DatabaseECM, My.DatabaseIDB)
         WindowLocation = New ClassWindowLayout(pLogConfig)
         Patterns2 = New Patterns2(pLogConfig)
+        FormHelper = New FormHelper(pLogConfig, Me)
 
         Localizer.Active = New LookupGridLocalizer()
     End Sub
@@ -183,6 +185,8 @@ Public Class frmGlobix_Index
 
         Catch ex As Exception
             Logger.Warn("Unexpected error DTTBGI_REGEX_DOCTYPE - ErrorMessage: " & vbNewLine & ex.Message)
+
+            FormHelper.ShowErrorMessage(ex, "Laden des Formulars")
         Finally
             SplashScreenManager.CloseOverlayForm(OverlayHandle)
             FormLoaded = True
@@ -271,8 +275,7 @@ Public Class frmGlobix_Index
         Try
             DocumentViewer1.LoadFile(My.Application.Globix.CurrentWorkfile.FilePath)
         Catch ex As Exception
-            Logger.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in PreviewFile:")
+            FormHelper.ShowErrorMessage(ex, "Laden der Vorschau")
         End Try
     End Sub
 
@@ -326,8 +329,7 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
 
             DocTypes = oDocTypes
         Catch ex As Exception
-            Logger.Warn("Unexpected error in Refresh_Dokart: " & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Laden der Dokumentarten:")
+            FormHelper.ShowErrorMessage(ex, "Laden des Profils")
         End Try
     End Sub