控件数组如何做函数参数

Question

我要在这个过程中动态装载好几个菜单项Private Function LM(Obj() As Control)
    i = 1
    Load Obj(i)
    Obj(i).Caption = i    i = i + 1
End FunctionPrivate Sub Command1_Click()
LM AAA
LM bbb
LM CCC
End Sub菜单AAA BBB CCC 的索引都为0
那个高手指教一下吧

Answer 1

先前已经建好的菜单 NAME= AAA   ,  BBB  , ccc   并且index 全都为0通过按钮 调用函数LM   参数就是  这些菜单项啊（AAA ...)就是在一个函数中动态装载几个菜单项总的来说就是控件数组如何做函数参数

Answer 2

但是不行啊，那个能给我个例子啊，，
[email protected]

Answer 3

控件数组作参数是不能写成 As Control的
应该写成 As object
并且控件数组名Obj的后边不要有括号，
至于函数里边的写法正常就行，可以写任何关于Obj属性的表达式，
但是你一定要保证传进去的Obj控件是数组名，否则你就得吃不了兜着走了。
我不知道你的AAA、BBB、CCC是不是已经建好的，还是要在程序运行时再动态
自动加载的，哈哈，你先试试看，不行的话，大家在讨论。
要是可以的话，你能不能给我讲一讲菜单动态加载是怎么做的，
我做的菜单都是事先在菜单编辑器里做好的，我很嫌麻烦，
要是可以用代码控制加载，那会省掉不少事情的，嘻嘻，我这人有点懒...