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>
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

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 disconn=
ette causando un errore nell'applicazione che viene chiusa per eccezione no=
n gestita. In pratica, se manca la rete non pu=C3=B2 verificare l'aggiornam=
ento e va in errore.

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

il timer lancia UpdateMyApplication

Public Sub UpdateMyApplication()

Dim fileReader As String
        Dim updateExist As Boolean =3D ApplicationDeployment.CurrentDeploym=
ent.CheckForUpdate

        fileReader =3D My.Computer.FileSystem.ReadAllText("\\NomeServer\App=
licazioni 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