Página 1 de 1
Barra de progresso para criar arquiv de indice
Enviado: 21 Mai 2014 15:45
por nilv
Boa tarde, Gostaria de saber como faço para gerar a barra de progresso na hora de criar indice, no clipper eu usava assim:
index on nome to cliente.ntx EVAL PROGRESS(Cliente,Cliente.ntx) EVERY LASTREC()/100
em minigui como seria usando o PROGRESSBAR:
Barra de progresso para criar arquiv de indice
Enviado: 21 Mai 2014 18:04
por Pablo César
Olha achei este exemplo:
Código: Selecionar todos
..//..
@ 30,19 PROGRESSBAR ProgressBar_1 RANGE 0,100 WIDTH 252 HEIGHT 18
@ 6,94 LABEL Label_001 VALUE "Completed " WIDTH 120 HEIGHT 24
FUNCTION _INDEXAR(cCampo,cArqIdx)
INDEX ON &cCampo TO &ArqIdx EVAL NtxProgress() EVERY LASTREC()/20
RETURN NIL
FUNCTION NtxProgress()
LOCAL nComplete := INT((RECNO()/LASTREC()) * 100)
Local cComplete := LTRIM(STR(nComplete))
Form_idx.Label_001.Value := "Completed "+ cComplete + "%"
Form_idx.ProgressBar_1.Value := nComplete
Return .t.
Barra de progresso para criar arquiv de indice
Enviado: 22 Mai 2014 00:04
por nilv
Valeu Pablo, ficou ótimo, obrigado.
Nilson Vilela