You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
45 lines
1.4 KiB
45 lines
1.4 KiB
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 |