您的当前位置:首页正文

PB进度条

来源:九壹网
long ll_i,ll_rowcount

ll_rowcount = dw_1.rowcount( )
if ll_rowcount <= 0 then return


SetPointer(HourGlass!) //鼠标变成沙漏状

//w_sys_tip为进度条窗口,里面只需添加文本和进度条空间,无需写如何代码,最大化按钮去掉。

Open(w_sys_tip) //打开进度条窗口
w_sys_tip.st_info.text = '系统正在比对上月数据,请耐心等候...' //进度条窗口文本显示
w_sys_tip.hpb_bar.MaxPosition = ll_rowcount + 1 //进度条窗口中进度条的最大值


for ll_i = 1 to ll_rowcount

//执行循环的代码

//


if w_sys_tip.hpb_bar.Position <= ll_rowcount then //设置进度条自动增长。
w_sys_tip.hpb_bar.Position = w_sys_tip.hpb_bar.Position + 1
end if
next

SetPointer(Arrow!) //鼠标还原为小箭头。

Close(w_sys_tip) //关闭进度条。


因篇幅问题不能全部显示,请点此查看更多更全内容

Top