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.
23 lines
761 B
23 lines
761 B
Imports System.Windows.Forms
|
|
|
|
Public Class frmPerson
|
|
|
|
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
|
|
|
|
Private Sub frmPerson_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
If Me.Tag = "add" Then
|
|
Me.Text = "Gast hinzufügen"
|
|
ElseIf Me.Tag = "edit" Then
|
|
Me.Text = "Gast bearbeiten"
|
|
End If
|
|
End Sub
|
|
End Class
|