一个关于菜单的小问题！

Question

我在菜单编辑器中添加了几个菜单选项，例如：
File1
File2
File3
我想用程序添加其中任一（比如：File2）的子菜单，不用API函数。谢谢！

Answer 1

在下面的示例中，将 File 菜单项添加到 MainMenu 中。File 菜单项包含名为 Open 和 Exit 的子菜单项。
'Add File Menu
Dim miFile As MenuItem = mainMenu.MenuItems.Add("&File")
miFile.MenuItems.Add(new MenuItem("&Open..."))
miFile.MenuItems.Add("-")     ' Gives us a seperator
miFile.MenuItems.Add(new MenuItem("E&xit")) 

Answer 2

VB.6支持mainMenu控件吗？如果支持，该如何引用这个控件！谢谢！

Answer 3

能否给个代码，就拿上面的例子来说，在添加File2的子菜单File2_1,File2_2，谢谢！

Answer 4

菜单项
文件   name:file
---file1   name:f1 索引0
Dim i As Integer
Private Sub Command1_Click()
    On Error Resume Next
    Load f1(i)
    f1(i).Caption = "file" + CStr(i + 1)
    f1(i).Visible = True
    i = i + 1
    Print i
End SubPrivate Sub Form_Load()
  i = 1
End Sub

Answer 5

问题已结。不过这种方法的局限性就是必须预先确定一个子菜单。danielinbiti（金）接分!