菜鸟问题 有多个Option 如何引用

VB code

Dim s As IntegerFor s = 17 To 28If Option(s).Value = True ThenFrame6.Enabled = FalseFrame7.Enabled = FalseEnd IfNext s

VB code

Dim s As IntegerDim blnF As BooleanblnF = FalseFor s = 17 To 28    If Option1(s).Value = True Then        blnF = True        Exit For    End IfNext sIf blnF Then    Frame6.Enabled = False    Frame7.Enabled = FalseEnd If
[解决办法]
控件名(Name属性)错误,写代码的时候这句话应该是红色的!lz没有发现吗,多看看控件和换件数组的命名规则!

而且这个代码也是有漏洞的!!!

你要考虑 option(17~28)全部选中后才实现        Frame6.Enabled=False
                                         Frame7.Enabled = False
或者只要是option(17-28)其中一个选中 就可以    Frame6.Enabled=False
                                          Frame7.Enabled = False
  如果是全选中才...=False 应该加And语句, 而随便一个选中就可以的话 应该加 Or 语句