Article ID: 259296 - Last Review: February 12, 2007 - Revision: 2.4

How to display a progress bar in the status bar in Visual FoxPro 9.0 and earlier versions

View products that this article applies to.

System TipThis article applies to a different operating system than the one you are using. Article content that may not be relevant to you is disabled.

This article was previously published under Q259296

SUMMARY

This article illustrates how to create a progress bar to display in a status bar when a SELECT-SQL query is performed in Microsoft Visual FoxPro 9.0 and earlier versions.

Back to the top

MORE INFORMATION

Sample Code

Create a program (.prg) file in Visual FoxPro.

Put the following code into the .prg file:

SET STATUS BAR ON
PUBLIC obar
**Open table
cTable = GETFILE("dbf")
IF EMPTY(cTable)
   RETURN .T.
ENDIF   

**Create the Progress bar object
obar = CREATEOBJECT("POnStatus")
obar.pIndicatorStyle = "||"
SELECT * FROM (cTable) WHERE obar.DrawStatus(RECNO(), RECCOUNT())
SET MESSAGE TO
CLOSE ALL
RELEASE ALL

** Class definition for the Progress bar object
DEFINE CLASS POnStatus AS Custom
    pIndicatorStyle = ""
     
    PROCEDURE DrawStatus
    LPARAMETER nRecno, nReccount
    LOCAL nPtr, cIndicator
    
        nPtr = INT(nRecno*100/nReccount)
        cIndicator = REPLICATE(THIS.pIndicatorStyle, nPtr) + ;
           SPACE(2) + STR(nPtr)+"%"
        SET MESSAGE TO LEFT(cIndicator, LEN(cIndicator))
        RETURN .T.
    ENDPROC

ENDDEFINE

Save and run the .prg file.
When prompted with the Open dialog box, select a table such as the Customer table in the Samples directory. While the query runs, you can see the progress bar updating in the status bar.

Back to the top