VB入门教程：[16]使用复选框和单选按钮

1、兴建一个名为【UserChoices】的项目。

2、将一个 Button 控件和三个 CheckBox 控件从“工具箱”中拖动到窗体上。

3、在“属性”窗口中，分别将“CheckBox1”、“CheckBox2”和“CheckBox3”的 Text 属性更改为 Cheese、Peppers 和 Mushrooms。

在“属性”窗口中，将 Button1 的 Text 属性更改为 Order Pizza。

4、在窗体中双击该按钮，在代码编辑器中打开 Button1_Click 事件处理程序。

将下面的代码添加到 Button1_Click 事件处理程序中：

Dim toppings As String = ""

If CheckBox1.Checked = True Then

    toppings &= "Cheese "

End If

If CheckBox2.Checked = True Then

    toppings &= "Peppers "

End If

If CheckBox3.Checked = True Then

    toppings &= "Mushrooms"

End If

If toppings <> "" Then

    MsgBox("Your pizza has the following toppings: " & toppings)

End If

5、运行程序。当窗体出现时，选择一些浇头并单击按钮。将显示一个消息框指示您对比萨饼浇头的选择。

1、  我们刚才学习了如何使用户能够从若干个选项中选择任意选项。但如果我们想要用户从若干个选项中只选择一个，我们该怎么办？ 在这种情况下，您可以使用 RadioButton 控件。

  与复选框不同，单选按钮（也称作“选项按钮”）始终作为一个组的一部分工作。选中一个单选按钮会立即清空该组中所有其他单选按钮。定义单选按钮组将告诉用户：“这是一组选项，您可以从中选择一个而且只能选择一个。”

  我们可以使用成组的 RadioButton 控件以使用户能在互斥的选项之间进行选择。例如，您可能允许用户选择在比萨饼上是放常规沙司还是辣味沙司，但不能两者都选。与 CheckBox 控件一样，您可以从 RadioButton.Checked 属性获取 RadioButton 控件的状态信息。

2、将两个 RadioButton 控件和一个Button控件从“工具箱”中拖动到窗体上。

在“属性”窗口中，将 RadioButton1 的 Text 属性设置为 Regular Sauce。

将 RadioButton1 的 Checked 属性设置为 True。

在“属性”窗口中，将“RadioButton2”的 Text 属性设置为 Spicy Sauce。

3、在窗体中双击该按钮，在代码编辑器中打开 Button1_Click 事件处理程序。

在 Button1_Click 事件处理程序中，添加下面的代码：

If RadioButton1.Checked = True Then

    MsgBox("You chose regular sauce")

Else

    MsgBox("You chose spicy sauce")

End If

4、运行程序。选择某一单选按钮，然后单击“定购比萨”按钮。此时将显示一个消息框指明您的选择。

尝试同时选择两个单选按钮。请注意，单选按钮是相互排斥的。当您单击一个单选按钮之后，另一个会自动清除。

5、在本课中，我们学习了如何使用 CheckBox 和 RadioButton 控件在用户界面上给用户提供选择。现在，您可以进入下一课显示图像：使用 PictureBox 控件