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 Then
        p.Value = i '当前值为已经完成的行数
    End If
Next

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