动态创建控件数组、及创建的控件数组响应事件
环境说明：
1、有三、个窗体。窗体1（find_Frm）/窗体2（opt_Frm）/ 窗体3（print_Frm）
2、find_Frm有按钮，命名为find2_cmd。opt_Frm有optionbutton,命名为optadd(0)
3、要求按find2_cmd以后，在opt_Frm上创建多个optionbutton控件数组optadd(a),且显示窗体2
4、点击optadd(a)任意一个，在窗体3(print_Frm)上显示数据内容。
——————————————————————————————————————
find_frm下 find2_cmd 部分代码如下（a已经赋值）
——————————————————————
    opt_Frm.Show
    ReDim optadd(a)
    For i = 1 To a
    opt_w = Int(i / 30)     
        opt_nm = find2(i) & find1(i)
        Set optadd(i) = opt_Frm.Controls.Add("vb.optionbutton", opt_nm)
        Load opt_Frm.optadd(i)
        optadd(i).Move 200 + opt_w * 2000, (i - opt_w * 30) * 400, 2000, 375
        optadd(i).Caption = opt_nm
        optadd(i).Visible = True   
        optadd(i).Font = "宋体"
        optadd(i).FontBold = True
        optadd(i).FontSize = 12
    Next i
   ————————————————————————————
opt_frm  下代码（r/w已赋值）
Private Sub optadd_Click(Index As Integer)
    ReDim opt_all(w)
        If optadd(Index).Value = True Then
            For j = 1 To r
                opt_temp = xlSheet.Cells(i, 1)
                If opt_temp = find1(Index) Then
                    For k = 1 To w
                        opt_all(k) = opt_all(k) + xlSheet.Cells(1, k) & "：" & xlSheet.Cells(j, k) & Chr(13) & Chr(13)
                    Next k
                End If
            Next j
        End If
    print_Frm.Show
    print_Frm.Print opt_all(k)
End Sub
 ————————————————————————————
问题：在窗体opt_Frm上可以创建出多个optionbutton控件，但对点击optadd（1 to a）无法做出响应。仅仅对optadd(0)有响应。
百思不得其解，VB小小白，求大神帮助。

好像问题出在这里
Set optadd(i) = opt_Frm.Controls.Add("vb.optionbutton", opt_nm)
opt_nm 是个变量，创建的不是控件数组。
可不知道怎么改。
5555555

别急，有时间我给你弄一下。不过在这之前请你把你的工程文件发上来，你上面描述的不好理解。

[此贴子已经被作者于2016-11-10 10:30编辑过]

辛苦了。我百度了很久都没解决，还得版主帮助。

因你的工作未带一个测试用的 XLS 文件 ，所以整个工程都无法调试。
概念，控件数组，最少有一个元素在设计阶段已确定的，然后其他元素复制这个元素的实例。
     控件数组，不能在运行时直接创建一个原先不存在的控件数组

在这里面
Public optadd() As OptionButton  '查询后增加控件变量  违反了定义

其次，控件数组的添加，
不能这样        Set optadd(i) = opt_Frm.Controls.Add("vb.optionbutton", optadd(i)) '添加一个按钮 Public optadd As OptionButton
而应使用  Load Object (Index As Integer) 命令进行添加。

----------------
那么改？
首先，你应该放一个 下标为0 的元素，设置为隐藏。其他属性都设置好来。

使用时：
先 清掉除0下标外的所有的元素
for each obj in optadd
  if obj.index>0 then
     unload obj
  end if
next

然后再根据你的需要添加
load optadd(i)
再接着就是移动位置

        optadd(i).Move 200 + opt_w * 2000, (i - opt_w * 30) * 400, 2000, 375 'object.move left,top,width,height left距离左边， top距离顶端，  width新宽度， height新高度
        optadd(i).Caption = opt_nm '命名
        optadd(i).Visible = True    ' 可见

这三句，不是每个对象都设置，而是程序设计模式直接设置好 下标为0 的元素的属性，或者在代码中指定 下标为0 元素的属性。
这样每次加载时，就会把这个属性复制过去。
'        optadd(i).Font = "宋体"
'        optadd(i).FontBold = True
'        optadd(i).FontSize = 12

把你的工程文件发上来，我直接在你的工程里面给你修改。

这个是所有的文件，包含表格的

你的工程文件里没有包含代码中需要使用的那个"维修厂人员资质情况总表.xls"文件

下面是你给我的整个工程文件，你没有把那个"维修厂人员资质情况总表.xls"文件一起发过来

版主大神不是要搜罗资料吧？我觉得没提供完全可以模拟调试的。
仅就题主一楼问题应该是对控件数组和变量数组未区分清楚造成的。

模拟？他的整个程序就是围绕这个Excel文件展开的，你什么内容都不知道，怎么模拟？我十分愿意看到你模拟的结果。