怎样动态的建立菜单

[jxnctw]

当菜单栏的数量和内容不确定时，怎么通过代码，动态的增加菜单栏

[foolishtiger]

' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
' Author:吴文智
' Date:2001-11-23
'Description:要试用本例请在窗体中填加一个按钮,再加一个主菜单,它有一个子菜单名为mnuTest,并且在菜单编辑器中指定mnuTest的索引是0(表示它是一个控件数组)
' 然后在代码窗体中粘贴如下代码
' Good luck!

Option Explicit

Private Sub Command1_Click()
Dim lngCount As Long

lngCount = mnuTest.Count
Load mnuTest(lngCount + 1)
mnuTest(lngCount + 1).Caption = "文件" & lngCount + 1
MsgBox "增加菜单完成.", vbInformation
End Sub

[suinx]

有谁会喜欢用菜单数组， ：　foolishtiger(吴文智)　是不是不想回答啊？

[a_geng]

可以使用activebar2.0