求教：VB中的动态创建菜单的问题

Question

因为涉及到 不同用户的不同权限的问题，我打算在系统登陆的时候，调用 Menu_Build 过程，主要是将存在后台表中的用户，及对应的权限，读出，然后，动态创建菜单，有权限为可用等
=======================================
目前问题是：如何的不借助于第三方的控件，比较简单的实现？最简单的那种就行！——其实，这种功能我已经用VBA在Access里面实现了，可是VB里面好想没有这种功能！

Answer 1

提供一个思路，将系统菜单或一个form中的功能按钮（工具条）放到数据表里（自己定义表吧），然后加一个权限字段（varchar,3000）里面放用户ID，用“,“隔开，装菜单或工具条的时候，自己去读权限字段中是否有这个用户ID，有就装，没有就不装。我就是这样做的。

Answer 2

这些关于菜单的API够你用的了。
网上有很多用API创建菜单的例子。  :)
AppendMenu 在指定的菜单里添加一个菜单项 
CheckMenuItem 复选或撤消复选指定的菜单条目 
CheckMenuRadioItem 指定一个菜单条目被复选成“单选”项目 
CreateMenu 创建新菜单 
CreatePopupMenu 创建一个空的弹出式菜单 
DeleteMenu 删除指定的菜单条目 
DestroyMenu 删除指定的菜单 
DrawMenuBar 为指定的窗口重画菜单 
EnableMenuItem 允许或禁止指定的菜单条目 
GetMenu 取得窗口中一个菜单的句柄 
GetMenuCheckMarkDimensions 返回一个菜单复选符的大小 
GetMenuContextHelpId 取得一个菜单的帮助场景ID 
GetMenuDefaultItem 判断菜单中的哪个条目是默认条目 
GetMenuItemCount 返回菜单中条目（菜单项）的数量 
GetMenuItemID 返回位于菜单中指定位置处的条目的菜单ID 
GetMenuItemInfo 取得（接收）与一个菜单条目有关的特定信息 
GetMenuItemRect 在一个矩形中装载指定菜单条目的屏幕坐标信息 
GetMenuState 取得与指定菜单条目状态有关的信息 
GetMenuString 取得指定菜单条目的字串 
GetSubMenu 取得一个弹出式菜单的句柄，它位于菜单中指定的位置 
GetSystemMenu 取得指定窗口的系统菜单的句柄 
HiliteMenuItem 控制顶级菜单条目的加亮显示状态 
InsertMenu 在菜单的指定位置处插入一个菜单条目，并根据需要将其他条目向下移动 
InsertMenuItem 插入一个新菜单条目 
IsMenu 判断指定的句柄是否为一个菜单的句柄 
LoadMenu 从指定的模块或应用程序实例中载入一个菜单 
LoadMenuIndirect 载入一个菜单 
MenuItemFromPoint 判断哪个菜单条目包含了屏幕上一个指定的点 
ModifyMenu 改变菜单条目 
RemoveMenu 删除指定的菜单条目 
SetMenu 设置窗口菜单 
SetMenuContextHelpId 设置一个菜单的帮助场景ID 
SetMenuDefaultItem 将一个菜单条目设为默认条目 
SetMenuItemBitmaps 设置一幅特定位图，令其在指定的菜单条目中使用，代替标准的复选符号（√） 
SetMenuItemInfo 为一个菜单条目设置指定的信息 
TrackPopupMenu 在屏幕的任意地方显示一个弹出式菜单 
TrackPopupMenuEx 与TrackPopupMenu相似，只是它提供了额外的功能 

Answer 3

mnuAdd的index 为0 Private Sub mnuAdd_Click(Index As Integer)
        Load mnuAdd(mnuAdd.UBound + 1)
        mnuAdd(mnuAdd.UBound).Caption = "add " & mnuAdd.UBound
End Sub

Answer 4

load objectname(i)
unload objectname(i)

Answer 5

做了个菜单类，可以动态创建菜单。http://expert.csdn.net/Expert/topic/2850/2850971.xml?temp=.6291162