showprogress.prg

来自「固定资产管理系统源码..用于企业资产管理,用VFP编码」· PRG 代码 · 共 14 行

LPARAMETERS nMax
PUBLIC oProgressBar
IF VARTYPE(oProgressBar)<>"O"
    oProgressBar=NEWOBJECT("ProgressBar","Libs.vcx")       &&建立工具栏对象
    oProgressBar.Show()                                    &&显示对象
    oProgressBar.Dock(0)                                   &&在VFP主窗口上方停放
ENDIF 

IF nMax>0
    oProgressBar.cntProg.Visible=.T.
    oProgressBar.cntProg.oleProg.Max=nMax
    oProgressBar.cntProg.oleProg.Value=0
ENDIF