Imports System.Deployment.Application
Module modClickoce
    Public WithEvents coAD As ApplicationDeployment
    Public coDownloadAktiv As Boolean
    Dim coVisibleStatusVontsMain As Boolean
    ''' <summary>
    ''' Prüft, ob es zur Anwendung ein aktuelles Update gibt
    ''' </summary>
    ''' <returns>Versions-Nr: Update vorhanden
    ''' Leer: Kein Update vorhanden</returns>
    ''' <remarks></remarks>
    Public Function coIstUpdateVorhanden() As String
        Dim info As UpdateCheckInfo = Nothing
        coIstUpdateVorhanden = ""
        If (ApplicationDeployment.IsNetworkDeployed) Then
            Try
                coAD = ApplicationDeployment.CurrentDeployment
                info = coAD.CheckForDetailedUpdate()
            Catch dde As DeploymentDownloadException
                Return ""
            Catch ioe As InvalidOperationException
                Return ""
            End Try
            If (info.UpdateAvailable) Then
                Return info.AvailableVersion.ToString
            End If
        End If
    End Function
 
    Public Sub coFühreUpdateDurch()
        If (ApplicationDeployment.IsNetworkDeployed) Then
            Try
                coAD = ApplicationDeployment.CurrentDeployment
                coAD.UpdateAsync()
            Catch dde As DeploymentDownloadException
                MessageBox.Show("Während des Updates ist ein Fehler" & _
                  "aufgetreten:" & vbCrLf & dde.Message)
            End Try
        End If
    End Sub
 
   Private Sub AD_UpdateCompleted(ByVal sender As Object, ByVal e As _
     System.ComponentModel.AsyncCompletedEventArgs) Handles coAD.UpdateCompleted
        If e.Cancelled Then
            Hinweis("Abbruch durch Benutzer", enuHinweisIcon.Fehler, 5)
        Else
            If MessageBox.Show("Das Update wurde erfolgreich durchgeführt." & _
              vbCrLf & _
                               "Soll das Programm nun neu gestartet werden?", _
                               "Update erfolgreich", MessageBoxButtons.YesNo, _
                               MessageBoxIcon.Question) = DialogResult.Yes Then
                Application.Restart()
                End
            Else
                Hinweis("Programmneustart erforderlich.", enuHinweisIcon.Info, _
                  10)
            End If
        End If
    End Sub
End Sub