www.icetips.com  Icetips Utilities Documentation 1/14/2012    

Progress Class:  AddToCurrentValue

Previous  Top  Next  


Prototype: (Long pValueToAdd),LONG,PROC

 

pValueToAddInteger value to add to the TotalValue.

 

ReturnsReturns the resulting value

 

This method adds the passed integer value to the TotalValue property and re-calculates the progress bar percent values so when the progressbar is updated next time it will reflect the correct percentage.  

 

Example:

ITP  ITProgressClass

Q1   Queue

F1     Long

     End

Q2   Queue

F2     Byte

     End

I    Long

 Code

 !! Queues are filled here.

 ITP.Init(?Progress1,Records(Q1),True)  !! Initialize with the number of records from Q1

 ITP.AddToCurrentValue(Records(Q2))     !! Add the number of records from Q2

 Loop I = 1 To Records(Q1)

   Get(Q1,I)

   !! Do something

   ITP.Update

 End

 

 Loop I = 1 To Records(Q2)

   Get(Q2,I)

   !! Do something

   ITP.Update

 End

 ITP.Kill

 

 

See also:

TotalValue
Update

ShowProgress

[****]



Direct link to this page: http://www.icetips.com/manuals/utilities/addtocurrentvalue_progress.htm