| Pregunta: | 18414 - BARRA DE PROGRESO AL INDEXAR ARCHIVOS |
| Autor: | Alberto Karim Gómez Vázquez |
| Solicito su ayuda para lo siguiente, conozco que en Visual Fox pro 5.0 existe una barra de progreso la cual tiene los campos MAX, MIN Y VALUE. Pero como puedo hacer para que esta barra de progreso se incremente al estar indexando un archivo, o sea, cuando comience a indexar el archivo la barra empiece desde 0 y cuando se termine de indexar el archivo la barra llegue al 100%. Agradecere la ayuda. Gracias... | |
| Respuesta: | JOSE RAAV |
| Hola, esto es un poco delicado, la unica forma que puede encontrar es que crees un indice con una funcion, por ejemplo:index on campo1 tag clave for MiBarra()donde mibarra es una funcion de usuario :function mibarra*aqui pones el codigo de tu barra* el procentaje seria (recno()/reccount())* 100return .t. && ojo siempre devuelves trueespero te sirva, debes tener siempre creda la funcion, mejor si la tienes como un programa aparte y mejor aun si crear una variable publica osea :Public lIndiceslIndices=.T.index on campo1 tag clave for MiBarra()function mibarralIndice=.T.*aqui pones el codigo de tu barra* el procentaje seria (recno()/reccount())* 100return lIndices && ojo siempre devuelves trueesto permitira que no dependas de la funcion sino de la varible lIndices, ahora siempre debes tenerla creada porque si no cuando abras la tabla con el indice yu no existe te enviara mensaje de error, pero es la unica forma que encontre para hacerle un termometro.SaludosCoco | |