VB教程：单选按钮（OptionButton)

文章作者 100test 发表时间 2007:03:10 18:29:58
来源 100Test.Com百考试题网

4、单选按钮（Option Button)

作用：显示一个可打开/关闭的选项

注意:同一组只可选中一个选项。

Option Button单选钮控件总是以组的形式出现的。在一组Option Button控件中，总是只有一个单选钮处于选中状态；如果选中了其中的一个，其余单选钮则自动清除为非选中状态。

（1）常用属性

Caption——指定单选钮所表示的选择项的内容。

value——返回或设置单选钮的状态。

value= true 选中了控件代表的项

value= false 没有选中控件代表的项

Enabled——表示单选钮当前是否可用。其值为True时，表示单选钮为正常可用状态；为False时．表示单选钮处于不可用状态，此时选择项内容变为雕刻状。

（2）例子：

[例1]:显示两个数的四则运算结果。见教材P118。

Private Sub Form_Load()

Option1(0).Value = True 选中第一个选项。
Label2.Caption = 56 * 89

End Sub

---

Private Sub Option1_Click(Index As Integer)

Select Case Index
Case 0
Label2.Caption = 56 * 89 选择乘法
Case 1
Label2.Caption = 56 / 89 选择除法
Case 2
Label2.Caption = 56 89 选择加法
Case 3
Label2.Caption = 56 - 89 选择减法
End Select

End Sub

注意：

• 本例中，单选按钮可采用复制的方法获得一组。

• 当单选按钮的value设为true时，相当于进行click事件。

[程序演示] [程序下载]

Select Case语句是VB提供的又一种条件语句,用来实现多分支选择（见教材第三章）。 Select Case语句的一般格式如下： Select Case 变量 Case 值 1 语句 1 Case 值 2 语句 2 . . . Case 值 n 语句 n [Case Else 语句 n 1] End Select Select Case中的“变量”称为Case变量，它可以是一个表达式，通常使用一个变量或常量，也可以是数值型或字符串型。在每个Case子句中指定一个值，当Case变量的值符合某个Case子句指定值的条件时，就执行该Case子句中的语句，然后跳到End Select，从End Select出口。这里的“语句”可以是一个语句，也可以是一组语句。如果变量的值与任何一个Case子句都不匹配，就执行Case Else子句后面的“语句 n 1”，然后从End Select出口（如果程序中，不涉及到这种情况，[]中的程序段可以不要）。

[例2]：将已知的两个数据进行：乘法、除法、加法、减法运算。

添加四个单选按钮、四个标签、两个文本框。

Dim result As Double

Private Sub Option1_Click()

If Option1.Value Then

　　Label1.Caption =""

　　result = Val(Text1.Text) * Val(Text2.Text) val()将字符串转换为数值型（因为文本框只接受字符型数据，而程序要求Text1中的数据参加数值运算）

　　Label1.Caption = Str(result) str()将数值型数据转换为字符串类型

　End If

End Sub

---

Private Sub Option2_Click()

　If Val(Text2.Text) = 0 Then

　　　MsgBox "被除数不能为零，请重新输入!" MsgBox语句

　Else

　　　If Option2.Value Then

　　　　Label1.Caption =""

　　　　result = Val(Text1.Text) / Val(Text2.Text)

　　　　Label1.Caption = Str(result)

　　　End If

　End If

end sub

---

Private Sub Option3_Click()

　If Option3.Value Then

　　　Label1.Caption =""

　　　result = Val(Text1.Text) Val(Text2.Text)

　　　Label1.Caption = Str(result)

　　End If

End Sub

---

Private Sub Option4_Click()

　If Option4.Value Then