adds my.settings (window size and location)

adds working update-check routine for oneclick (if you skip one update, you can still update later manually)
2016-03-13 15:32:25 +01:00 · 2016-03-13 15:32:25 +01:00 · 76762e5110
commit 76762e5110
parent 05c5656ce9
11 changed files with 1601 additions and 1264 deletions
--- a/.vs/Gästeliste/v14/.suo
+++ b/.vs/Gästeliste/v14/.suo
--- a/Gästeliste/App.config
+++ b/Gästeliste/App.config
@ -1,6 +1,21 @@
 <?xml version="1.0" encoding="utf-8" ?>
 <configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="Gästeliste.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2" />
    </startup>
+    <userSettings>
+        <Gästeliste.My.MySettings>
+            <setting name="WindowLocation" serializeAs="String">
+                <value>-1, -1</value>
+            </setting>
+            <setting name="WindowSize" serializeAs="String">
+                <value>-1, -1</value>
+            </setting>
+        </Gästeliste.My.MySettings>
+    </userSettings>
 </configuration>
--- a/Gästeliste/GästeDataSet.Designer.vb
+++ b/Gästeliste/GästeDataSet.Designer.vb
@ -475,7 +475,7 @@ Partial Public Class GästeDataSet
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
-        Public Overloads Function AddGästeRow(ByVal Nachname As String, ByVal Vorname As String, ByVal Straße As String, ByVal PLZ As UInteger, ByVal Ort As String, ByVal Land As String, ByVal Telefon As String, ByVal Email As String, ByVal Anmerkung As String, ByVal Stammgast As Boolean, ByVal Blockiert As Boolean) As GästeRow
+        Public Overloads Function AddGästeRow(ByVal Nachname As String, ByVal Vorname As String, ByVal Straße As String, ByVal PLZ As String, ByVal Ort As String, ByVal Land As String, ByVal Telefon As String, ByVal Email As String, ByVal Anmerkung As String, ByVal Stammgast As Boolean, ByVal Blockiert As Boolean) As GästeRow
            Dim rowGästeRow As GästeRow = CType(Me.NewRow,GästeRow)
            Dim columnValuesArray() As Object = New Object() {Nothing, Nachname, Vorname, Straße, PLZ, Ort, Land, Telefon, Email, Anmerkung, Stammgast, Blockiert}
            rowGästeRow.ItemArray = columnValuesArray
@ -531,7 +531,7 @@ Partial Public Class GästeDataSet
            MyBase.Columns.Add(Me.columnVorname)
            Me.columnStraße = New Global.System.Data.DataColumn("Straße", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnStraße)
