7,763
社区成员
发帖
与我相关
我的任务
分享
ProgressBar1.Max = List1.ListCount - 1
' ProgressBar1.Min 默认就是0,跟需求一样,这儿就不管
For i = 0 To List1.ListCount - 1
' 如果“在处理前指示进度”,写在这个位置;
' 要在处理后指示,下面两行移到后面的 Next 之前。
ProgressBar1.Value = i
DoEvents
' 事务处理代码……
' …………
' 进度条刷新也可以放这儿:
' ProgressBar1 ...........
Next