Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #19764 > unrolled thread

VB .NET update application

Back to article view | Back to it.comp.lang.visual-basic

Contents

  VB .NET update application Marco75 <marcoporzi75@gmail.com> - 2020-04-16 00:53 -0700
    Re: VB .NET update application Marco75 <marcoporzi75@gmail.com> - 2020-04-17 04:11 -0700

#19764 — VB .NET update application

Ciao,
nel mio progetto visual studio 2017 ho un timer che ogni tanto va a vedere se ci sono aggiornamenti dell'applicazione e se li trova avvisa l'utente e aggiorna.
In questi giorni lavoro da casa e ogni tanto la connessione WiFi si disconnette causando un errore nell'applicazione che viene chiusa per eccezione non gestita. In pratica, se manca la rete non può verificare l'aggiornamento e va in errore.

Qui il codice lanciato dal Timer, come faccio a gestire l'eccezione inserendo una MsgBox di avviso che la rete non c'è e poi riavvia l'app? Ho messo il codice in On Error GoTo ma ora mi compare il messaggio anche quando la rete è presente!

il timer lancia UpdateMyApplication

Public Sub UpdateMyApplication()

Dim fileReader As String
        Dim updateExist As Boolean = ApplicationDeployment.CurrentDeployment.CheckForUpdate

        fileReader = My.Computer.FileSystem.ReadAllText("\\NomeServer\Applicazioni Visual Studio\iUtility\Testo info versione.txt")
        If updateExist Then
            CercaAgg.Stop()
            MsgBox("Nuova versione rilevata!" & vbNewLine & vbNewLine _
                   & fileReader & vbNewLine & vbNewLine _
                   & "Click su OK ed attendere installazione aggiornamento...", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Ricerca aggiornamenti...")
            ApplicationDeployment.CurrentDeployment.Update()
            MsgBox("Aggiornamento completato..." & vbNewLine _
                   & "premere OK per riavviare l'applicazione", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Ricerca aggiornamenti...")
            Application.Restart()
        End If
End Sub

grazie
Marco

[toc] | [next] | [standalone]

#19765

Il giorno giovedì 16 aprile 2020 09:53:28 UTC+2, Marco75 ha scritto:
> Ciao,
> nel mio progetto visual studio 2017 ho un timer che ogni tanto va a vedere se ci sono aggiornamenti dell'applicazione e se li trova avvisa l'utente e aggiorna.
> In questi giorni lavoro da casa e ogni tanto la connessione WiFi si disconnette causando un errore nell'applicazione che viene chiusa per eccezione non gestita. In pratica, se manca la rete non può verificare l'aggiornamento e va in errore.
> 
> Qui il codice lanciato dal Timer, come faccio a gestire l'eccezione inserendo una MsgBox di avviso che la rete non c'è e poi riavvia l'app? Ho messo il codice in On Error GoTo ma ora mi compare il messaggio anche quando la rete è presente!
> 
> il timer lancia UpdateMyApplication
> 
> Public Sub UpdateMyApplication()
> 
> Dim fileReader As String
>         Dim updateExist As Boolean = ApplicationDeployment.CurrentDeployment.CheckForUpdate
> 
>         fileReader = My.Computer.FileSystem.ReadAllText("\\NomeServer\Applicazioni Visual Studio\iUtility\Testo info versione.txt")
>         If updateExist Then
>             CercaAgg.Stop()
>             MsgBox("Nuova versione rilevata!" & vbNewLine & vbNewLine _
>                    & fileReader & vbNewLine & vbNewLine _
>                    & "Click su OK ed attendere installazione aggiornamento...", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Ricerca aggiornamenti...")
>             ApplicationDeployment.CurrentDeployment.Update()
>             MsgBox("Aggiornamento completato..." & vbNewLine _
>                    & "premere OK per riavviare l'applicazione", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Ricerca aggiornamenti...")
>             Application.Restart()
>         End If
> End Sub
> 
> grazie
> Marco

Ho fatto una prova, inserendo nel codice 
Try

Catch ex Exception
MsgBox(ex.Message & "Non trovo la rete")
End Try

ora mi compare il messaggio che dice "Impossibile scaricare il file NomeFile.application" 
nel messaggio ho messo vbOkOnly ma quando premo OK compare la rotella e si blocca tutto...
vorrei che l'app si chiudesse dopo aver premuto ok, un po' come il messaggio che compare se non metto l'eccezione dove compare un messaggio che mi fa chiudere l'app
è possibile?
grazie
Marco

[toc] | [prev] | [standalone]

Back to top | Article view | it.comp.lang.visual-basic

csiph-web