-            Me.columnPLZ = New Global.System.Data.DataColumn("PLZ", GetType(UInteger), Nothing, Global.System.Data.MappingType.Element)
+            Me.columnPLZ = New Global.System.Data.DataColumn("PLZ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnPLZ)
            Me.columnOrt = New Global.System.Data.DataColumn("Ort", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnOrt)
@ -551,6 +551,7 @@ Partial Public Class GästeDataSet
            Me.columnID.AutoIncrement = true
            Me.columnID.AutoIncrementSeed = 1
            Me.columnID.AllowDBNull = false
+            Me.columnID.ReadOnly = true
            Me.columnID.Unique = true
            Me.columnNachname.AllowDBNull = false
            Me.columnVorname.AllowDBNull = false
@ -749,9 +750,9 @@ Partial Public Class GästeDataSet
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
-        Public Property PLZ() As UInteger
+        Public Property PLZ() As String
            Get
-                Return CType(Me(Me.tableGäste.PLZColumn),UInteger)
+                Return CType(Me(Me.tableGäste.PLZColumn),String)
            End Get
            Set
                Me(Me.tableGäste.PLZColumn) = value
--- a/Gästeliste/GästeDataSet.xsd
+++ b/Gästeliste/GästeDataSet.xsd
@ -12,14 +12,14 @@
  <xs:element name="GästeDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="GästeDataSet" msprop:Generator_UserDSName="GästeDataSet">
    <xs:complexType>
      <xs:choice minOccurs="0" maxOccurs="unbounded">
-        <xs:element name="Gäste" msdata:CaseSensitive="False" msprop:Generator_TableClassName="GästeDataTable" msprop:Generator_TableVarName="tableGäste" msprop:Generator_TablePropName="Gäste" msprop:Generator_RowDeletingName="GästeRowDeleting" msprop:Generator_RowChangingName="GästeRowChanging" msprop:Generator_RowEvHandlerName="GästeRowChangeEventHandler" msprop:Generator_RowDeletedName="GästeRowDeleted" msprop:Generator_UserTableName="Gäste" msprop:Generator_RowChangedName="GästeRowChanged" msprop:Generator_RowEvArgName="GästeRowChangeEvent" msprop:Generator_RowClassName="GästeRow">
+        <xs:element name="Gäste" msdata:CaseSensitive="False" msprop:Generator_TableClassName="GästeDataTable" msprop:Generator_TableVarName="tableGäste" msprop:Generator_RowChangedName="GästeRowChanged" msprop:Generator_TablePropName="Gäste" msprop:Generator_RowDeletingName="GästeRowDeleting" msprop:Generator_RowChangingName="GästeRowChanging" msprop:Generator_RowEvHandlerName="GästeRowChangeEventHandler" msprop:Generator_RowDeletedName="GästeRowDeleted" msprop:Generator_RowClassName="GästeRow" msprop:Generator_UserTableName="Gäste" msprop:Generator_RowEvArgName="GästeRowChangeEvent">
          <xs:complexType>
            <xs:sequence>
-              <xs:element name="ID" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:int" />
+              <xs:element name="ID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:int" />
              <xs:element name="Nachname" msprop:Generator_ColumnVarNameInTable="columnNachname" msprop:Generator_ColumnPropNameInRow="Nachname" msprop:Generator_ColumnPropNameInTable="NachnameColumn" msprop:Generator_UserColumnName="Nachname" type="xs:string" />
              <xs:element name="Vorname" msprop:Generator_ColumnVarNameInTable="columnVorname" msprop:Generator_ColumnPropNameInRow="Vorname" msprop:Generator_ColumnPropNameInTable="VornameColumn" msprop:Generator_UserColumnName="Vorname" type="xs:string" />
              <xs:element name="Straße" msprop:Generator_ColumnVarNameInTable="columnStraße" msprop:Generator_ColumnPropNameInRow="Straße" msprop:Generator_ColumnPropNameInTable="StraßeColumn" msprop:Generator_UserColumnName="Straße" type="xs:string" />
-              <xs:element name="PLZ" msprop:Generator_ColumnVarNameInTable="columnPLZ" msprop:Generator_ColumnPropNameInRow="PLZ" msprop:Generator_ColumnPropNameInTable="PLZColumn" msprop:Generator_UserColumnName="PLZ" type="xs:unsignedInt" />
+              <xs:element name="PLZ" msprop:Generator_ColumnVarNameInTable="columnPLZ" msprop:Generator_ColumnPropNameInRow="PLZ" msprop:Generator_ColumnPropNameInTable="PLZColumn" msprop:Generator_UserColumnName="PLZ" type="xs:string" />
              <xs:element name="Ort" msprop:Generator_ColumnVarNameInTable="columnOrt" msprop:Generator_ColumnPropNameInRow="Ort" msprop:Generator_ColumnPropNameInTable="OrtColumn" msprop:Generator_UserColumnName="Ort" type="xs:string" />
              <xs:element name="Land" msprop:Generator_ColumnVarNameInTable="columnLand" msprop:Generator_ColumnPropNameInRow="Land" msprop:Generator_ColumnPropNameInTable="LandColumn" msprop:Generator_UserColumnName="Land" type="xs:string" />
              <xs:element name="Telefon" msprop:Generator_ColumnVarNameInTable="columnTelefon" msprop:Generator_ColumnPropNameInRow="Telefon" msprop:Generator_ColumnPropNameInTable="TelefonColumn" msprop:Generator_UserColumnName="Telefon" type="xs:string" minOccurs="0" />
--- a/Gästeliste/Gästeliste.vbproj
+++ b/Gästeliste/Gästeliste.vbproj
@ -30,8 +30,9 @@
    <ErrorReportUrl>https://github.com/freefallcid/Gaesteliste/issues</ErrorReportUrl>
    <ProductName>Gästeliste</ProductName>
    <PublisherName>Dominic Reich</PublisherName>
+    <MinimumRequiredVersion>1.0.0.0</MinimumRequiredVersion>
    <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
-    <ApplicationRevision>3</ApplicationRevision>
+    <ApplicationRevision>7</ApplicationRevision>
    <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
    <UseApplicationTrust>true</UseApplicationTrust>
    <CreateDesktopShortcut>true</CreateDesktopShortcut>
@ -194,7 +195,9 @@
      <CustomToolNamespace>My</CustomToolNamespace>
      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
    </None>
-    <None Include="App.config" />
+    <None Include="App.config">
+      <SubType>Designer</SubType>
+    </None>
  </ItemGroup>
  <ItemGroup>
    <Content Include="AddressBook.ico" />
--- a/Gästeliste/Gästeliste.vbproj.user
+++ b/Gästeliste/Gästeliste.vbproj.user
@ -10,4 +10,10 @@
    <FallbackCulture>de-DE</FallbackCulture>
    <VerifyUploadedFiles>false</VerifyUploadedFiles>
  </PropertyGroup>
+  <PropertyGroup>
+    <DebugSecurityZoneURL>http://tools.dominicreich.com/Gaesteliste/</DebugSecurityZoneURL>
+  </PropertyGroup>
+  <PropertyGroup>
+    <EnableSecurityDebugging>false</EnableSecurityDebugging>
+  </PropertyGroup>
 </Project>
--- a/Project/Settings.Designer.vb
+++ b/Project/Settings.Designer.vb
@ -1,10 +1,10 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
-'     This code was generated by a tool.
-'     Runtime Version:4.0.30319.42000
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
 '
-'     Changes to this file may cause incorrect behavior and will be lost if
-'     the code is regenerated.
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
 ' </auto-generated>
 '------------------------------------------------------------------------------

@ -13,57 +13,81 @@ Option Explicit On


 Namespace My
-
-    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
-     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.0.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
    Partial Friend NotInheritable Class MySettings
        Inherits Global.System.Configuration.ApplicationSettingsBase
-
-        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
-
-#Region "My.Settings Auto-Save Functionality"
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "Funktion zum automatischen Speichern von My.Settings"
 #If _MyType = "WindowsForms" Then
-        Private Shared addedHandler As Boolean
+    Private Shared addedHandler As Boolean

-        Private Shared addedHandlerLockObject As New Object
+    Private Shared addedHandlerLockObject As New Object

-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
-            If My.Application.SaveMySettingsOnExit Then
-                My.Settings.Save()
-            End If
-        End Sub
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
 #End If
 #End Region
-
+        
        Public Shared ReadOnly Property [Default]() As MySettings
            Get
-
+                
 #If _MyType = "WindowsForms" Then
-                   If Not addedHandler Then
-                        SyncLock addedHandlerLockObject
-                            If Not addedHandler Then
-                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
-                                addedHandler = True
-                            End If
-                        End SyncLock
-                    End If
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
 #End If
                Return defaultInstance
            End Get
        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("-1, -1")>  _
+        Public Property WindowLocation() As Global.System.Drawing.Point
+            Get
+                Return CType(Me("WindowLocation"),Global.System.Drawing.Point)
+            End Get
+            Set
+                Me("WindowLocation") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("-1, -1")>  _
+        Public Property WindowSize() As Global.System.Drawing.Size
+            Get
+                Return CType(Me("WindowSize"),Global.System.Drawing.Size)
+            End Get
+            Set
+                Me("WindowSize") = value
+            End Set
+        End Property
    End Class
 End Namespace

 Namespace My
-
-    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
    Friend Module MySettingsProperty
-
-        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
        Friend ReadOnly Property Settings() As Global.Gästeliste.My.MySettings
            Get
                Return Global.Gästeliste.My.MySettings.Default
--- a/Project/Settings.settings
+++ b/Project/Settings.settings
@ -1,7 +1,12 @@
 <?xml version='1.0' encoding='utf-8'?>
-<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
-  <Profiles>
-    <Profile Name="(Default)" />
-  </Profiles>
-  <Settings />
-</SettingsFile>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
+  <Profiles />
+  <Settings>
+    <Setting Name="WindowLocation" Type="System.Drawing.Point" Scope="User">
+      <Value Profile="(Default)">-1, -1</Value>
+    </Setting>
+    <Setting Name="WindowSize" Type="System.Drawing.Size" Scope="User">
+      <Value Profile="(Default)">-1, -1</Value>
+    </Setting>
+  </Settings>
+</SettingsFile>
--- a/Gästeliste/frmMain.Designer.vb
+++ b/Gästeliste/frmMain.Designer.vb
@ -25,6 +25,17 @@ Partial Class frmMain
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.mnuMain = New System.Windows.Forms.MenuStrip()
+        Me.HilfeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.OnlineHilfeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.HilfePerEmailAnfordernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.FehlerMeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnuContext = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.EintragLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
        Me.IDDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.NachnameDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.VornameDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
@ -39,22 +50,11 @@ Partial Class frmMain
        Me.AnmerkungDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.GästeBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.GästeDataSet = New Gästeliste.GästeDataSet()
-        Me.mnuMain = New System.Windows.Forms.MenuStrip()
-        Me.HilfeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.OnlineHilfeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.HilfePerEmailAnfordernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.FehlerMeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.mnuContext = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.EintragLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.mnuMain.SuspendLayout()
        Me.mnuContext.SuspendLayout()
+        CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'DataGridView1
@ -72,12 +72,81 @@ Partial Class frmMain
        Me.DataGridView1.Size = New System.Drawing.Size(818, 483)
        Me.DataGridView1.TabIndex = 4
        '
+        'mnuMain
+        '
+        Me.mnuMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.HilfeToolStripMenuItem})
+        Me.mnuMain.Location = New System.Drawing.Point(0, 0)
+        Me.mnuMain.Name = "mnuMain"
+        Me.mnuMain.Size = New System.Drawing.Size(818, 24)
+        Me.mnuMain.TabIndex = 5
+        Me.mnuMain.Text = "MenuStrip1"
+        '
+        'HilfeToolStripMenuItem
+        '
+        Me.HilfeToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InfoToolStripMenuItem, Me.OnlineHilfeToolStripMenuItem, Me.ToolStripMenuItem1, Me.UpdateToolStripMenuItem, Me.ToolStripMenuItem2, Me.HilfePerEmailAnfordernToolStripMenuItem, Me.FehlerMeldenToolStripMenuItem})
+        Me.HilfeToolStripMenuItem.Name = "HilfeToolStripMenuItem"
+        Me.HilfeToolStripMenuItem.Size = New System.Drawing.Size(44, 20)
+        Me.HilfeToolStripMenuItem.Text = "Hilfe"
+        '
+        'InfoToolStripMenuItem
+        '
+        Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
+        Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
+        Me.InfoToolStripMenuItem.Text = "Info"
+        '
+        'OnlineHilfeToolStripMenuItem
+        '
+        Me.OnlineHilfeToolStripMenuItem.Name = "OnlineHilfeToolStripMenuItem"
+        Me.OnlineHilfeToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
+        Me.OnlineHilfeToolStripMenuItem.Text = "Online-Hilfe"
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(203, 6)
+        '
+        'HilfePerEmailAnfordernToolStripMenuItem
+        '
+        Me.HilfePerEmailAnfordernToolStripMenuItem.Name = "HilfePerEmailAnfordernToolStripMenuItem"
+        Me.HilfePerEmailAnfordernToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
+        Me.HilfePerEmailAnfordernToolStripMenuItem.Text = "Hilfe per Email anfordern"
+        '
+        'FehlerMeldenToolStripMenuItem
+        '
+        Me.FehlerMeldenToolStripMenuItem.Name = "FehlerMeldenToolStripMenuItem"
+        Me.FehlerMeldenToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
+        Me.FehlerMeldenToolStripMenuItem.Text = "Fehler melden"
+        '
+        'mnuContext
+        '
+        Me.mnuContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EintragLöschenToolStripMenuItem})
+        Me.mnuContext.Name = "mnuContext"
+        Me.mnuContext.Size = New System.Drawing.Size(156, 26)
+        '
+        'EintragLöschenToolStripMenuItem
+        '
+        Me.EintragLöschenToolStripMenuItem.Name = "EintragLöschenToolStripMenuItem"
+        Me.EintragLöschenToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
+        Me.EintragLöschenToolStripMenuItem.Text = "Eintrag löschen"
+        '
+        'UpdateToolStripMenuItem
+        '
+        Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
+        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
+        Me.UpdateToolStripMenuItem.Text = "Update nachholen"
+        '
+        'ToolStripMenuItem2
+        '
+        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
+        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(203, 6)
+        '
        'IDDataGridViewTextBoxColumn
        '
        Me.IDDataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
        Me.IDDataGridViewTextBoxColumn.DataPropertyName = "ID"
        Me.IDDataGridViewTextBoxColumn.HeaderText = "ID"
        Me.IDDataGridViewTextBoxColumn.Name = "IDDataGridViewTextBoxColumn"
