vb進度條（VB.net 進度條使用[通俗易懂]）

VB.net 進度條使用[通俗易懂]-VB進度條實時顯示耗時

VB.net 進度條使用[通俗易懂]ProgressBar控件又稱進度條控件，它是一個應用很廣的控件，可以在需要執行較長的程序過程中使用它來指示當前任務執行的進度，如果這樣的過程中沒有視覺提示，用戶可能會認為應用程序不響應，通過在應用程序中使用ProgressBar，可以告訴用戶應用程序正在執行任務且仍在響應。在vb.net工具箱中ProgressBar控件圖標如下圖一所示：ProgressBar控件常用屬性有：Maximum、Minimum、Step、Value；常用的方法有：PerformStep、Increment。M_prograssbar的increment跟value屬性

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.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(sender As Object, e As EventArgs) Handles Button2.Click        For r = 0 To 100            If ProgressBar1.Value < 100 Then                ProgressBar1.Value = ProgressBar1.Value + 1            Else                MsgBox("進度完成", MsgBoxStyle.Information, "提示")                Exit For '退出循環            End If        Next    End Sub

在“按輸入值增加”按鈕Click事件中添加如下代碼：

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click        ProgressBar1.Minimum = 0        ProgressBar1.Maximum = 100        Dim 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.Tick    If ProgressBar1.Value < 100 Then        ProgressBar1.Value = ProgressBar1.Value + 1    Else        Timer1.Enabled = False    End IfEnd SubPrivate Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click    Timer1.Enabled = TrueEnd Sub

作者：不務正業程序熊
鏈接：https://www.jianshu.com/p/3bd48e248734
來源：簡書
著作權歸作者所有。商業轉載請聯系作者獲得授權，非商業轉載請注明出處。