[VB6] Scaricare Form al termine di un'operazione con ProgressBar

[maurelio79]

Ciao a tutti, sono parecchio inesperto di VB.
Devo fare una mini applicazione che visualizza una progress bar, dopo che la progress bar arriva al 100%, deve comparire un messaggio del tipo "aggiornamento completato" e poi si deve chiudere: il problema è che se uso unload me, l'applicazione si chiude all'istante senza visualizzare tale messaggio. Ho letto qualcosa a proposito di queryunload, ma non ho ben capito come si utilizza.
Mi dareste una mano?

Grazie mille a tutti.

[LeleFT]

Spostato.


Ciao.

[kalosjo]

Dovresti utilizzare un timer.
Quando arriva al 100%, metti il timer a 5 secondi e dai il messaggio.
Allo scadere del timer fai unload.
Queryunload serve poco allo scopo

[maurelio79]

Scusami ma sono veramente ignorante in VB:
io scritto ciò:

Private Sub Timer1_Timer()
Timer1.Enabled = True
Timer1.Interval = 5000
End Sub 

Function sClose()
Dim f As Form
If testo = "Finito" Then
testo2 = "Aggiornamento Completato"
Else
testo2 = "Aggiornamento non Completato"
End If
Label2.Caption = testo2
Call Timer1_Timer
For Each f In Forms
Unload f
Set f = Nothing
Next
End Function 

Questo è solo un esempio, nel lavoro definitivo non ci sarà un ciclo if, ma comunque il form si chiude subito e non visualizzo nessun messaggio.

Come devo fare?

[kalosjo]

Inserisci un timer nel form, con interval=0
appena finisce l'elaborazione, metti l'interval a 5000

l'unload mettilo nell'evento timer:

 
Private Sub Timer1_Timer()
  For Each f In Forms
    Unload f
    Set f = Nothing
  Next
  Timer1.Interval=0
End Sub


Function sClose()
Dim f As Form
  If testo = "Finito" Then
    testo2 = "Aggiornamento Completato"
  Else
    testo2 = "Aggiornamento non Completato"
  End If
  Label2.Caption = testo2
  Timer1.Interval=5000
End Function

[maurelio79]

Perfetto! Così funziona, grazie mille.