+        Me.IDDataGridViewTextBoxColumn.ReadOnly = True
        Me.IDDataGridViewTextBoxColumn.Width = 43
        '
        'NachnameDataGridViewTextBoxColumn
@ -177,74 +246,6 @@ Partial Class frmMain
        Me.GästeDataSet.DataSetName = "GästeDataSet"
        Me.GästeDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        '
-        'mnuMain
-        '
-        Me.mnuMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.HilfeToolStripMenuItem})
-        Me.mnuMain.Location = New System.Drawing.Point(0, 0)
-        Me.mnuMain.Name = "mnuMain"
-        Me.mnuMain.Size = New System.Drawing.Size(818, 24)
-        Me.mnuMain.TabIndex = 5
-        Me.mnuMain.Text = "MenuStrip1"
-        '
-        'HilfeToolStripMenuItem
-        '
-        Me.HilfeToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InfoToolStripMenuItem, Me.OnlineHilfeToolStripMenuItem, Me.ToolStripMenuItem1, Me.UpdateToolStripMenuItem, Me.ToolStripMenuItem2, Me.HilfePerEmailAnfordernToolStripMenuItem, Me.FehlerMeldenToolStripMenuItem})
-        Me.HilfeToolStripMenuItem.Name = "HilfeToolStripMenuItem"
-        Me.HilfeToolStripMenuItem.Size = New System.Drawing.Size(44, 20)
-        Me.HilfeToolStripMenuItem.Text = "Hilfe"
-        '
-        'InfoToolStripMenuItem
-        '
-        Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
-        Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
-        Me.InfoToolStripMenuItem.Text = "Info"
-        '
-        'OnlineHilfeToolStripMenuItem
-        '
-        Me.OnlineHilfeToolStripMenuItem.Name = "OnlineHilfeToolStripMenuItem"
-        Me.OnlineHilfeToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
-        Me.OnlineHilfeToolStripMenuItem.Text = "Online-Hilfe"
-        '
-        'ToolStripMenuItem1
-        '
-        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
-        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(203, 6)
-        '
-        'HilfePerEmailAnfordernToolStripMenuItem
-        '
-        Me.HilfePerEmailAnfordernToolStripMenuItem.Name = "HilfePerEmailAnfordernToolStripMenuItem"
-        Me.HilfePerEmailAnfordernToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
-        Me.HilfePerEmailAnfordernToolStripMenuItem.Text = "Hilfe per Email anfordern"
-        '
-        'FehlerMeldenToolStripMenuItem
-        '
-        Me.FehlerMeldenToolStripMenuItem.Name = "FehlerMeldenToolStripMenuItem"
-        Me.FehlerMeldenToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
-        Me.FehlerMeldenToolStripMenuItem.Text = "Fehler melden"
-        '
-        'mnuContext
-        '
-        Me.mnuContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EintragLöschenToolStripMenuItem})
-        Me.mnuContext.Name = "mnuContext"
-        Me.mnuContext.Size = New System.Drawing.Size(156, 26)
-        '
-        'EintragLöschenToolStripMenuItem
-        '
-        Me.EintragLöschenToolStripMenuItem.Name = "EintragLöschenToolStripMenuItem"
-        Me.EintragLöschenToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
-        Me.EintragLöschenToolStripMenuItem.Text = "Eintrag löschen"
-        '
-        'UpdateToolStripMenuItem
-        '
-        Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
-        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
-        Me.UpdateToolStripMenuItem.Text = "Update"
-        '
-        'ToolStripMenuItem2
-        '
-        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
-        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(203, 6)
-        '
        'frmMain
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -257,11 +258,11 @@ Partial Class frmMain
        Me.Name = "frmMain"
        Me.Text = "Gästeliste"
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).EndInit()
        Me.mnuMain.ResumeLayout(False)
        Me.mnuMain.PerformLayout()
        Me.mnuContext.ResumeLayout(False)
