UpdateCheck bei OutOfBrowser in VB
Hallo Gemeinde,
will meine kleine Anwendung um den Updatecheck erweitern und komme nicht klar. Habe mir ein Vorbild aus C# übersetzen lassen und folgendes Ergebnis erhalten:
Private Sub checkForUpdateButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
versionStatusText.Text = "Checking for update ..."
App.Current.CheckAndDownloadUpdateCompleted += Current_CheckAndDownloadUpdateCompleted
App.Current.CheckAndDownloadUpdateAsync()
End Sub
Private Sub Current_CheckAndDownloadUpdateCompleted(ByVal sender As Object, ByVal e As CheckAndDownloadUpdateCompletedEventArgs)
App.Current.CheckAndDownloadUpdateCompleted -= Current_CheckAndDownloadUpdateCompleted
If e.UpdateAvailable Then
versionStatusText.Text = "New version is available and installed. " & "Please restart your application."
Else
versionStatusText.Text = "No Update available."
End If
End Sub
Angemeckert werden die Zeilen mit "+=" und "-=" und VisualStudio erzählt mir irgendwas von einem RaiseEvent. Null Ahnung!!!
Kann mir jemand mit der richtigen Schreibweise helfen?
Hartmut
- Anmelden oder Registrieren um Kommentare zu schreiben
-
Hallo Hartmut, meine
Hallo Hartmut,
meine Variante ist zwar nicht so Speicher performant, aber das bemerkt der User wahrscheinlich nicht. Herrn Oliver Scheers Version hingegen schon.
Private Sub BtnUpdateChecker_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
'Search for Update
AddHandler App.Current.CheckAndDownloadUpdateCompleted, AddressOf Current_CheckAndDownloadUpdateCompleted
App.Current.CheckAndDownloadUpdateAsync()
End Sub
Private Sub Current_CheckAndDownloadUpdateCompleted(ByVal sender As Object, ByVal e As CheckAndDownloadUpdateCompletedEventArgs)
If e.UpdateAvailable Then
'UpdateAvailable
'Restart App
Else
'UpdateAvailable == false
End If
End Sub
Viele Grüße,
Daniel Schenzer
Herzlichen Dank
Hallo Daniel Schenzer,
danke für den Code. Fast wäre ich auch dahin gelangt. Weniger durch Wissen, als durch ausprobieren. Habe mir noch ein paar Codeschnipsel mit ähnlicher Syntax von C# nach VB übersetzen lassen und bin dann auch auf den AddHandler gestoßen. Bei der zweiten Prozdur bin ich dann gescheitert. Jetzt funzt es.
Nochmals Danke
Hartmut