MS

GUIs.Common/frmDialog.vb

@@ -0,0 +1,39 @@
+Imports System.Drawing
+Imports System.Windows.Forms
+
+Public Class frmDialog
+    Public Sub New(pMessageText As String, pTitle As String, IsError As Boolean)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+        Me.lblMeldung.Text = pMessageText
+        Me.Text = pTitle
+        If IsError Then
+            Panel1.BackColor = Color.Red
+            Cancel_Button.Visible = False
+        Else
+            Panel1.BackColor = Color.OrangeRed
+            Cancel_Button.Visible = True
+        End If
+    End Sub
+
+    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.Close()
+    End Sub
+
+    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+    Public Sub CancelButtonInvisible()
+        Cancel_Button.Visible = False
+    End Sub
+    Public Sub CancelButtonVisible()
+        Cancel_Button.Visible = True
+    End Sub
+
+End Class