Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Marcos Pereira
  Where is Marcos Pereira?
 Rio de Janeiro
 Brazil
 Marcos Pereira
 To: Yousfi Benameur
  Where is Yousfi Benameur?
 El Bayadh
 Algeria
 Yousfi Benameur
 Tags
Subject: RE: thermometer in index
Thread ID: 209311 Message ID: 209441 # Views: 1 # Ratings: 0
Version: Visual FoxPro 9 Category: General VFP Topics
Date: Sunday, December 28, 2008 10:19:30 PM         
   


> > good night in brazil.
> >
> > how do use thermometer in index on command.
> >
> >
> > ex.:
> >
CASE ARQUIVO = "xxxxSUAR"
> > NOMEARQ = "xxxxSUAR"
> > INDEXACAO("FILIAL + NOME","TAG1","xxxxSUAR.001")
> > 
> > PROCEDURE INDEXACAO(A,C,B)
> > PUBL PARC_EFE,ARQ,IND, cKey 
> > 
> > ARQ = NOMEARQ + ".DBF" 
> > IND = ALLTRIM(B) 
> > ckey = ALLTRIM(a) 
> > 
> > DO WHILE .T.
> > USE &NOMEARQ EXCLUSIVE IN 0
> > SELE &NOMEARQ
> > GO TOP
> > EXIT
> > ENDDO
> > oProgress=createObject("myThermo")
> > oProgress.nMaxValue=reccount()
> > oProgress.nValue=1
> > oProgress.Show()
> > 
> > a1=SECONDS()
> > 
> > IF !FILE(IND) 
> > INDEX ON IndexProgress(&A,RECNO(),RECCOUNT()) tag &C OF &B
> > oProgress.Release()
> > ENDIF 
> > SELECT (nomearq)
> > USE 
> > RETURN(.T.)
> > 
> > FUNCTION IndexProgress
> > LPARAMETER tcValue, tnRecno, tnReccount
> > oProgress.nValue=tnRecno
> > oProgress.lBl.caption = ckey
> > oProgress.Lbl_High.caption = "Criando Indice : " + nomearq
> > oProgress.refresh()
> > RETURN tcValue
> > ENDFUNC
> > 

> >
> > Obrigado,thanks
>
> Hi marcos
> In indexing you cannot control the progession of this operation.Its a block operation and cannot apply record by record...
> You can change the mouse (hourglas in this operation and restore to default in end).
> you can also at start, animate a small avi (by an activex) at the begining at stop it/hide at the end(like an operation copy file or download).
> regards


Thanks, Yousfi. I liked their idea, you have an example or site this issue?



Marcos

ENTIRE THREAD

thermometer in index Posted by Marcos Pereira @ 12/27/2008 6:21:30 AM
RE: thermometer in index Posted by tushar @ 12/27/2008 7:11:34 AM
RE: thermometer in index Posted by Marcos Pereira @ 12/27/2008 11:55:45 AM
RE: thermometer in index Posted by Mike Yearwood @ 12/27/2008 4:38:33 PM
RE: thermometer in index Posted by Marcos Pereira @ 12/27/2008 5:05:11 PM
RE: thermometer in index Posted by Mike Yearwood @ 12/28/2008 1:58:43 PM
RE: thermometer in index Posted by Yousfi Benameur @ 12/28/2008 8:05:01 PM
RE: thermometer in index Posted by Marcos Pereira @ 12/28/2008 10:19:30 PM
RE: thermometer in index Posted by Yousfi Benameur @ 12/28/2008 10:27:43 PM
RE: thermometer in index Posted by Marcos Pereira @ 12/28/2008 10:54:30 PM
RE: thermometer in index Posted by Glenn Villar @ 12/29/2008 3:04:40 AM
RE: thermometer in index Posted by Marcos Pereira @ 12/29/2008 1:33:55 PM