怎样取得窗体中的所有菜单？

Question

如题。

Answer 1

dim mnuCtr as menu
for each mnuCtr in form1
if typeof mnuCtr is Menu then
list1.addItem mnuCtr.caption
end if
next

Answer 2

用以上方法把菜单名写入了List1中，怎样实现点list1就触发相应菜单的单击事件。

Answer 3

即直接调用菜单单击事件mnuName_Click即可

Answer 4

Dim frm As Form
    Dim str As String
    str = Trim(List1.Text)
    Set frm = Forms.Add(str)
    frm.Show

Answer 5

重复一下：
按上面的方法就不用调用菜单，不过注意List1.Text=form.name

Answer 6

dim mnuCtr as menu
for each mnuCtr in form1
if typeof mnuCtr is Menu then
list1.addItem mnuCtr.caption
end if
next
这个不能实现菜单的树形读取！

Answer 7

TO ： lxcc(虫子|专注于抢分)
即直接调用菜单单击事件mnuName_Click即可————
mnuName是一个变量，
想这样：变量&_Click可不能，怎么办。

Answer 8

Private Sub List1_Click()
Select Case List1.Text
    case ...
        call mnuName_click
    case...
....
End Select
    
End Sub
不知道有没好点的办法

Answer 9

调用mnuName_Click()事件就行了
如：
  Private Sub mnuClose_Click()
      '代码
  End Sub楼主结帐吧

Answer 10

结就结嘛，但我问的问题 只有zgvslch(烟花离落)清楚，我现在用的就是zgvslch(烟花离落)的那种方式，但觉得这样有点不灵活，每增加一个菜单和该菜单的单击事件 都要到这个select里来加一个。是吧。