Hola
Que necesitas exactamente? Dependiendo de lo que buscas, la implementación puede ser de una forma u otra.
Lo que te tiene que quedar claro es que la barra de progreso tiene tres propiedades que son muy importantes y que son:
Minimum --> Es el valor con el que inicia la barra (normalmente 0)
Maximum --> Es el valor máximo de la barra y con el que se terminará la carga
Value --> Es el valor actual de la barra y que nunca puede ser superior al Maximum
Dicho esto, tienes que ir jugando con la propiedad Value mientras estás haciendo tu proceso, es decir...
Yo lo que hago es dividir la barra en tantas partes como procesos tengo para que se llene, es decir, si tengo que cargue 5 procesos (carga_nombre, carga_apellido, carga_domicilio, carga_edad y carga_ciudad) y el valor Maximum es 100, pues hago lo siguiente:
Código vb:
Ver originalpublic sub cargadatos()
'pongo los parametros de la barra de progreso
progressbar1.minimum=0
progressbar1.maximum=100
progressbar1.value=0
'incremento la barra conforme voy haciendo los procesos
nombre=carga_nombre()
progressbar1.value=progressbar1.value + 20
apellido=carga_apellido()
progressbar1.value=progressbar1.value + 20
domicilio=carga_domicilio()
progressbar1.value=progressbar1.value + 20
edad=carga_edad()
progressbar1.value=progressbar1.value + 20
ciudad=carga_ciudad()
progressbar1.value=progressbar1.value + 20
'una vez ha terminado el proceso, escondo la barra
progressbar1.visible = false
end sub
Si te fijas, el 20 sale de dividir 100 (el Maximum) entre 5 procesos que tengo, para que se llene de forma equilibrada.
Espero que te sirva de ayuda.
Saludos