progress bar

Charango
06 de Marzo del 2004
estoy respaldando una bd y se me ocurrio
la gran idea de poner una progress bar
que se vaya llenando a medida que se respaldan
los datos.
el punto es que ignoro si se puede hacer o no
asi que necesito alguna opinion
y si se puede hacer como se hace


sombras
06 de Marzo del 2004
la barra aparace al adicionar el control , las propiedades principales son; ProgressBar.Max = variable (es igual a una variable tipo integer o algo partecido, su funcion es darle el valor maximo de la barra ejemplo ProgressBar.Max =100), ProgressBar.min= variable ( es lo mismo que el max pero su valor sera el minimo deseado ejemplo ProgressBar.Max = 0), progressvar.value= variable (es el valor que tomara la barra en tiempo de ejecucion ejemplo ProgressBar.value=50, la barra se llenara a la mitad en este caso), la propiedad endeble te da la posicion de la barra y hay una opcion donde se coloca hasta abajo de la form, este es un´pequeño ejemplo basico.
se crea una form, se añade un boton y la ProgressBar, el boton es para aumentar la posicion en la barra, el codigo es el siguiente

sub boton_click()
Dim contar as variant

ProgressBar1.Max=100
ProbressBar1.min=0
progressBar1.value=0
for contar=0 to 100 step 1
progressBar1.value=contar
next contar
progressBar1.value=0
end sub

Este es un codigo simple y la barra se recorrera muy rapido y tal vez no puedas verla pero puedes meterle una pausa, en fin es para que veas como trabaja y si lo depuras paso a paso lo veras mejor.

desde Cd Neza Edo Mexico. "SOMBRAS"

Legolas
06 de Marzo del 2004
Para aumentar el valor de diez en diez:
progressbar1.value = progressbar1.value + 10
Esto lo aumentara hasta q llegue a cien, por lo q te dara un error si no lo pones asi:
if progressbar1.value < 100 then progressbar1.value = progressbar1.value + 10

Espero q te haya servido

Consejo: divide a cien por la cantidad de datos a cargar y suma ese numero al value cada vez q termina de cargar un dato.