[VB6] Gestione di una ProgressBar per l'invio di una email

[mcolombo72]

Ciao a tutti,
ho una piccola applicazione che dopo aver eseguito determinati processi, manda e-mail ad un determinato indirizzo, inviando anche degli allegati.
Io vorrei gestire una barra di avanzamento all'interno del seguente ciclo:

For nf = 1 To UBound(arfile)
If IsNumeric(Right(Mid(arfile(nf), 1, 8), 4)) Then
If OptScelta(0).Value Then
sSubject = "prova"
End If
sdir = sPath & "\" & arfile(nf)
If Not fInvioLotus(sSubject, sdir) Then
MsgBox "Attenzione, invio e-mail non riuscito", vbCritical
End If
End If
Next

qualcuno sa come fare?

Grazie 1000

[Stefano1984Mn]

Prova cosi


x = UBound(arfile)
ProgressBar1.Max = x
ProgressBar1.Min = 1

poi all'interno del ciclo incrementi la progressbar1 facendo

ProgressBar1.Value = i


ciao

[wallrider]

la progressbar ha bisogno di due info
il max(all'inizio)
il value(da aggiornare quando vuoi)

disponi di tutti e due, mi sembra

[mcolombo72]

Grazie ragazzi....
mi chiedo solo una cosa....
la progress bar (nella mia applicazione) dovrà essere collegata al tempo usato dal pc per eseguire il codice per l'invio dell'email.....come faccio a questo punto ad incrementare la proprietà .value?

[wallrider]

non ho capito quella del tempo

[mcolombo72]

ciao...
in pratica io vorrei che a barra incrementasse nel tempo d'attesa dell'invio dell'e-mail (quindi all'inzio della funzione sarà a zoro, al termine della funzione a 100)....pigiando il pulsante, l'utente attiva l'invio dell'email in background e la barra può dargli l'evidenza che il programma sta ancora andando..

spero di essermi spiegato...

[kalosjo]

Non puoi sapere quanto impiegherà....

Puoi mettere un timer settato in modo che ogni secondo aumenti il value della progress bar e lo riporti a 1 quando è al massimo, fini a che non viene inviata l'e-mail

[alka]

L'avanzamento della ProgressBar condizionato dal progresso di invio del messaggio email dipende dallo strumento, dalla libreria o dal componente utilizzato per l'invio del messaggio stesso: se tale libreria ti fornisce un evento, ad esempio, col quale sei in grado di determinare il numero di byte inviati sul numero totale di byte da inviare, già conosciuto in precedenza, impostare quest'ultimo come valore massimo della barra e il numero di byte spediti in un determinato istante come valore da visualizzare è una cosa triviale e banale.

Il tutto dipende da quante informazioni sei in grado di estrarre dall'oggetto che invia le email; in caso contrario, ciò che puoi fare è simulare tale stima, o cercare di preventivare il tempo necessario, ma non saranno senz'altro informazioni altrettanto accurate.

Ciao!

[mcolombo72]

esattamente......
a questo punto mi metto in caccia su internet per trovare qualcosa che faccia al caso mio...

Grazie 1000

ciao ciao