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
VB教程:单选按钮(OptionButton).doc
下载Word文档到电脑,方便收藏和打印[全文共1839字]
编辑推荐:
下载Word文档