VB.Net - 複選框控制元件

CheckBox 控制元件允許使用者設定真/假或是非型別的選項。使用者可以選擇或取消選擇它。當選中複選框時，其值為 True，當清除時，其值為 False。

讓我們透過從工具箱中拖動 CheckBox 控制元件並將其放到窗體上，來建立兩個複選框。

CheckBox 控制元件有三種狀態：選中、未選中和不確定。在不確定狀態下，複選框呈灰色顯示。要啟用不確定狀態，複選框的 ThreeState 屬性設定為 True。

CheckBox 控制元件的屬性

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

序號	屬性及描述
1	Appearance 獲取或設定一個值，該值確定複選框的外觀。
2	AutoCheck 獲取或設定一個值，該值指示當選中複選框時，Checked 或 CheckedState 值以及控制元件的外觀是否自動更改。
3	CheckAlign 獲取或設定複選框上覆選標記的水平和垂直對齊方式。
4	Checked 獲取或設定一個值，該值指示覆選框是否被選中。
5	CheckState 獲取或設定複選框的狀態。
6	Text 獲取或設定複選框的標題。
7	ThreeState 獲取或設定一個值，該值指示覆選框是否應允許三種選中狀態而不是兩種。

CheckBox 控制元件的方法

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

序號	方法名稱及描述
1	OnCheckedChanged 引發 CheckedChanged 事件。
2	OnCheckStateChanged 引發 CheckStateChanged 事件。
3	OnClick 引發 OnClick 事件。

序號

方法名稱及描述

OnCheckedChanged

引發 CheckedChanged 事件。

OnCheckStateChanged

引發 CheckStateChanged 事件。

OnClick

引發 OnClick 事件。

CheckBox 控制元件的事件

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

序號	事件及描述
1	AppearanceChanged 當複選框的 Appearance 屬性值更改時發生。
2	CheckedChanged 當 CheckBox 控制元件的 Checked 屬性值更改時發生。
3	CheckStateChanged 當 CheckBox 控制元件的 CheckState 屬性值更改時發生。

序號

事件及描述

AppearanceChanged

當複選框的 Appearance 屬性值更改時發生。

CheckedChanged

當 CheckBox 控制元件的 Checked 屬性值更改時發生。

CheckStateChanged

當 CheckBox 控制元件的 CheckState 屬性值更改時發生。

請參閱 Microsoft 文件以獲取 CheckBox 控制元件的屬性、方法和事件的詳細列表。

示例

在本例中，讓我們在一個組框中新增四個複選框。複選框將允許使用者選擇他們瞭解該組織的來源。如果使用者選擇文字為“其他”的複選框，則會提示使用者進行指定，並提供一個文字框供使用者輸入。當用戶單擊“提交”按鈕時，他/她會收到相應的提示訊息。

設計檢視中的窗體：

讓我們將以下程式碼放入程式碼編輯器視窗：

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) _
      Handles MyBase.Load
      ' Set the caption bar text of the form.  
      Me.Text = "tutorialspoint.com"
      Label1.Visible = False
      TextBox1.Visible = False
      TextBox1.Multiline = True
   End Sub
   
   Private Sub Button1_Click(sender As Object, e As EventArgs) _
      Handles Button1.Click
      Dim str As String
      str = " "
      
      If CheckBox1.Checked = True Then
         str &= CheckBox1.Text
         str &= " "
      End If
      
      If CheckBox2.Checked = True Then
         str &= CheckBox2.Text
         str &= " "
      End If
      
      If CheckBox3.Checked = True Then
         str &= CheckBox3.Text
         str &= " "
      End If
      
      If CheckBox4.Checked = True Then
         str &= TextBox1.Text
         str &= " "
      End If
      If str <> Nothing Then
         MsgBox(str + vbLf + "Thank you")
      End If
   End Sub
   
   Private Sub CheckBox4_CheckedChanged(sender As Object, _
      e As EventArgs) Handles CheckBox4.CheckedChanged
      Label1.Visible = True
      TextBox1.Visible = True
   End Sub
End Class

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

選中所有複選框：

單擊“提交”按鈕：

vb.net_basic_controls.htm

列印頁面