从字符串数组创建单选按钮组 (Visual Basic)

 

此示例以编程方式创建一组 Windows 窗体单选按钮并将其 Text 属性设置为来自字符串数组的值。

示例

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles Button1.Click
    Dim StringArray(2) As String

    StringArray(0) = "Yes"
    StringArray(1) = "No"
    StringArray(2) = "Maybe"

    Dim RadioButton1 = New System.Windows.Forms.RadioButton()
    Dim RadioButton2 = New System.Windows.Forms.RadioButton()
    Dim RadioButton3 = New System.Windows.Forms.RadioButton()

    RadioButton1.Text = StringArray(0)
    RadioButton2.Text = StringArray(1)
    RadioButton3.Text = StringArray(2)
    RadioButton1.Location = New System.Drawing.Point(10, 10)
    RadioButton2.Location = New System.Drawing.Point(10, 30)
    RadioButton3.Location = New System.Drawing.Point(10, 50)

    Me.Controls.Add(RadioButton1)
    Me.Controls.Add(RadioButton2)
    Me.Controls.Add(RadioButton3)
End Sub

编译代码

本示例需要：

• 一个 Windows 窗体。
• 名为 Button1 的 Button 控件。