La Web del Programador: Comunidad de Programadores
 
    Pregunta:  27513 - BARRAS DE PROGRESO EN VISUAL FOXPRO 6.0
Autor:  Mario Flores Fierro
Solicito a la comunidad de programadores si es posible me puedan ayudar a lo siguiente:

Necesito indexar archivos pero necesito ir mostrando el avance, y esto solo con una barra de progreso.
Claro esta que no se como crearla e incorporarla a mi aplicacion, mucho les agradecere su ayuda. Gracias ....

Saludos

  Respuesta:  Kata
Insert un text1 en form y un timer y en este ultimo va este codigo
Probalo con tus parametros
nAncho = thisform.text1.width - 6

if thisform.label1.width <= nAncho
thisform.label1.width = thisform.label1.width + 2
else
thisform.timer1.enabled = .f.
thisform.label2.caption = "Proceso Terminado"
endif