| Pregunta: | 1602 - BARRA DE PROGRESO AL REINDEXAR |
| Autor: | Andrés Galea |
| Hola a todos, desde ya les estoy agradecido al que me pueda ayudar, necesito hacer que al indexar una tabla, se despliegue una barra de progreso, como las barras de instalación de las aplicaciones, programo en en visual fox 5, pero tengo poca experiencia... | |
| Respuesta: | Jose Jaimes |
| Hola espero que ya tengas solucion si no intenta esto, toma una lista de todas las tabla e indices contendido en tu proyecto luego
cuando empieses a copiar del sistema al lugar de respaldo copy to por cada tabla e indice que utilices agrega una imagen o etiqueta y la pones invisible despues de copiar pones visible el objeto de esta menera simulas en forma real la copia de todas maneras visita www.foxjose.vze.com aqui hay una fuente de una barra | |
| Respuesta: | coco A. |
| 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())* 100 return .t. && ojo siempre devuelves true espero 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 lIndices lIndices=.T. index on campo1 tag clave for MiBarra() function mibarra lIndice=.T. *aqui pones el codigo de tu barra * el procentaje seria (recno()/reccount())* 100 return lIndices && ojo siempre devuelves true esto 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. Saludos Coco | |