VB.NET进度条使用 VB.NET进度条使用

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

文章图片
image.png 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.Click Dim i As Integer = 0ProgressBar1.Value = https://www.it610.com/article/0 ProgressBar1.Minimum = 0 ProgressBar1.Maximum = 100For i = 1 To 100 ProgressBar1.Value += 1 System.Threading.Thread.Sleep(100) Next End Sub

【VB.NET进度条使用】在“按步长增加”按钮Click事件中添加如下代码：

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click For r = 0 To 100 If ProgressBar1.Value < 100 Then ProgressBar1.Value = https://www.it610.com/article/ProgressBar1.Value + 1 Else MsgBox("进度完成", MsgBoxStyle.Information, "提示") Exit For '退出循环 End If NextEnd Sub

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

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

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

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ProgressBar1.Value = https://www.it610.com/article/0'每隔1000毫秒触发一次 Timer1.Interval = 1000 Timer1.Enabled = False End SubPrivate Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick If ProgressBar1.Value < 100 Then ProgressBar1.Value = https://www.it610.com/article/ProgressBar1.Value + 1 Else Timer1.Enabled = False End If End SubPrivate Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Timer1.Enabled = True End Sub