La Web del Programador: Comunidad de Programadores
 
    Pregunta:  1086 - BARRA DE PROGRESO
Autor:  Cristóbal Melara
LO QUE HAGO ACTUALMENTE ES ABRIR UNA BASES DE DATOS Y HAGO UN APPEND FROM file.txt TYPE DELIMITED.

LO QUE DESEO HACER ES AGREGAR EL CONTROL ACTIVEX QUE TE MUESTRA EL PROGRESO DE UN PROCESO.

SI FUERA EN UN BUCLE NO HABRIA PROBLEMA, PUES VAS ACTUALIZANDO LA PROPIEDAD VALUE DEL CONTROL CON EL RECNO(), PERO EN UN APPEND NO SE COMO CONTROLAR EL VALOR ACTUAL DEL RECNO() PARA HACER QUE ACTUALIZE LA PROPIEDAD VALUE DEL CONTROL.


  Respuesta:  Rasta X
Esto se hace usando el GaugeControl.
Debes crear un Gauge en una ventana individual,
luego debes calcular o saber previamente la cantidad de registros a procesar (los que se "appendearan"), esto es para calcular el valor de progreso del Gauge.

Después de realizar el Append, debes colocar lo siguiente:
Form_individual.Gauge1.value=(cont_reg/TOT_reg)*100
Form_individual.Gauge1.Refresh

si quieres agregas esto:
Form_individual.Refresh