VB.Net - 進度條控制元件

它表示一個 Windows 進度條控制元件。它用於向用戶提供有關某些任務狀態的視覺反饋。它顯示一個從左到右填充的條形，隨著操作的進行而逐漸填充。

讓我們從工具箱中點選一個 ProgressBar 控制元件，並將其放置在窗體上。

進度條的主要屬性是Value、Maximum 和 Minimum。Minimum 和 Maximum 屬性用於設定進度條可以顯示的最小值和最大值。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 屬性更改時發生。
18	TabStopChanged 當 TabStop 屬性更改時發生。
19	TextChanged 當 Text 屬性更改時發生。

示例

在這個示例中，讓我們在執行時建立一個進度條。讓我們雙擊窗體，並將以下程式碼放入開啟的視窗中。

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 = "tutorialspoint.com"
   End Sub
End Class

當上述程式碼執行並使用 Microsoft Visual Studio 工具欄中可用的啟動按鈕執行時，它將顯示以下視窗：

vb.net_basic_controls.htm

列印頁面