有关于OptionButton的问题！请高手指点！

Question

你应该在一个容器里面建立一个OptionButton的控件数组，也就是：Option(0) 到Option(4)然后用以下方式判别是哪一个OptionButton被选择：Private Sub CmdOk_Click()
If Option(0).Value Then Msgbox "这是一"   '此处Value就是你想要的，它是一个boolean值；
If Option(1).Value Then Msgbox "这是二"
...
If Option(4).Value Then Msgbox "这是三"
End Sub

Answer 1

对，Option(0).Value  值是true或false
表示是否被选中

Answer 2

你通过msgbox显示亚,再不然用一个label显示呀.

Answer 3

你所用的是控件数组.
调用的方法是:option(1).value=false 表示没有选中;
option.(1).value=ture表示选中.
例如选中caption为3的选项就做.............
if option(3).value=true then
.................
................
end if

Answer 4

你应该在一个容器里面建立一个OptionButton的控件数组，也就是：Option(0) 到Option(4)然后用以下方式判别是哪一个OptionButton被选择：Private Sub CmdOk_Click(Index as Integer)
select case Index
   case 1
       Msgbox "这是一"   
   case 2
       Msgbox "这是二"
   case 3
       Msgbox "这是三"
   case 4
       Msgbox "这是四"
end select 
End Sub
TO dongdonghan(宁静散人) 你错误

Answer 5

哈哈，幼稚，难道你建立的是CmdOk这个控件的数组吗？提问者是要用OptionButton控件来表示答案，CmdOk是一个按钮控件。当然，如果用四个按钮控件标识答案也可以啊。

Answer 6

看来楼上诸位的回答，我觉得我这些年真是白混了。为什么要用if...else...elseif...end if，而不用select case。呵呵，要向你们学习啊！dim opt as integer '//这个用来记录你选中的哪个option，定义为全局或者模块级别的变量
'//此外，如果采用Option控件数组。就如下写option的click事件处理程序
private sub option1_click(index as integer)
    opt=index
end sub
'//如果不是控件数组，就如下写
private sub option1_click()
    opt=1
end subprivate sub option2_click()
    opt=2
end sub
    .
    .
    .
    .
private sub optionN_click()
     opt=n
end sub'//然后在CommandClick时间处理函数里如下写程序
private sub cmdok_click()
select case opt
    case 1
        '//加上你的语句
    case 2
        '//加上你的语句
    case 3
        '//......
     .
     .
     .
    case n
         '//..............
end select
end sub

Answer 7

Private Sub CmdOK_Click()
Dim ktrktr
If Option1(0).Value = True Then
ktrktr = "这是一"
ElseIf Option1(1).Value = True Then
ktrktr = "这是二"
ElseIf Option1(2).Value = True Then
ktrktr = "这是三"
ElseIf Option1(3).Value = True Then
ktrktr = "这是四"
ElseIf Option1(4).Value = True Then
ktrktr = "这是五"
End If我最后是这样写的！！呵呵，谢谢各位高手的指点！！