问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

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

发布网友 发布时间:2022-05-19 14:41

我来回答

3个回答

热心网友 时间:2022-05-19 16:10

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
不然进度条的更新也许比计算的速度还要慢很多

热心网友 时间:2022-05-19 17:28

VB.NET创建进度条具体参考代码如下:

<DIV id="Lay1" style="Z-INDEX: 1; LEFT: 1%; VISIBILITY: hidden; WIDTH: 99%; CURSOR: crosshair; POSITION: absolute; TOP: 32px; HEIGHT: 95%; BACKGROUND-COLOR: #ffffff"><FONT face="宋体"></FONT><FONT face="宋体"></FONT><FONT face="宋体"></FONT><FONT face="宋体"></FONT><br>
<b><font color="#800080" size="2">      & nbsp;          正在检索数据,请稍候...</font></b>
<table align="center">
<tr>
<td>
<div style="BORDER-RIGHT: black 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: black 1px solid; PADDING-LEFT: 2px; FONT-SIZE: 8pt; PADDING-BOTTOM: 2px; BORDER-LEFT: black 1px solid; PADDING-TOP: 2px; BORDER-BOTTOM: black 1px solid"><span id="progress1"> </span>
<span id="progress2"> </span> <span id="progress3"> </span> <span id="progress4">
 </span> <span id="progress5"> </span> <span id="progress6"> </span>
<span id="progress7"> </span> <span id="progress8"> </span> <span id="progress9">
 </span> <span id="progress10"> </span> <span id="progress11"> </span>
<span id="progress12"> </span> <span id="progress13"> </span><span id="progress14"> </span><span id="progress15"> </span>
</div>
</td>
</tr>
</table>
<script language="javascript">
var progressEnd = 15; // set to number of progress <span>'s.
var progressColor = 'blue'; // set to progress bar color
var progressInterval = 300; // set to time between updates (milli-seconds)
var progressAt = progressEnd;
var progressTimer;
function progress_clear() {
for (var i = 1; i <= progressEnd; i++) document.getElementById('progress'+i).style.backgroundColor = 'transparent';
progressAt = 0;
}
function progress_update() {
progressAt++;
if (progressAt > progressEnd) progress_clear();
else document.getElementById('progress'+progressAt).style.backgroundColor = progressColor;
progressTimer = setTimeout('progress_update()',progressInterval);
}
function progress_stop() {
clearTimeout(progressTimer);
progress_clear();
}
//progress_update(); // start progress bar
</script>
</DIV>

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
缺土的宝宝女孩名字车姓 推荐一些带有成字的女孩名字 江姓婴儿名字大全女孩2024龙宝宝 陌陌的安全等级和财富等级是什么 如何提高陌陌等级? 冰箱旧了是不是很耗电 手机号收不到LINE的手机验证码怎么办 注册line连我账号收不到验证码 日韩服属于哪里 lineplay进入别人家能说话吗 如何预防宝宝便秘?让孩子摆脱便秘的困扰呢? 我这边有个无忧等级考试软件,我想把它刻录备份一份,可是备份的那个光盘放进去后,系统提示,非法复制 上一次前程无忧的问题,我复制到txt上面,还是不能弄到前程无忧上哦?还有什么问题的吗 前程无忧发布职位,岗位职责里的内容怎样从WORD复制粘贴上去,纯文本格式无法加粗,HTEM格式又无法复制 为什么“前程无忧”黏贴简历的地方黏贴不上简历啊,是电脑的问题还是什么啊? 如何复制淘无忧的链接 为什么我在智联的或者前程无忧的简历,不能复制粘贴到邮箱里? 无忧联盟怎么复制邀请链接 请问如何复制北京无忧电脑公司发行的“全国计算机等级考试超级模拟软件”光盘 如何用酷越全程无忧自己重新复制当前系统 为什么在无忧考吧中复制不了它的文字叙述 CIS是指什么 固能环保净化工程技术(上海)有限公司怎么样? 广州市真诚环保净化工程有限公司怎么样? 宁馨环境智能点滴除垢宝 请问您们青州在海边吗?有哪些好玩的地方? 武夷山,青岛,婺源,这3个地方哪个更好玩 2009年陕西安装预算员考试时间,科目,流程,要求 陕西省中级造价员考试情况 陕西的预算员证由哪个单位颁发 vb.net 如何用进度条显示数据查询进度? 求电脑版离线卫星地图,主要是中国区的就行!!要能用的 想问下哪里有离线版的中国地图下载,公司限网,但时常要查询公里数核算运费 骑马与砍杀光明与黑暗怎么加入黑暗军团 骑马与砍杀光明与黑暗加入黑暗势力的详细流程,重要的地方发下图片。万分感谢! 骑马与砍杀光明与黑暗为什么每次都是爱希望与勇气怎么加入黑暗 菏泽曹县郑庄镇郭庄村西红柿为什么那么好吃? 曹县青岗集还&#39;有没有西红柿多少钱一斤 我来了,新人,西红柿是烧饼吗,我想知道 山东菏泽有善县吗 黑椒酸辣汤的做法 羊、军丶危加什么偏旁等于新字。 创意折叠家具制作设计介绍 大年是几月几日? 创意家具设计特点需要注意哪些因素 办公室创意家具设计如何做 有哪些家具设计得创意十足?你家里有吗? 创意室内家具设计怎么比较好 创新家具在创意家具设计中讲究的原则体现在哪 (缘木求鱼)指什么生肖?