Version 1.0.1.17 / mainly usable.

Gästeliste/Gästeliste.vbproj

@@ -32,8 +32,8 @@
     <PublisherName>Dominic Reich</PublisherName>
     <MinimumRequiredVersion>1.0.0.0</MinimumRequiredVersion>
     <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
-    <ApplicationRevision>12</ApplicationRevision>
-    <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+    <ApplicationRevision>18</ApplicationRevision>
+    <ApplicationVersion>1.0.1.%2a</ApplicationVersion>
     <UseApplicationTrust>true</UseApplicationTrust>
     <CreateDesktopShortcut>true</CreateDesktopShortcut>
     <PublishWizardCompleted>true</PublishWizardCompleted>

Gästeliste/frmAbout.vb

@@ -26,8 +26,4 @@
     Private Sub lnkWebsite_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lnkWebsite.LinkClicked
         Process.Start("http://tmsn.at/?tools&gaesteliste")
     End Sub
-
-    Private Sub lblInfoBetaSoftware_MouseEnter(sender As Object, e As EventArgs)
-        Me.lblInfoBetaSoftware.ForeColor = Color.Red
-    End Sub
 End Class

Gästeliste/frmMain.Designer.vb

@@ -232,27 +232,27 @@ Partial Class frmMain
         '
         Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
         Me.InfoToolStripMenuItem.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(139, 22)
+        Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
         Me.InfoToolStripMenuItem.Text = "Info"
         '
         'OnlineHilfeToolStripMenuItem
         '
         Me.OnlineHilfeToolStripMenuItem.Name = "OnlineHilfeToolStripMenuItem"
         Me.OnlineHilfeToolStripMenuItem.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.OnlineHilfeToolStripMenuItem.Size = New System.Drawing.Size(139, 22)
+        Me.OnlineHilfeToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
         Me.OnlineHilfeToolStripMenuItem.Text = "Online-Hilfe"
         '
         'ToolStripMenuItem1
         '
         Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
         Me.ToolStripMenuItem1.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(136, 6)
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(149, 6)
         '
         'UpdateToolStripMenuItem
         '
         Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
         Me.UpdateToolStripMenuItem.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(139, 22)
+        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
         Me.UpdateToolStripMenuItem.Text = "Update"
         '
         'StatusStrip1

Gästeliste/frmMain.vb

@@ -55,8 +55,17 @@ Public Class frmMain
         Me.DataGridView1.RowsDefaultCellStyle.BackColor = Color.Azure
         Me.DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.Beige
 
+        Dim Info As UpdateCheckInfo
         If ApplicationDeployment.IsNetworkDeployed Then
-            statusVersionLabel.Text = "Version " & ApplicationDeployment.CurrentDeployment.CurrentVersion.ToString & "  (" & ApplicationDeployment.CurrentDeployment.UpdatedVersion.ToString & ")"
+            Dim AD As ApplicationDeployment = ApplicationDeployment.CurrentDeployment
+
+            Info = AD.CheckForDetailedUpdate
+            If Info.UpdateAvailable Then
+                statusVersionLabel.Text = "Version " & AD.CurrentVersion.ToString & "  (Update verfügbar: " & Info.AvailableVersion.ToString & ")"
+                statusVersionLabel.Tag = "update"
+            Else
+                statusVersionLabel.Text = "Version " & AD.CurrentVersion.ToString
+            End If
         Else
             statusVersionLabel.Text = "Lokale Version: " & My.Application.Info.Version.ToString
         End If
@@ -81,14 +90,18 @@ Public Class frmMain
 
             Info = AD.CheckForDetailedUpdate
             If Info.UpdateAvailable Then
+                statusVersionLabel.Text = "Version " & AD.CurrentVersion.ToString & "  (Update verfügbar: " & Info.AvailableVersion.ToString & ")"
+                statusVersionLabel.Tag = "update"
                 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
+                statusVersionLabel.Text = "Version " & AD.CurrentVersion.ToString
                 MsgBox("Es ist kein Update verfügbar.")
             End If
         Else
+            statusVersionLabel.Text = "Lokale Version: " & My.Application.Info.Version.ToString
             MsgBox("Die Anwendung wurde nicht aus dem Internet bezogen und kann daher nicht aktualisiert werden.")
         End If
     End Sub
@@ -195,4 +208,10 @@ Public Class frmMain
             mnuContext.Show(Cursor.Position)
         End If
     End Sub
+
+    Private Sub statusVersionLabel_Click(sender As Object, e As EventArgs) Handles statusVersionLabel.Click
+        If statusVersionLabel.Tag = "update" Then
+            UpdateToolStripMenuItem_Click(statusVersionLabel, Nothing)
+        End If
+    End Sub
 End Class