Initial

EDOKA/DiverseFormulare/frmHostNotiz.vb

@@ -0,0 +1,45 @@
+Public Class frmHostNotiz
+
+    Dim m_showAbbruchWeiter As Boolean = False
+    Property Show_Abbruch_Weiter As Boolean
+        Get
+            Return m_showAbbruchWeiter
+        End Get
+        Set(value As Boolean)
+            m_showAbbruchWeiter = value
+        End Set
+    End Property
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.Close()
+    End Sub
+
+    Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
+        Me.DialogResult = DialogResult.Abort
+        Me.Close()
+    End Sub
+
+    Private Sub btnWeiter_Click(sender As Object, e As EventArgs) Handles btnWeiter.Click
+        Me.DialogResult = DialogResult.OK
+        Me.Close()
+    End Sub
+
+    Private Sub frmHostNotiz_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If Show_Abbruch_Weiter = True Then
+            Me.btnAbbruch.Visible = True
+            Me.btnWeiter.Visible = True
+            Me.Button1.Visible = False
+            Me.lblWeiter.Visible = True
+        Else
+            Me.btnAbbruch.Visible = False
+            Me.btnWeiter.Visible = False
+            Me.Button1.Visible = True
+            Me.lblWeiter.Visible = False
+        End If
+    End Sub
+
+    Private Sub txtNotiz_LinkClicked(sender As Object, e As LinkClickedEventArgs) Handles txtNotiz.LinkClicked
+        System.Diagnostics.Process.Start(e.LinkText)
+
+    End Sub
+End Class