VB.NET显示程序的进度，该怎么做？

VB本身有进度条控件。程序启动时加载多少控配置，组件都是编写源码时可知的。进度条的上限就是加载组件，配置数的和，加载成功一个就自加1

创新互联专注为客户提供全方位的互联网综合服务，包含不限于网站设计制作、做网站、农安网络推广、成都微信小程序、农安网络营销、农安企业策划、农安品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联为所有大学生创业者提供农安建站搭建服务，24小时服务热线：028-86922220，官方网址：www.cdcxhl.com

vb点虐 如何用进度条显示数据查询进度?

有不是多线程的，.NET有一个异步控件来完成这个事情，BackgroundWorker。

多线程其实比你想象的简单，你计划操作步骤，打比方说我们处理一个文件，用进度条来显示进度。我们可以定义解压他进度为5%，解密文件后哦进度完成20%，读取数据后进度完成30%，重新整理插入数据后进度完成60%，再加密，进度为80%，再压缩进度为90%，再发送进度为95%，删除历史记录结束动作进度为100%。这种事就要多线程去完成，调用控件你就需要委托或者回调控件。

进度条给他赋值就好了，程序运行后你会发现进度条在动。

这是现在90%程序进度条原理。

VB .NET如何在计算过程中加入进度条？

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

不然进度条的更新也许比计算的速度还要慢很多

关于VB.NET进度条的实例

这是我自己写的一个进度条控件，如图：

边框粗细和边框颜色以及进度条颜色都可以调。

进度条大小你可以自己拉伸。

同时，进度条还提供了丰富的动画效果（如边框闪烁效果【可关闭】，进度条滑动效果等。）

将边框粗细调为0即可实现无边框（同时边框闪烁效果（见“Flash”属性）也将关闭！）

进度值（见“ProgressValue”属性）类型为Single（单精度浮点数）

将我提供的DLL文件拖到工具箱即可安装

只能用于Windows窗体应用程序！

目标平台：.Net Framework 3.5

属性说明：

1.BorderColor 用于调整边框颜色

2.BorderWidth 用于调整边框粗细

3.Flash 用于开启、关闭边框闪烁效果

4.ProgressValue 用于设置、查看进度值

5.ForeColor 用于设置进度条颜色

6.BackColor 用于设置控件背景色

附件如果丢失，请私信。

名称栏目：vb点虐 查询进度条 vbs查看进程
网站链接：http://scyanting.com/article/ddgpeod.html