Ver Mensaje Individual
  #5
Antiguo 19 de abril de 2016, 09:53
Josber
Moderador Global
Activista del Foro: Activista del Foro - Issue reason: Por aportar manuales y enriquecer  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos 
Última Actividad 20.09.2026 12:17
Posts Posts: 883
Likes enviados Enviados: 418
Likes recibidos Recibidos: 492

Yo utilizo una barra que es un ocs de terceros, el que trae PWC9, no me gusta nada, el "repintado" que hace es muy malo, el que uso se llama "progressbar-xp.ocx", que trae bastantes opciones y es muy sencillo de utilizar.
Como te ha dicho Rui, no tienes que hacerlo con un timer, sino:

- Saber el número total de registros, o lo haces con la utilidad que te ha dicho Rui, o haces una doble lectura del fichero, (la primera para saber el total de registros).
- Pones el total de registros en la propiedad "Max" de la barra de progreso y 1 en la propiedad "Min"
- Por cada lectura que hagas, sumas 1 a un contador y ese contador lo mueves a la propiedad "Value" de la barra de progreso
- Cuando termines de leer, pones a 0 la propiedad "Visible" de la barra

Por ejemplo:

Código COBOL:
  1. INICIO.
  2.         MOVE CONTASQL TO "Max" OF PROGRESO.
  3.         MOVE 1        TO "Min" OF PROGRESO.
  4.         MOVE 1        TO "Visible" OF PROGRESO.
  5.                      .
  6.                      .
  7.                      .
  8. LEER.
  9.         READ fichero NEXT .....
  10.         ADD 1 TO CONTA.
  11.         MOVE CONTA TO "Value" OF PROGRESO.
  12.                      .
  13.                      .
  14.                      .
  15. FIN.
  16.         MOVE 0        TO "Visible" OF PROGRESO.


Y con eso debe de funcionarte, si quieres el ocx, dilo y lo subo.

Un saludo.-
Josber is offline   Responder Con Cita