UC知道optionbutton初始化出错 VB
来源：百度知道 编辑：UC知道 时间：2024/09/28 17:41:46
已经把8个option button设定在了一个frame里，但是load 该form时，就报错
out of stack space.
代码如下：
Private Sub Form_Load()
Me.optR(0).Value = True
End Sub
Private Sub optR_Click(Index As Integer)
Dim a As Integer
a = Index
optR(0).Value = False
optR(1).Value = False
optR(2).Value = False
optR(3).Value = False
optR(4).Value = False
optR(5).Value = False
optR(6).Value = False
optR(7).Value = False
optR(a).Value = True （debug说出错在此句上）
End Sub
如何初始化optionbutton？
当点击某一个optionbutton时，相应的代码要怎么写？
out of stack space.
代码如下：
Private Sub Form_Load()
Me.optR(0).Value = True
End Sub
Private Sub optR_Click(Index As Integer)
Dim a As Integer
a = Index
optR(0).Value = False
optR(1).Value = False
optR(2).Value = False
optR(3).Value = False
optR(4).Value = False
optR(5).Value = False
optR(6).Value = False
optR(7).Value = False
optR(a).Value = True （debug说出错在此句上）
End Sub
如何初始化optionbutton？
当点击某一个optionbutton时，相应的代码要怎么写？
把所有的OptionButton都画在一个Frame里,记住,一定要同一个Frame里画它们,这样的话只会有一个OptionButton被选中,其他的都不会被选中,就算你改选中另一个也是一样,永远只会有一个被选中,这是自动的,不用你去初始化,你只要初始化一下哪个按钮被选中就行了,记住只能设置其中一个被选中,这个就在VB左下方中间的属性窗口里设置一下Value值就可以了.如果你要用复制-粘贴的方法生成OptionButton控件数组,那你在每次粘贴前都要选点一下Frame,选中Frame再CTRL+V粘贴生成控件数组
你上面的
Private Sub optR_Click(Index As Integer)
Dim a As Integer
a = Index
optR(0).Value = False
optR(1).Value = False
optR(2).Value = False
optR(3).Value = False
optR(4).Value = False
optR(5).Value = False
optR(6).Value = False
optR(7).Value = False
optR(a).Value = True （debug说出错在此句上）
End Sub
通通不要,多此一举