FoxPro/Visual FoxPro - Barra Progresiva

Hola.
Necesitaría que me ayuden con lo siguiente.
Quiero hacer en el reindexado de mi aplicación una barra progresiva, que muestre desde 0% (al principio) hasta 100% (al final).
La verdad no sé como hacerlo. Podrían orientarme con esto.

Gracias

Saludos Javier, espero que conteste que si te funciona esto que te envio, poque la verdad es que casi la mayoria de ustedes no contestan las diferentes ayudas que se le brinda.

Fijate es facil,


Solo tienes que colocar el objeto de la barra progres bar

Un ejemplo para que lo hagas y luego lo pones en funcionamiento en tu codigo ok.

Mira create una forma

Agrega un boton

Utilizaras una tabla cualquiera que tenga registros, si tiene muchos registros se ve mejor

Agregale a la forma la barra, esta es un obejeto, que lo puedes encontrar como

ProgCtrl

ok, Ya

Ahora tienes en el evento click del boton, esto:

Select Tabla1 &&tabla que contiene los registos
Go top

ThisForm.Olecontrol1.Visible =.T.
ThisForm.Olecontrol1.max =reccount()+2
ThisForm.Olecontrol1.value = 1

Do while !eof()
ThisForm.Olecontrol1.Value = ThisForm.Olecontrol1.value+1
skip
If eof()
exit
endif
Enddo

Ahora ponle cabeza y empieza a tirar codigo en el tuyo

Att.
Antonio R. Moquete Mejia
Santo Domingo Republica Dominicana

Antonio:

Te agradezco por tu ayuda. Pero soy un poco nuevo con esto. Me podés decir como colocar el objeto de la barra progres bar. Y donde buscarla.

Saludos,
Mira te envie un form con una barra a ver si te llego, de lo contrario pues te la envio de otra forma

Me dejas saber si te llego,
ok