zooflow: msgbox

GUIs.Test.TestGUI/frmMsgBox.vb

@@ -3,23 +3,28 @@ Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
 
 Public Class frmMsgBox
-    Private LogConfig As LogConfig
-    Private SQLServer As MSSQLServer
+    Private ReadOnly LogConfig As LogConfig
+    Private ReadOnly SQLServer As MSSQLServer
+    Public ReadOnly FormHelper As FormHelper
 
     Public Sub New(LogConfig As LogConfig, SQLServer As MSSQLServer)
         InitializeComponent()
 
         Me.LogConfig = LogConfig
         Me.SQLServer = SQLServer
+        Me.FormHelper = New FormHelper(LogConfig, Me)
     End Sub
 
     Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
-        Dim oMsgbox = New frmDialog("Diese Datei ist hier unerwünscht!", "Zooflow", frmDialog.DialogType.Error)
-        oMsgbox.ShowDialog()
+        FormHelper.ShowErrorMessage(New ApplicationException("Diese Datei ist hier unerwünscht!"), "Mein Titel")
     End Sub
 
     Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click
         Dim oMsgbox = New frmDialog("Der Fluxkompensator ist leer. Bitte auffüllen!", "File Flow", frmDialog.DialogType.Warning)
         oMsgbox.ShowDialog()
     End Sub
+
+    Private Sub frmMsgBox_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
 End Class