[Resolvido]Barra de progresso.

Olá amigos,

Tenho esta base teste que estou querendo implementar uma barra de progresso.

Minha dúvida é a seguinte, no meu form de arranque tem o botão CONFERIR, ao clicar ele faz um loop na tabela recebido e busca os itens que preciso.
Queria que a barra de progresso carregasse de acordo com os itens encontrados por este loop, mas não carrega de jeito nenhum.

Vou deixar o link caso os amigos tenham alguma ideia para sugerir.

dropbox.com/s/zijat5e6qtejojm/Base%20Teste.rar?dl=1

Meu amigo, ao invés de Criar Vários campos, deverá criar apenas Um campo. E de acordo com o Lopp deverá ir aumentando esse campo...

Imagina que o tamanho da barra tenha 10Cm

E seu Loop, ante de começar vc saberá que tem 20 Registros. (Utilize Record.Count para saber qnts tem)

Dessa forma, sua Barra de Progresso crescerá 0,5CM a cada Passagem de Loop...

Então ao Final de cada passagem do Loop, cresça o Campo 0,5CM

Até que no Ultimo ele ja estará completo!

Veja a que utilizo aqui:

Olá FabioPaes,

Pode disponibilizar esse exemplo para eu estudar?

Achei bem legal!

Segue o Exemplo.
O Código esta um pouco bagunçado pq removi o Codigo original que eu utilizo essa barra...

Obs:

Para o Formulário tremer menos, utilize o .Requery ao invés do .Repaint. Porem, em algumas movimentações o Formulário não aparece, se utilizado o Requery.

O ponto chave esta na Variável ESCALA: ESCALA = (8 * 567) / rsD.RecordCount


8= O Tamanho da Barra terá no Máximo 8 CM
567= 567 Twips equivale a 1CM


Então eu Converto para CM e divido pela quandidade de Registros. Depois é so ir Crescendo a Barra que nada mais é do que uma Imagem na cor Verde.

Muito bom exemplo FabioPaes,

Consegui resolver meu problema adaptando para o código abaixo:
Deixo exemplo na mensagem 01.

Grato pelo retorno amigo, até a próxima se Deus quiser!