如题
热心网友
SubInitializePrintPercentComplete(29,CurrentRecord,NotesDocumentCollection。Count)EndSubFunctionPercentComplete(FTGDefaultAsInteger,FTGCurrentAsDouble,FTGTotalAsDouble)AsString%REM :FranklinTempletonGroupD :2/27/97 :NewIndicator(),%ENDREMDimFTGLengthAsIntegerDimFTGCountAsIntegerPercentComplete=NewIndicator(FTGDefault)FTGLength=(FTGCurrent*FTGDefault)/FTGTotalIfFTGlength0ThenForFTGcount=2ToFTGlength+1'Mid(PercentComplete,FTGCount,1)=Chr(127)Mid(PercentComplete,FTGCount,1)=""NextFTGcountEndIfMid(PercentComplete,FTGDefault+4,4)=Cstr(Cint((FTGCurrent/FTGTotal)*100))+"%"EndFunctionFunctionNewIndicator(FTGDefaultAsInteger)AsString%REM :FranklinTempletonGroupD :2/27/97 (127)ForFTGcount=1ToFTGDefault'NewIndicator=NewIndicator+"-"NewIndicator=NewIndicator+"■"NextFTGCountNewIndicator=NewIndicator+Chr(127)+"0%Complete"EndFunction。