VB 如何在过程中调用数组菜单名

Question

假设我已经设计了a,b,c,...,N个菜单名 
现在我想对所有菜单进行修改，现在的问题是，如何调用这N个菜单名。 
我的过程如下 
Private Sub SubName(menuName as Menu) 
End Sub 
想调用Call SubName(N)，
对N数组菜单进行修改. 
运行出错，显示类型不匹配。 
有人知道如何修改吗？现在的问题出在，该菜单是数组菜单，索引为0。若是普通菜单，程序无误！
我自己感觉应该是menuName as Menu，类型定义不正确。数组菜单有专门的类型吗？？

Answer 1

menuName as Menu，不是类型定义不正确。
是你传参传错了，你应该传单个数组元素,如楼上

Answer 2

这样调用，我无法在SubName中对N(index+1)的项进行修改，还得再次调用SubName(N(Index))

Answer 3

Private Sub SubName(menuName() as Menu)  
End Sub  这样试试。

Answer 4

这样不行，早就试过了。还是提示，类型不匹配。难道真的没有解决方法了吗？？
只有事先设计好N个数组菜单
然后:
Call SubName(N(0))
Call SubName(N(1))
Call SubName(N(2))
...
...
...
这样好麻烦啊

Answer 5

下一楼的，别告诉我，用循环实现我上面的N(0)~N(n)。
我除了有N这个数组菜单，还有A，B，C，D...若干数组菜单。

Answer 6

Private Sub SubName(menuName() as Menu)   
dim i as integer 
for i =Lbound(menuName) to Ubound(menuName)
     menuName(i) .....'操作
next
End Sub   CALL SbuName（N）；

Answer 7

你试试，添加菜单的时候，使他们的key都一样，这样便组成一个菜单数组
然后，再用12楼的办法，调用具体的菜单按钮

Answer 8

将AS Menu换成AS Control试验下。

Answer 9

控件数组作为参数的话,貌似应该这么写：
Private Sub SubName(menuName as object)'menuName为菜单名