Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > it.comp.lang.visual-basic > #19764
| Newsgroups | it.comp.lang.visual-basic |
|---|---|
| Date | 2020-04-16 00:53 -0700 |
| Message-ID | <bfe82526-df33-408a-9192-e48d37e310cd@googlegroups.com> (permalink) |
| Subject | VB .NET update application |
| From | Marco75 <marcoporzi75@gmail.com> |
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
Back to it.comp.lang.visual-basic | Previous | Next — Next in thread | Find similar
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