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

Re: VB .NET update application

X-Received	by 2002:ac8:1943:: with SMTP id g3mr1245605qtk.323.1587121906781; Fri, 17 Apr 2020 04:11:46 -0700 (PDT)
X-Received	by 2002:a37:8741:: with SMTP id j62mr2444441qkd.441.1587121906521; Fri, 17 Apr 2020 04:11:46 -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	Fri, 17 Apr 2020 04:11:46 -0700 (PDT)
In-Reply-To	<bfe82526-df33-408a-9192-e48d37e310cd@googlegroups.com>
Complaints-To	groups-abuse@google.com
Injection-Info	google-groups.googlegroups.com; posting-host=185.56.158.223; posting-account=yvxj_woAAABxrxq8XihQzP-tWUWpycQc
NNTP-Posting-Host	185.56.158.223
References	<bfe82526-df33-408a-9192-e48d37e310cd@googlegroups.com>
User-Agent	G2/1.0
MIME-Version	1.0
Message-ID	<387fafec-23e0-46d9-b28a-ee9bd22af129@googlegroups.com> (permalink)
Subject	Re: VB .NET update application
From	Marco75 <marcoporzi75@gmail.com>
Injection-Date	Fri, 17 Apr 2020 11:11:46 +0000
Content-Type	text/plain; charset="UTF-8"
Content-Transfer-Encoding	quoted-printable
Lines	59
Xref	csiph.com it.comp.lang.visual-basic:19765

Show key headers only | 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