Skip to content

VFP: Progress bar

VFP Progress bar using foundation class

Using the foundation class you can have a progress bar in no time. Hardest part is to locate the FFC folder, but most of the times it’s just beneath the vfp install program folder found with SYS(2004).

Half this code is for slowing down the demo:

* Progressbar with VFP Foundation Classes
* Source:
* Free after Carl Warner's article at 

 lnPause = 2 && seconds between steps
 lcLibraryLocation = SYS(2004)+[FFC\]
 loTherm = NewObject([_thermometer],lcLibraryLocation+[_therm],[],[Progress Example])
 loTherm.Update(10) && just set the progress bar
 loTherm.Update(20,[80 percent to go]) && set progress bar and show a subtitle
 loTherm.Update(50,[half way])

Leave a Reply

Your email address will not be published. Required fields are marked *