vb中二级菜单如何动态生成？

可以用API函数来生成，先生成一个Menu，再生成SubMenu,可以到www.allapi.net上去下载一个API的查看器，有这方面的帮助。

解决方案 »

  1.   

    '用API函数
    '--------------------------
    '函数声明略
    dim hMenu,hSubmenuhMenu=GetMenu(me.hwnd)
    hSubmenu=GetSubMenu(hMenu,1)
    hSubmenu=GetSubMenu(hSubMenu,1)
    AppendMenu(hSubMenu,MF_STRING,1000,"动态菜单一")
    AppendMenu(hSubMenu,MF_STRING,2000,"动态菜单二")
    '搞定!
      

  2.   

    http://www.allapi.net/php/redirect/redirect.php?action=download&id=306
    呵呵
      

  3.   

    `getsubmenu 是反会谈出事菜单句柄，我说的是系统主菜单
    再来
      

  4.   

    to gump2000
         哪个家伙不行,菜单时能够生成,但生成的菜单没有CLICK事件,只是预定义菜单的影像,没有用啊.生成的菜单要用啊,没有click 怎么用?