ProgressBar 控件又称进度条控件,它是一个应用很广的控件,可以在需要执行较长的程序过程中使用它来指示当前任务执行的进度,如果这样的过程中没有视觉提示,用户可能会认为应用程序不响应,通过在应用程序中使用 ProgressBar,可以告诉用户应用程序正在执行任务且仍在响应。
在vb.net工具箱中 ProgressBar 控件图标如下图一所示:
ProgressBar 控件常用属性有:Maximum、Minimum、Step、Value;常用的方法有:PerformStep、Increment。
Maximum、Minimum 属性:指ProgressBar 控件可变化的最大和最小值。
Step 属性:ProgressBar 控件调用 PerformStep 方法时候增长的步长。
Value 属性:ProgressBar 控件当前的位置值。
PerformStep 方法:按照 Step 属性的数量增加进度栏的当前位置。
Increment 方法:按指定的数量增加进度栏的当前位置。
下面我们就用示例来演示它的属性和方法。
在窗体上放置一个 ProgressBar 控件和三个 Button 控件,布局如下图二所示:
在“循环增加1”的按钮Click事件中添加如下代码:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer = 0
ProgressBar1.Value = 0
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100
For i = 1 To 100
ProgressBar1.Value += 1
System.Threading.Thread.Sleep(100)
Next
End Sub
在“按步长增加”按钮Click事件中添加如下代码:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer = 0
If ProgressBar1.Value >= ProgressBar1.Maximum Then
ProgressBar1.Value = 0
End If
ProgressBar1.Step = 15
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100
ProgressBar1.PerformStep()
End Sub
在“按输入值增加”按钮Click事件中添加如下代码:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100
Dim i As Integer = CInt(InputBox("输入要增加的量", , "15"))
ProgressBar1.Increment(i)
End Sub
按F5运行,就可以演示 ProgressBar 控件增加值的三种方法,注意使用PerformStep、Increment这两种方法的时候并不会因为Value的值超过Maximum 而引发错误。
本文作者: