|
|
Hola,
Mira tu codigo si hace que avance la progress bar solo que como es tan pequeño tu intervalo lo se nota, si deseas que le puedes añadir un prgBarra.Refresh despues de que lo avanzas es decir asi:
Pregunta de menosmola10 al Tablón Público
ProgressBar
En mi aplicación utilizo una barra de progreso para indicar cuanto falta para que un algoritmo termine su ejecución, pero el proceso de llenado de la barra no se hace linealmente, es decir, primero está un tiempo vacío y cuando el algoritmo acaba la llena de golpe, en lugar de ir llenándolo a cada iteración del algoritmo, que es el siguiente:
prgBarra.Min = 0: prgBarra.Max = 10
prgBarra.Value = prgBarra.Min: prgBarra.Visible = True
For c3 = 0 To 9
c2 = 999
Do While c2 > 3
c1 = Int((999 * Rnd) + 1)
c4 = Val(Right(CStr(Second
(Time)), 1))
c4 = c4 + c1
If c4 > 0 And c4 < 3 Then
c2 = c4: aD(c3) = c2
End If
Loop
prgBarra.Value=prgBarra.Value + 1
prgBarra.Refresh
Next c3
Otros de los problemas que podrias tener es que finalmente tu intervalo de barra es muy pequeño a ver trata de probarla con 100 por ejemplo alli si lo podras notar con mayor claridad.
espero que esto te pueda ayudar
|