VB.net 进度条使用

ProgressBar 控件又称进度条控件，它是一个应用很广的控件，可以在需要执行较长的程序过程中使用它来指示当前任务执行的进度，如果这样的过程中没有视觉提示，用户可能会认为应用程序不响应，通过在应用程序中使用 ProgressBar，可以告诉用户应用程序正在执行任务且仍在响应。

在vb.net工具箱中 ProgressBar 控件图标如下图一所示：

ProgressBar 控件常用属性有：Maximum、Minimum、Step、Value；常用的方法有：PerformStep、Increment。
Maximum、Minimum 属性：指ProgressBar 控件可变化的最大和最小值。
Step 属性：ProgressBar 控件调用 PerformStep 方法时候增长的步长。
Value 属性：ProgressBar 控件当前的位置值。
PerformStep 方法：按照 Step 属性的数量增加进度栏的当前位置。
Increment 方法：按指定的数量增加进度栏的当前位置。

下面我们就用示例来演示它的属性和方法。

1、未知界限
设置Style属性为Marquee，进度块是自动推进的，不过不能反映实际进度，也就是提醒一下用户：程序在正常运行中，而不是死机了。

2、已知界限
在“循环增加1”的按钮Click事件中添加如下代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim i As Integer = 0ProgressBar1.Value = 0ProgressBar1.Minimum = 0ProgressBar1.Maximum = 100For i = 1 To 100ProgressBar1.Value += 1System.Threading.Thread.Sleep(100)NextEnd Sub

在“按步长增加”按钮Click事件中添加如下代码：

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickFor r = 0 To 100If ProgressBar1.Value < 100 ThenProgressBar1.Value = ProgressBar1.Value + 1ElseMsgBox("进度完成", MsgBoxStyle.Information, "提示")Exit For '退出循环End IfNextEnd Sub

在“按输入值增加”按钮Click事件中添加如下代码：

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickProgressBar1.Minimum = 0ProgressBar1.Maximum = 100Dim i As Integer = CInt(InputBox("输入要增加的量", , "15"))ProgressBar1.Increment(i)End Sub

按F5运行，就可以演示 ProgressBar 控件增加值的vb.net教程三种方法，注意使用PerformStep、Increment这两种方法的时候并不会因为Value的值超过Maximum 而引发错误。
按时间出发

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ProgressBar1.Value = 0
'每隔1000毫秒触发一次
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.TickIf ProgressBar1.Value < 100 ThenProgressBar1.Value = ProgressBar1.Value + 1ElseTimer1.Enabled = FalseEnd If
End SubPrivate Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.ClickTimer1.Enabled = True
End Sub

作者：不务正业程序熊
链接：https://www.jianshu.com/p/3bd48e248734
来源：简书
著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。

VB.net 进度条使用相关推荐

VB下载网上文件代码(有进度条显示)
本栏文章均来自于互联网,版权归原作者和各发布网站所有,收集这些文章仅供学习参考之用.任何人都不能将这些文章用于商业或者其他目的. '添加 internet transfer control 6.0 和 ...
MFC进度条编程控制
1. 进度条的主要功能进度条控制(Progress Control)主要用来进行数据读写.文件拷贝和磁盘格式等操作时的工作进度提示情况,如安装程序等,伴随工作进度的进展,进度条的矩形区域从左到右利用 ...
Asp无组件上传进度条解决方案
http://webuc.net/dotey/archive/2004/07/22/1334.aspx 我还是一点一点用一个实例来说明的吧,客户端HTML如下.要浏览上传附件,我们通过<inpu ...
web app升级—带进度条的App自动更新
带进度条的App自动更新,效果如下图所示: 技术:vue.vant-ui.5+ 封装独立组件AppProgress.vue: <template><div><van- ...
html资源文件记载进度条,用进度条显示文件读取进度《 HTML5：文件 API 》
在这个文档里,我添加了一个标签 .. 上面定义了一个 ID 是 eventstatus - 我们可以把进度条放在这个容器里面 - 先找到用来显示进度条的容器 - // 找到显示事件状态的容器 var ...
android炫酷的自定义view,Android自定义View实现炫酷进度条
本文实例为大家分享了Android实现炫酷进度条的具体代码,供大家参考,具体内容如下下面我们来实现如下效果: 第一步:创建attrs文件夹,自定义属性: 第二步:自定义View: /** * Cre ...
python特效进度条_六种酷炫Python运行进度条
作者 | 行哥来源 | 一行数据之前行哥给大家推荐过一个windows神器,里面有个小功能是人生进度条,可以看到2020年的进度只剩下一半,那么你的代码进度还剩多少呢? 这不,行哥本文介绍了目前6 ...
html 可调节进度条控件,jQuery简单实用的轻量级进度条插件
jQMeter是一款简单实用的轻量级进度条jQuery插件,它可以显示为水平或垂直进度条,进度条加载时带有动画特效,你只需要简单的传入一些参数到jQMeter对象的构造函数中就可以完成你想要的进度条效 ...
6行Python代码实现进度条效果（Progress、tqdm、alive-progress和PySimpleGUI库）
目录 1.Progress库 2.tqdm库 3.alive-progress库 4.PySimpleGUI库在项目开发过程中加载.启动.下载项目难免会用到进度条,如何使用Python实现进度条呢? ...

VB.net 进度条使用

VB.net 进度条使用相关推荐

最新文章

热门文章