没玩过这个, 下面是帮助中的::::::::

ProgressBar

ProgressBar表示进度条。
通过设置进度条的最小值、最大值和当前值，来表示某一任务的完成进度。
如果在设计窗口的时候，将进度条的样式属性设为“Marquee”,将显示一个连续滚动的方块，表示正在执行任务，类似于Windows启动时出现的滚动条。

示例

在表中增加一万行，在窗口中加入一个进度条和一个按钮，按钮的Click事件代码设为：

Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = MainTable.Rows.Count \'设置最大值
p.Minimum = 0 \'设置最小值
p.Value = 0 \'设置当前值
For i As integer = 0 To MainTable.Rows.Count - 1
    MainTable.Rows(i)("第一列") = i
    If i Mod 100 = 0
        p.Value = i \'当前值为已经完成的行数
    End If
Next

上面的代码中，每100行我们才更新一次进度条的进度，以避免频繁更新进度条而影响代码运行效率，这一点很多初学者容易忽略的。

楼主的提问总是让人看不懂，发那么些代码有何用？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目13.table