Contains an object reference to the Project object for the currently active Project Manager window. Read-only at design time and run time.
Remarks
Example
The following example uses the ActiveProject property to get a count of Reports and Labels in an active project. If the MyApp project does not exist, it will be created when MODIFY PROJECT is executed.
| Copy Code |
---|
MODIFY PROJECT myApp NOSHOW NOWAIT
nRptsLbls=0
FOR EACH oFile IN _VFP.ACTIVEPROJECT.FILES
IF INLIST(oFile.Type, "R", "B") && Report and Label
nRptsLbls=nRptsLbls+1
ENDIF
ENDFOR |
See Also