Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > it.comp.lang.visual-basic > #19976
| Newsgroups | it.comp.lang.visual-basic |
|---|---|
| Date | 2022-06-24 07:10 -0700 |
| Message-ID | <dbe5815e-c265-4c76-ba38-84060d7c5210n@googlegroups.com> (permalink) |
| Subject | Aggiornamento applicazione |
| From | Marco75 <marcoporzi75@gmail.com> |
Ciao,
sto lavorando con Visual Studio 2019 e ho impostato le proprietà di ClickOnce.
oltre a questo, ho un timer che gira e ogni x minuti verifica se ci sono aggiornamenti dell'app. Se li trova apre un form con le info della versione e dopo l'ok dell'utente chiude e aggiorna.
Questa modalità ha sempre funzionato ma dopo l'ultimo rilascio allo scadere del timer chiede di chiudere l'app anche se non ci sono aggiornamenti! (non mostra neanche il form con le info versione).
il codice che parte ogni X minuti è il seguente, magari c'è qualche errore o si può gestire meglio, di seguito il codice. Consigli?
grazie
Marco
Public Sub UpdateMyApplication()
Try
Dim updateExist As Boolean = ApplicationDeployment.CurrentDeployment.CheckForUpdate
If updateExist Then
CercaAgg.Stop() 'Fermo il timer
MessageBox.Show("Nuova versione rilevata!" & vbNewLine & vbNewLine _
& rtbInfoVersione.Text & vbNewLine & vbNewLine _
& "Click su OK ed attendere installazione aggiornamento...", "Ricerca aggiornamenti...", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
ApplicationDeployment.CurrentDeployment.Update()
MsgBox("Aggiornamento completato..." & vbNewLine _
& "premere OK per riavviare l'applicazione", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Ricerca aggiornamenti...")
Application.Restart()
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
Application.Restart()
End Try
Back to it.comp.lang.visual-basic | Previous | Next | Find similar
Aggiornamento applicazione Marco75 <marcoporzi75@gmail.com> - 2022-06-24 07:10 -0700
csiph-web