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行我们才更新一次进度条的进度,以避免频繁更新进度条而影响代码运行效率,这一点很多初学者容易忽略的。

 


本页地址:http://www.foxtable.com/webhelp/topics/0793.htm