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 事件來更改窗體的BackColorForeColor屬性。

雙擊單選按鈕,並將下麵的代碼放在打開的窗口中。參考代碼 -

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 - xuhuhu.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工具欄上的“開始”按鈕運行時,它將顯示以下窗口:


上一篇: VB.Net基本控件 下一篇: VB.Net對話框