FoxPro/Visual FoxPro - Como genero una barra de progreso

Hola Amigo.

Quien tiene algun codigo para reindexar los archivos y que se muestre en alguna barra de progreso al estilo de instalacion.
Alguna direccion donde bajar algo.

Gracias de antemano.

Si usas el vfp 6 no hay problema, busca la clase _thermometer en
la libreria _therm.vcx. Ademas busca el ejmplo que trae el vfp para
usarla. Creo que el ejemplo es therm.scx.

Ahora, tendrias que sincronizar la ejecucion de los comandos con la
barra de progreso, es decir, llevar la secuencia de que comandos se
se terminan de ejecutar y asi sucesivamente actualizar la barra.

Saludos

Mira este es el codigo que utilizo yo en mis programas:

miForma.progressbar1.value = 0 && Establece el valor del progressbar a cero
select miTabla && Esta es la tabla o cursor que vas a recorrer
var_registros = reccount() && Obtienes el total de registros de la tabla o cursor
I = 1
go top
do while !eof()
miforma.progressbar1.value = I * 100/var_registros
miForma.label1.caption = str(I * 100/var_registros , 6) + "%"
I = I + 1
AQUI VA EL RESTO DE TU CODIGO
enddo

Nota: label1 es el que mostrara el porcentaje de avance del proceso

Espero que te sirva, si tienes dudas mandame un mail

Saludos