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

VB .NET update application

X-Received	by 2002:a37:71c7:: with SMTP id m190mr30537240qkc.177.1587023607030; Thu, 16 Apr 2020 00:53:27 -0700 (PDT)
X-Received	by 2002:a37:a4d2:: with SMTP id n201mr7269027qke.121.1587023606779; Thu, 16 Apr 2020 00:53:26 -0700 (PDT)
Path	csiph.com!xmission!news.snarked.org!border2.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups	it.comp.lang.visual-basic
Date	Thu, 16 Apr 2020 00:53:26 -0700 (PDT)
Complaints-To	groups-abuse@google.com
Injection-Info	google-groups.googlegroups.com; posting-host=185.56.159.173; posting-account=yvxj_woAAABxrxq8XihQzP-tWUWpycQc
NNTP-Posting-Host	185.56.159.173
User-Agent	G2/1.0
MIME-Version	1.0
Message-ID	<bfe82526-df33-408a-9192-e48d37e310cd@googlegroups.com> (permalink)
Subject	VB .NET update application
From	Marco75 <marcoporzi75@gmail.com>
Injection-Date	Thu, 16 Apr 2020 07:53:27 +0000
Content-Type	text/plain; charset="UTF-8"
Content-Transfer-Encoding	quoted-printable
Lines	40
Xref	csiph.com it.comp.lang.visual-basic:19764

Show key headers only | View raw

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

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