189 8069 5689
在vb点虐 工具箱中 ProgressBar 控件图标。
创新互联公司-成都网站建设公司，专注成都网站设计、网站建设、网站营销推广，域名与空间，虚拟空间，网站托管维护有关企业网站制作方案、改版、费用等问题，请联系创新互联公司。
ProgressBar 控件常用属性有：Maximum、Minimum、Step、Value；常用的方法有：PerformStep、Increment。
Maximum、Minimum 属性：指ProgressBar 控件可变化的最大和最小值。
Step 属性：ProgressBar 控件调用 PerformStep 方法时候增长的步长。
Value 属性：ProgressBar 控件当前的位置值。
PerformStep 方法：按照 Step 属性的数量增加进度栏的当前位置。
Increment 方法：按指定的数量增加进度栏的当前位置。
ProgressBar 控件又称进度条控件，它是一个应用很广的控件，可以在需要执行较长的程序过程中使用它来指示当前任务执行的进度，如果这样的过程中没有视觉提示，用户可能会认为应用程序不响应，通过在应用程序中使用 ProgressBar，可以告诉用户应用程序正在执行任务且仍在响应。
这是我自己写的一个进度条控件，如图：
边框粗细和边框颜色以及进度条颜色都可以调。
进度条大小你可以自己拉伸。
同时，进度条还提供了丰富的动画效果（如边框闪烁效果【可关闭】，进度条滑动效果等。）
将边框粗细调为0即可实现无边框（同时边框闪烁效果（见“Flash”属性）也将关闭！）
进度值（见“ProgressValue”属性）类型为Single（单精度浮点数）
将我提供的DLL文件拖到工具箱即可安装
只能用于Windows窗体应用程序！
目标平台：.Net Framework 3.5
属性说明：
1.BorderColor 用于调整边框颜色
2.BorderWidth 用于调整边框粗细
3.Flash 用于开启、关闭边框闪烁效果
4.ProgressValue 用于设置、查看进度值
5.ForeColor 用于设置进度条颜色
6.BackColor 用于设置控件背景色
附件如果丢失，请私信。
VB.Net中提供了ProgressBar控件，用于显示进度条
我建议你不要用进度条显示剩余时间而是显示执行进度
这样比较好控制
设置ProgressBar的Minimum和Maximum属性为循环的起始和终止数值
然后在代码的循环体中计算当前循环的进度，然后设置进度条的Value属性，
将进度显示在进度条上
比如,简单的例子:
Dim Progress As Integer
ProgressBar1.Minimum = Min
ProgressBar1.Maximum = Max
For i As Integer = Min To Max
'执行计算.......
Progress = i \ Max '计算进度
ProgressBar1.Value = Progress '显示进度
My.Application.DoEvents() '使用Doevents防止窗体假死使进度条看不到，但是会严重降低运行速度
Next
这里的优化技巧是，可以设置为每隔N次循环才更新进度条
If Not Progress Mod N Then ProgressBar1.Value = Progress
不然进度条的更新也许比计算的速度还要慢很多