vfp:弹出式进度条

SELECT backdata
myfrm=NewObject("_thermometer","tycommon","","正在进行工资核算... ...")
*tycommon是可视类库文件
*_thermometer是类名
COUNT TO lnReccount
myfrm.iBasis=lnReccount
myfrm.SHOW()
lnPercent=0
SCAN
lnPercent=lnPercent+1
myfrm.update(lnPercent,"")
ends
myfrm.complete

你可能感兴趣的:(职场,进度,休闲,vfp,弹出式)