VB.Net無線電鈕（RadioButton）

無線電鈕(RadioButton)控制元件用於提供一組互斥選項。使用者可以選擇一個組中的一個無線電鈕。如果需要將多個無線電鈕放在同一個表單中，則應將其放在不同的容器控制元件(如GroupBox控制元件)中。

下面建立三個無線電鈕，從工具箱中拖動RadioButton控制元件並放在表單上。

無線電鈕的選中屬性用於設定無線電鈕的狀態。您可以在無線電鈕控制元件上顯示文字，圖片或兩者。您還可以使用「外觀」屬性更改無線電鈕控制元件的外觀。

RadioButton控制元件的屬性

以下是控制元件(RadioButton)控制元件的一些常用屬性：

編號	屬性	描述
1	`Appearance`	獲取或設定一個確定無線電鈕外觀的值。
2	`AutoCheck`	獲取或設定一個值，該值指示單擊控制元件時，選中的值和控制元件的外觀是否自動更改。
3	`CheckAlign`	獲取或設定無線電鈕的核取方塊部分的位置。
4	`Checked`	獲取或設定一個值，該值指示是否檢查控制元件。
5	`Text`	獲取或設定無線電鈕的標題。
6	`TabStop`	獲取或設定一個值，該值指示使用者是否可以使用TAB 鍵將焦點賦予RadioButton 控制元件。

RadioButton控制元件的方法

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

編號	方法	描述
1	`PerformClick`	生成控制元件的Click事件，模擬使用者的點選。

有關RadioButton控制元件的屬性，方法和事件的詳細列表，請參閱Microsoft文件。

RadioButton控制元件的事件

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

編號	事件	描述
1	`AppearanceChanged`	在更改RadioButton控制元件的`Appearance`屬性的值時發生。
2	`CheckedChanged`	在更改RadioButton控制元件的`Checked`屬性的值時發生。

範例

在以下範例中，建立兩組無線電鈕並使用它們的CheckedChanged 事件來更改表單的BackColor和ForeColor屬性。

雙擊無線電鈕，並將下面的程式碼放在開啟的視窗中。參考程式碼 -

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 = "RadioButton Demo - tw511.com"
    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object,
        e As EventArgs) Handles rbtnRed.CheckedChanged
        Me.BackColor = Color.Red
    End Sub
    Private Sub RadioButton2_CheckedChanged(sender As Object,
       e As EventArgs) Handles rbtnGreen.CheckedChanged
        Me.BackColor = Color.Green
    End Sub
    Private Sub RadioButton3_CheckedChanged(sender As Object,
       e As EventArgs) Handles rbtnBlue.CheckedChanged
        Me.BackColor = Color.Blue
    End Sub

    Private Sub RadioButton4_CheckedChanged(sender As Object,
       e As EventArgs) Handles rbtnBack.CheckedChanged
        Me.ForeColor = Color.Black
    End Sub
    Private Sub RadioButton5_CheckedChanged(sender As Object,
        e As EventArgs) Handles rbtnWhite.CheckedChanged
        Me.ForeColor = Color.White
    End Sub
    Private Sub RadioButton6_CheckedChanged(sender As Object,
       e As EventArgs) Handles rbtnYellow.CheckedChanged
        Me.ForeColor = Color.Yellow
    End Sub
End Class

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