+        CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

--- a/Gästeliste/frmMain.resx
+++ b/Gästeliste/frmMain.resx
--- a/Gästeliste/frmMain.vb
+++ b/Gästeliste/frmMain.vb
@ -6,8 +6,36 @@ Public Class frmMain
    Private _dataPath As String = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "Gästeliste.xml")
    Private _rowIndex As Integer = 0

+    Private Sub LoadWindowPosition()
+        'http://christ-offer.blogspot.co.at/2012/02/vbnet-remember-application-window-size.html
+        Dim ptLocation As System.Drawing.Point = My.Settings.WindowLocation
+
+        If (ptLocation.X = -1) And (ptLocation.Y = -1) Then
+            Return
+        End If
+
+        Dim bLocationVisible As Boolean = False
+        For Each S As Screen In Screen.AllScreens
+            If S.Bounds.Contains(ptLocation) Then
+                bLocationVisible = True
+                Exit For
+            End If
+        Next
+
+        If Not bLocationVisible Then
+            Return
+        End If
+
+        Me.StartPosition = FormStartPosition.Manual
+        Me.Location = ptLocation
+        Me.Size = My.Settings.WindowSize
+    End Sub
+
    Private Sub frmMain_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Me.GästeDataSet.WriteXml(_dataPath)
+
+        My.Settings.WindowLocation = Me.Location
+        My.Settings.WindowSize = Me.Size
    End Sub

    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@ -17,6 +45,8 @@ Public Class frmMain
            ' do nothing, that file gets created when we close the application ;)
        End Try

+        LoadWindowPosition()
+
        ' Setting colors of grids to some fancy ones :)
        Me.DataGridView1.RowsDefaultCellStyle.BackColor = Color.Azure
        Me.DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.Beige
@ -69,8 +99,9 @@ Public Class frmMain

            Info = AD.CheckForDetailedUpdate
            If Info.UpdateAvailable Then
-                If MsgBox("Ein Update ist verfügbar, willst du jetzt aktualisieren?", vbYesNo) = vbYes Then
-                    AD.UpdateAsync()
+                If MsgBox("Ein Update ist verfügbar und wird jetzt installiert." + Chr(13) + "Die Anwendung wird danach neu gestartet.", vbOKCancel) = vbOK Then
+                    AD.Update()
+                    System.Windows.Forms.Application.Restart()
                End If
            Else
                MsgBox("Es ist kein Update verfügbar.")