VB.Net進度條（ProgressBar）

進度條(ProgressBar)代表一個Windows進度條控制元件。它用於向使用者提供關於某個任務狀態的視覺反饋。它顯示了一個進度條，隨著操作的進行從左到右填充。

從工具箱中點選一個ProgressBar控制元件，並把它放在表單上。

進度條的主要屬性是值：Maximum和Minimum。Maximum和Minimum屬性用於設定進度欄可以顯示的最小值和最大值。Value屬性指定進度條的當前位置。

當應用程式執行複製檔案或列印文件等任務時，通常使用ProgressBar控制元件。對於使用者來說，如果沒有視覺提示，應用程式可能看起來沒有響應。在這種情況下，使用ProgressBar允許程式員提供進度的可視狀態。

ProgressBar控制元件的屬性

以下是ProgressBar控制元件的一些常用屬性：

編號	屬性	描述
1	`AllowDrop`	重寫Control.AllowDrop。
2	`BackgroundImage`	獲取或設定`ProgressBar`控制元件的背景影象。
3	`BackgroundImageLayout`	獲取或設定進度條的背景圖片的布局。
4	`CausesValidation`	獲取或設定一個值，該值指示控制元件何時接收焦點會導致驗證在需要驗證的任何控制元件上執行。
5	`Font`	獲取或設定`ProgressBar`中的文字字型。
6	`ImeMode`	獲取或設定`ProgressBar`的輸入法編輯器(IME)。
7	`ImeModeBase`	獲取或設定控制元件的IME模式。
8	`MarqueeAnimationSpeed`	獲取或設定進度塊在進度條上捲動的時間段(以毫秒為單位)。
9	`Maximum`	獲取或設定控制元件範圍的最大值。
10	`Minimum`	獲取或設定控制元件範圍的最小值。
11	`Padding`	獲取或設定`ProgressBar`控制元件的邊緣與其內容之間的空格。
12	`RightToLeftLayout`	獲取或設定一個值，該值指示`ProgressBar`及其包含的任何文字是否從右向左顯示。
13	`Step`	獲取或設定對`PerformStep`方法的呼叫增加進度欄的當前位置的數量。
14	`Style`	獲取或設定應該在進度條上顯示進度的方式。
15	`Value`	獲取或設定進度條的當前位置。

ProgressBar控制元件的方法

以下是ProgressBar控制元件的一些常用方法：

編號	方法	描述
1	`Increment`	按指定的數量增加`ProgressBar`控制元件的當前位置。
2	`PerformStep`	按指定的步驟增加值。
3	`ResetText`	將`Text`屬性重置為其預設值。
4	`ToString`	返回一個表示進度條控制元件的字串。

ProgressBar控制元件的事件

以下是ProgressBar控制元件的一些常用事件：

編號	事件	描述
1	`BackgroundImageChanged`	在`BackgroundImage`屬性的值更改時發生。
2	`BackgroundImageLayoutChanged`	在`BackgroundImageLayout`屬性的值更改時發生。
3	`CausesValidationChanged`	在`CausesValidation`屬性的值更改時發生。
4	`Click`	在單擊控制元件時發生。
5	`DoubleClick`	在使用者雙擊控制元件時發生。
6	`Enter`	在焦點進入控制元件時發生。
7	`FontChanged`	在`Font`屬性的值更改時發生。
8	`ImeModeChanged`	在`ImeMode`屬性的值更改時發生。
9	`KeyDown`	在控制元件具有焦點時使用者按下某個鍵時發生。
10	`KeyPress`	在控制元件具有焦點時使用者按下某個鍵時發生。
11	`KeyUp`	在控制元件具有焦點時使用者釋放鍵時發生。
12	`Leave`	在焦點離開`ProgressBar`控制元件時發生。
13	`MouseClick`	在滑鼠單擊控制元件時發生。
14	`MouseDoubleClick`	在使用者雙擊控制元件時發生。
15	`PaddingChanged`	在`Padding`屬性的值更改時發生。
16	`Paint`	在繪製`ProgressBar`時發生。
17	`RightToLeftLayoutChanged`	在`RightToLeftLayout`屬性更改時發生。
19	`TabStopChanged`	在`TabStop`屬性更改時發生。
20	`TextChanged`	在`Text`屬性更改時發生。

範例

在這個例子中，在執行時建立一個進度條。雙擊表單並將下面的程式碼放在開啟的視窗中。

Imports System.Windows.Forms.ProgressBar
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'create two progress bars '
        'Dim ProgressBar1 As ProgressBar
        'Dim ProgressBar2 As ProgressBar
        'ProgressBar1 = New ProgressBar()
        ' ProgressBar2 = New ProgressBar()
        'set position
        ProgressBar1.Location = New Point(10, 10)
        ProgressBar2.Location = New Point(10, 50)
        'set values
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 200
        ProgressBar1.Value = 130
        ProgressBar2.Minimum = 0
        ProgressBar2.Maximum = 100
        ProgressBar2.Value = 40
        'add the progress bar to the form '
        Me.Controls.Add(ProgressBar1)
        Me.Controls.Add(ProgressBar2)
        ' Set the caption bar text of the form.  '
        Me.Text = "ProgressBar範例 - tw511.com"
    End Sub
End Class

當上面的程式碼執行並使用Microsoft Visual Studio工具列上的「開始」按鈕執行時，它將顯示以下視窗：