Barra de Progresso (apanhando)

[janio]

Pessoal,

Apanhando muito pra fazer uma barra de progresso!

Total de Registros = 1000

@ 020,070 PROGRESSBAR oBar OF oDlg SIZE 505,20 BARWIDTH 20 QUANTITY 100

Onde (e como) informo que a quantidade total da barra de progresso eh 1000 e que o avanço eh um a um, ou seja, a cada incremento de um ir avançando a barra de progresso até completar a quantidade total (1000, no caso)

Janio

[Itamar M. Lins Jr.]

Ola!
Kkkk, até hoje eu apanho com isso.
Tem assim:

Código: Selecionar todos

   nReg := 0 ;  tReg := dt->(RecCount())
   oBar := HProgressBar():NewBox( "Criando indices deposito, "+lTrim(str(nReg,9))+" De "+lTrim(str(tReg,9))+" Registro(s)",,0,400,, tReg, tReg,,.f. )

   index on cod_mercad tag dt01 to deposito.cdx  eval {||oBar:Set(,Recno()),.t.}

Código: Selecionar todos

...
oBar := HProgressBar():NewBox( "Criando HTML, "+lTrim(str(nRec,9))+" De "+lTrim(Str(nTRec,9))+" Registro(s)",,,350,,nTRec)
...

      pg->(DbSkip())
      oBar:Step("Criando HTML, "+lTrim(str(++nRec,9))+" De "+lTrim(Str(nTRec,9))+" Registro(s)")
...

Não esquecer de:

oBar:Close()

no final!

Saudações,
Itamar M. Lins Jr.

[janio]

Pensa num negocio dificil!

Mas parece q agora deu certo!

:|<