diff --git a/.vs/Gästeliste/v14/.suo b/.vs/Gästeliste/v14/.suo
index 11724de..bf04dd1 100644
Binary files a/.vs/Gästeliste/v14/.suo and b/.vs/Gästeliste/v14/.suo differ
diff --git a/Gästeliste/Gästeliste.vbproj b/Gästeliste/Gästeliste.vbproj
index 43ad189..49aceec 100644
--- a/Gästeliste/Gästeliste.vbproj
+++ b/Gästeliste/Gästeliste.vbproj
@@ -31,11 +31,10 @@
Gästeliste
Dominic Reich
false
- 2
+ 3
1.0.0.%2a
- false
+ true
true
- true
true
true
@@ -74,7 +73,7 @@
On
- bed.ico
+ AddressBook.ico
7333803A93B717E3FFCB65C8CB363B334722D217
@@ -86,7 +85,13 @@
true
- true
+ false
+
+
+ Internet
+
+
+ My Project\app.manifest
@@ -179,6 +184,7 @@
GästeDataSet.xsd
+
MyApplicationCodeGenerator
Application.Designer.vb
diff --git a/Gästeliste/Gästeliste.vbproj.user b/Gästeliste/Gästeliste.vbproj.user
index 8633cf3..f5b798f 100644
--- a/Gästeliste/Gästeliste.vbproj.user
+++ b/Gästeliste/Gästeliste.vbproj.user
@@ -3,10 +3,10 @@
Z:\Gaesteliste\|publish\
http://tools.dominicreich.com/Gaesteliste/
-
-
+ http://tmsn.at/%3ftools&gaesteliste
+ http://tools.dominicreich.com/Gaesteliste/
-
+ https://github.com/freefallcid/Gaesteliste/issues
de-DE
false
diff --git a/Gästeliste/My Project/app.manifest b/Gästeliste/My Project/app.manifest
new file mode 100644
index 0000000..0cefe1a
--- /dev/null
+++ b/Gästeliste/My Project/app.manifest
@@ -0,0 +1,70 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Gästeliste/frmMain.Designer.vb b/Gästeliste/frmMain.Designer.vb
index 7c4e79a..6cc6925 100644
--- a/Gästeliste/frmMain.Designer.vb
+++ b/Gästeliste/frmMain.Designer.vb
@@ -25,14 +25,6 @@ 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.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.IDDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.NachnameDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.VornameDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -47,12 +39,22 @@ 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()
- Me.mnuMain.SuspendLayout()
- Me.mnuContext.SuspendLayout()
CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.mnuMain.SuspendLayout()
+ Me.mnuContext.SuspendLayout()
Me.SuspendLayout()
'
'DataGridView1
@@ -70,57 +72,6 @@ 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.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"
- '
- '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"
- '
'IDDataGridViewTextBoxColumn
'
Me.IDDataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
@@ -226,12 +177,74 @@ 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!)
@@ -244,11 +257,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()
@@ -278,4 +291,6 @@ Partial Class frmMain
Friend WithEvents mnuContext As ContextMenuStrip
Friend WithEvents EintragLöschenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents OnlineHilfeToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents UpdateToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents ToolStripMenuItem2 As ToolStripSeparator
End Class
diff --git a/Gästeliste/frmMain.vb b/Gästeliste/frmMain.vb
index 310ff7b..fe82a17 100644
--- a/Gästeliste/frmMain.vb
+++ b/Gästeliste/frmMain.vb
@@ -1,4 +1,6 @@
Imports System.ComponentModel
+Imports System.Deployment
+Imports System.Deployment.Application
Public Class frmMain
Private _dataPath As String = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "Gästeliste.xml")
@@ -58,4 +60,21 @@ Public Class frmMain
Private Sub OnlineHilfeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OnlineHilfeToolStripMenuItem.Click
Process.Start("http://tmsn.at/?tools&gaesteliste&hilfe")
End Sub
+
+ Private Sub UpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem.Click
+ Dim Info As UpdateCheckInfo
+
+ If ApplicationDeployment.IsNetworkDeployed Then
+ Dim AD As ApplicationDeployment = ApplicationDeployment.CurrentDeployment
+
+ Info = AD.CheckForDetailedUpdate
+ If Info.UpdateAvailable Then
+ If MsgBox("Ein Update ist verfügbar, willst du jetzt aktualisieren?", vbYesNo) = vbYes Then
+ AD.UpdateAsync()
+ End If
+ Else
+ MsgBox("Es ist kein Update verfügbar.")
+ End If
+ End If
+ End Sub
End Class