VB教程：单选按钮（OptionButton)

4.单选按钮(选项按钮)

功能:显示可以打开/关闭的选项。

注意:同一组只能选择一个选项。

选项单选按钮控件总是作为一组出现。在一组选项按钮控件中，总是只选择一个单选按钮；如果选择了其中一个，其余的单选按钮将自动清除为未选择。

(1)共同属性

标题-指定由单选按钮表示的选项的内容。

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

“Value= true”选择由控件表示的项。

“Value= false”控件表示的项未被选中。

enabled-指示单选按钮当前是否可用。当其值为True时，表示单选按钮处于正常可用状态；为假时。表示单选按钮不可用，选择项的内容变成雕刻的。

(2)例子:

【例1】:展示两个数四则运算的结果。参见教材P118。

私有子窗体_Load()

1 (0).“值=真”选择第一个选项。
Label2。标题= 56 * 89

末端接头

-

私有子选项1_Click(索引为整数)

select Case index
Case 0
label 2 . caption = 56 * 89 ' select乘法
Case 1
label 2 . caption = 56/89 ' select除法
Case 2
2。标签2。Caption = 56+89 '选择附加
情况3
标签2。caption = 56-89 '选择减法
结束选择

末端接头

注意:

在这个例子中，可以通过复制获得一组单选按钮。

当单选按钮的值设置为true时，它等效于click事件。
[程序演示][程序下载]

Select Case语句是VB提供的另一个条件语句，用来实现多分支选择(见教材第三章)。
Select Case语句的一般格式如下:
Select Case变量
Case值1
语句1
Case值2
语句2
。
。[语句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】:进行两个已知数据:乘、除、加、减。

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

双精度模糊结果

私有子选项1_Click()

如果选项1。那就值了

标签1。标题= " "

结果= val(Text1 . text)* val(text 2 . text)' val()将字符串转换为数值(因为文本框只接受字符数据，程序要求text 1中的数据参与数值运算)。

1.label = str (result)' str()将数字数据转换为字符串类型。

如果…就会结束

末端接头

-

私有子选项2_Click()

If Val(文本2。那么Text) = 0

MsgBox "股息不能为零，请重新输入！"MsgBox语句

其他

如果选项2。那就值了

标签1。标题= " "

结果= Val(Text1。Text) / Val(Text2。正文)

标签1。Caption = Str(结果)

如果…就会结束

如果…就会结束

末端接头

-

私有子选项3_Click()

如果选项3。那就值了

标签1。标题= " "

结果= Val(Text1。Text) + Val(Text2。正文)

标签1。Caption = Str(结果)

如果…就会结束

末端接头

-

私有子选项4_Click()

如果选项4。值，然后