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