Barra de progreso en visualfoxpro
Mi duda es como puedo hacer una barra de progreso en visual foxpro, de estas que te muestran el avance de cierto proceso y como puedo insertarlo a mi aplicación, digamos como tendría que implementarla para que se visualizara mientras realiza una búsqueda en varias tablas, gracias
1 Respuesta
Respuesta de marcelocf
1
Local i, lnTablas
*-- Termometro
lo = CREATEOBJECT("Termometro", "Barra de progreso ")
lo.SHOW(2)
lnTablas = 25
*-- Simulo un proceso
FOR ln = 1 TO lnTablas && Tablas a Buscar
.... && Buscar en tabla
i=Calcular_Porcentaje(ln)
lo.Actualizar(i)
*INKEY(.20) && determina la velocidad de la barra
ENDFOR
MESSAGEBOX("Proceso terminado",64)
lo = .NULL.
Podrías calcular cuantas tablas tienes y asignarle el valor 100 al total de tablas (100 %)
A medida que vas buscando en las tablas vas recalculando el porcentaje...
*-- Termometro
lo = CREATEOBJECT("Termometro", "Barra de progreso ")
lo.SHOW(2)
lnTablas = 25
*-- Simulo un proceso
FOR ln = 1 TO lnTablas && Tablas a Buscar
.... && Buscar en tabla
i=Calcular_Porcentaje(ln)
lo.Actualizar(i)
*INKEY(.20) && determina la velocidad de la barra
ENDFOR
MESSAGEBOX("Proceso terminado",64)
lo = .NULL.
Podrías calcular cuantas tablas tienes y asignarle el valor 100 al total de tablas (100 %)
A medida que vas buscando en las tablas vas recalculando el porcentaje...
