Durante le elaborazioni lunghe è sempre importante mostrare all'utente lo stato di avanzamento e il tempo ancora necessario per l'elaborazione.
 Questa finestra permette, con alcuni semplici comandi, di avere a video:
- l'avanzamento dell'elaborazione;
- il tempo rimanente;
- l'ora di termine prevista.
|
- Inizializza(NrTotale): inizializza la finestra con il numero totale dei passaggi previsti
- Avanzamento(NrAttuale, Messaggio): imposta l'avanzamento con il passaggio attuale ed un eventuale messaggio esplicativo, viene riportato sopra la barra.
I prametri modificabili della finestra indicano quali informazioni dare all'utente:
- VisCompletato: visualizza "Completato: xx %" ;
- VisRimanente: visualizza "tempo rimanente: xx:xx " ;
- VisOraFine: visualizza "termine previsto alle: x:xx:xx".
L'esempio qui sotto mostra come è possibile utilizzare la finestra (FAvanzamento) all'interno del proprio codice:
Public Sub Test()
NrTot = 30
FAvanzamento.VisOraFine = true
FAvanzamento.Inizializza (NrTot)
FAvanzamento.Show 0
Nr = 1
While (Nr < NrTot)
FAvanzamento.Avanzamento NrAttuale:=Nr, Messaggio:="Elaboro nr." & Nr
Application.Wait (
Now + TimeValue("00:00:01"))
Nr = Nr + 1
Wend
Unload FAvanzamento
End Sub
I file scaricabili associati a questo articolo e il codice delle funzioni sono riservati agli utenti abbonati del sito.
Gli esempi contenuti nel sito sono per uso personale, non é consentito l'uso professionale, commerciale o la riproduzione senza autorizzazione.
