ProgressBar 控件又稱進(jìn)度條控件，它是一個應(yīng)用很廣的控件，可以在需要執(zhí)行較長的程序過程中使用它來指示當(dāng)前任務(wù)執(zhí)行的進(jìn)度，如果這樣的過程中沒有視覺提示，用戶可能會認(rèn)為應(yīng)用程序不響應(yīng)，通過在應(yīng)用程序中使用 ProgressBar，可以告訴用戶應(yīng)用程序正在執(zhí)行任務(wù)且仍在響應(yīng)。

在vb.net工具箱中 ProgressBar 控件圖標(biāo)如下圖一所示：

ProgressBar 控件常用屬性有：Maximum、Minimum、Step、Value；常用的方法有：PerformStep、Increment。
Maximum、Minimum 屬性：指ProgressBar 控件可變化的最大和最小值。
Step 屬性：ProgressBar 控件調(diào)用 PerformStep 方法時候增長的步長。
Value 屬性：ProgressBar 控件當(dāng)前的位置值。
PerformStep 方法：按照 Step 屬性的數(shù)量增加進(jìn)度欄的當(dāng)前位置。
Increment 方法：按指定的數(shù)量增加進(jìn)度欄的當(dāng)前位置。

下面我們就用示例來演示它的屬性和方法。

1、未知界限
設(shè)置Style屬性為Marquee，進(jìn)度塊是自動推進(jìn)的，不過不能反映實(shí)際進(jìn)度，也就是提醒一下用戶：程序在正常運(yùn)行中，而不是死機(jī)了。

2、已知界限
在“循環(huán)增加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("進(jìn)度完成", MsgBoxStyle.Information, "提示")Exit For '退出循環(huán)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運(yùn)行，就可以演示 ProgressBar 控件增加值的vb.net教程三種方法，注意使用PerformStep、Increment這兩種方法的時候并不會因?yàn)閂alue的值超過Maximum 而引發(fā)錯誤。
按時間出發(fā)

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ProgressBar1.Value = 0
'每隔1000毫秒觸發(fā)一次
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

作者：不務(wù)正業(yè)程序熊
鏈接：https://www.jianshu.com/p/3bd48e248734
來源：簡書
著作權(quán)歸作者所有。商業(yè)轉(zhuǎn)載請聯(lián)系作者獲得授權(quán)，非商業(yè)轉(zhuǎn)載請注明出處。

總結(jié)

以上是生活随笔為你收集整理的VB.net 进度条使用的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。