ProgressBar: Cadê o final ?

Aprenda a animar uma barra de progressos, nos casos em que não se sabe a quantidade de informação a ser processada.

Para criar a barra de progressos, utilize o exemplo mostrado no artigo "Mostre o seu progresso".

Defina as novas variáveis na working-storage section:

77 bHandle pic 9(09) comp-5 value zeros.

77 wsMilisegundos pic 9(09) comp-5 value zeros.

78 PBM-SETMARQUEE value 1034.

78 PBS-MARQUEE value h"08".

Na procedure division, depois de criada a barra de progressos,basta adicionar os seguintes comandos antes do processamentode qualquer informação:

invoke umaProgressBar "AddBasicApiFlags"

using by value PBS-MARQUEE size 4

invoke umaProgressBar "getSystemHandle" returning bHandle

move 200 to wsMilisegundos

call WAPI "SendMessageA" using by value bHandle

by value PBM-SETMARQUEE

by value 1

by value wsMilisegundos

Para pausar a animação da barra de progressos:

invoke umaProgressBar "getSystemHandle" returning bHandle

move 0 to wsMilisegundos

call WAPI "SendMessageA" using by value bHandle

by value PBM-SETMARQUEE

by value 0

by value wsMilisegundos

Esse procedimento não requer que um valor seja passado para o componente a cada informação processada. Assim que a API é chamada, o componente passa a mostrar a animação automaticamente. A variável wsMilisegundos especifica o tempo da animação. Quanto menor o valor passado, mais rápida será a animação.