vb中如何用写代码的方式来建立菜单呢？有哪位高手请指教！！！急盼！！！

Private Sub Command1_Click()
Static intcout
intcout = intcout + 1
Load mnufile(intcout)
mnufile(intcout).Caption = "mnufile" & intcout
mnufile(intcout).Visible = TrueEnd SubPrivate Sub mnufile_Click(Index As Integer)
MsgBox Index
End Sub
//說明。在窗體，創建一個菜單 .name="mnufile" .index=0

解决方案 »

  1.   

    mnufile 是什么对象？谢谢！
    还有没有高手的例子呢？
      

  2.   

    除了以上方法，还可以用API函数,以下是一些，其作用可以从字面看出
    CreateMenu
    CreatePopupMenu
    AppendMenu
    ModifyMenu
    InsertMenu
    DestroyMenu
    DeleteMenu
    RemoveMenu
    HiliteMenuItem
    TrackPopupMenu
    CheckMenuItem
    CheckMenuRadioItem
    SetMenuItemBitmaps
    SetMenuDefaultItem
    IsMenu
    GetMenu
    GetMenuItemRect
    GetMenuString
    GetMenuState
    GetMenuItemCount
    GetMenuDefaultItem
    GetMenuItemInfo
    GetSystemMenu
      

  3.   

    mnufile 是 先創建的 菜單，.name="mnufile" .index=0
      

  4.   

    ggto(没有猎枪的猎手  你说的那是必须先建立一个菜单，那如果我不事先创建菜单呢?
     footballboy(郑创斌) 你好啊，我也听说了用API的，但是就是不知道怎么开始，你知道那里有现成的代码，然我看看代码再做些修改，可以吗！谢谢！
    谢谢各位实时跟踪！
      

  5.   

    http://zyl910vb.51.net/vb/gui/FavMenu.htm
    建立收藏夹菜单 & 读取菜单到TreeView
    （注意把下载后的*.zip.jpg改名成*.zip）
      

  6.   

    先用CreatePopupMenu创建弹出式菜单（CreateMenu是创建窗体菜单）
    用AppendMenu、InsertMenu添加菜单项（菜单ID自己设，注意不要重复了）需要拦截窗体的WM_COMMAND消息得到点击的菜单项
    窗体菜单、弹出式菜单用DestroyMenu释放
    菜单项用DeleteMenu删除