[VB6] Barra di avanzamento durante l'esecuzione di un processo

[Magicolotto]

Ciao ragazzi, prima di tutto buona pasqua.....

La mia domanda di oggi è come fare ad associare ad un codice di elaborazione una barra di avanzamento per sapere la percentuale dello stato in cui si trova


grazie

[wallrider]

Originariamente inviato da Magicolotto
...

La mia domanda di oggi è come fare ad associare ad un codice di elaborazione una barra di avanzamento per sapere la percentuale ...

Il componente che ti serve è la progress bar, che trovi fra i windows common controls

setti la proprietà max a 100 e man mano che la percentuale di avanzamento aumenta modifichi la proprietà value

[Magicolotto]

ciao chiedo scusa per il ritardo
ma no ho capito come fare ad abbinare d esempio ad
Private Sub Command1_Click()
come faccio
in prorpieta' il valore MAX è gia' a 100

poi

[tossam]

ok, se la proprietà max è già 100, poi fai progressbar1.value = progressbar1.value, ogni tot intervalli di codice....

addirittura la cosa si fa più sbrigativa se il tuo codice prevede un ciclo for next... aumenti il value della progress bar dentro il ciclo (facendo attenzione che il value non superi il max)....

prova questo:

For i = 0 To 9998
ProgressBar1.Value = ProgressBar1.Value + 0.01
Next i
Unload Me

(ho messo un numero di giri alto, per far notare il caricamento della barra (se no sarebbe troppo veloce)

ciao!!

[Magicolotto]

ciao prima di tutto grazieeeeeee

allora : ho provato la barra scorre bene
pero quando arriva alla fine mi da errore cioè :

errore run-time 380
valore della proprieta' non valido

pero ho fatto vari prove ma non riesco

[alka]

Originariamente inviato da Magicolotto
allora : ho provato la barra scorre bene
pero quando arriva alla fine mi da errore cioè :

Molto probabilmente, avrai impostato un valore che supera il massimo.

[Magicolotto]

intendi il valore MAX?

[oregon]

Come tante altre volte ti ho detto, quando hai un errore, devi mostrare il codice che lo genera ... altrimenti si impiegano 60 post per capire cosa succede ...

[Magicolotto]

Dim o As Integer
Dim p As Integer
Dim q As Integer
Dim x As Integer
List3.Clear
x = 0
y = 0
For o = 0 To 89 Step 10 ' parte a contare da bari fino a torino
For p = o To p + 9
For q = p + 1 To o + 9
For u = o + 10 To 99 Step 10 'questa parte da cagliari fino a venezia
For n = u To n + 9
For m = n + 1 To u + 9
ProgressBar1.Value = ProgressBar1.Value + 0.01
sb = Text3(q)
sc = Text3(m)
dist3 = Abs(sb - sc) '1° verticale

If dist3 > 45 Then dist3 = 90 - dist3
If dist3 = 0 Then
For isoto = 10 To 89 Step 10
If Abs(q - m) = isoto Then
Text3(q).BackColor = &HFFFF&
Text3(m).BackColor = &HFFFF&
'List3.AddItem ruotaA & " " & ruotaB & " " & CStr(sb) & " " & CStr(sc) '& " " & CStr(q3) & " " & CStr(q4)
x = x + 1
y = y + 1

End If
Next isoto
End If
Next m
Next n
Next u
Next q
Next p
Next o
End Sub

[oregon]

Ecco ... vedi ... il problema e' evidente ...

Se inserisci la riga

ProgressBar1.Value = ProgressBar1.Value + 0.01

all'interno di 6 cicli nidificati che la chiamano piu' di 90000 volte, porti il suo valore eguale a piu' di 900, superiore a 100 e quindi non lecito ...

Per risolvere devi inserire le righe

ProgressBar1.Max = 1000
ProgressBar1.Value = 0

prima della prima For ...