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

Groups > it.comp.lang.visual-basic > #19765

Re: VB .NET update application

Show all headers | View raw

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

Back to it.comp.lang.visual-basic | Previous | Next — Previous in thread | Find similar

Thread

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

csiph-web