Changes frmPersons Title to whatever we want (edit or add Guest)

Gästeliste/Gästeliste.vbproj

@@ -32,7 +32,7 @@
     <PublisherName>Dominic Reich</PublisherName>
     <MinimumRequiredVersion>1.0.0.0</MinimumRequiredVersion>
     <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
-    <ApplicationRevision>21</ApplicationRevision>
+    <ApplicationRevision>22</ApplicationRevision>
     <ApplicationVersion>1.0.1.%2a</ApplicationVersion>
     <UseApplicationTrust>true</UseApplicationTrust>
     <CreateDesktopShortcut>true</CreateDesktopShortcut>

Gästeliste/frmPerson.designer.vb

@@ -50,9 +50,9 @@ Partial Class frmPerson
         Me.txtAnmerkung = New System.Windows.Forms.TextBox()
         Me.chkStammgast = New System.Windows.Forms.CheckBox()
         Me.chkBlacklist = New System.Windows.Forms.CheckBox()
+        Me.cboLand = New System.Windows.Forms.ComboBox()
         Me.GästeBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.GästeDataSet = New Gästeliste.GästeDataSet()
-        Me.cboLand = New System.Windows.Forms.ComboBox()
         Me.TableLayoutPanel1.SuspendLayout()
         Me.TableLayoutPanel2.SuspendLayout()
         CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -343,16 +343,6 @@ Partial Class frmPerson
         Me.chkBlacklist.TabIndex = 2
         Me.chkBlacklist.UseVisualStyleBackColor = True
         '
-        'GästeBindingSource
-        '
-        Me.GästeBindingSource.DataMember = "Gäste"
-        Me.GästeBindingSource.DataSource = Me.GästeDataSet
-        '
-        'GästeDataSet
-        '
-        Me.GästeDataSet.DataSetName = "GästeDataSet"
-        Me.GästeDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
         'cboLand
         '
         Me.cboLand.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
@@ -367,6 +357,16 @@ Partial Class frmPerson
         Me.cboLand.TabIndex = 3
         Me.cboLand.Text = "Deutschland"
         '
+        'GästeBindingSource
+        '
+        Me.GästeBindingSource.DataMember = "Gäste"
+        Me.GästeBindingSource.DataSource = Me.GästeDataSet
+        '
+        'GästeDataSet
+        '
+        Me.GästeDataSet.DataSetName = "GästeDataSet"
+        Me.GästeDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
         'frmPerson
         '
         Me.AcceptButton = Me.OK_Button

Gästeliste/frmPerson.vb

@@ -11,4 +11,12 @@ Public Class frmPerson
         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