如何动态加载菜单项

Question

现在我要根据用户权限进行菜单的加载，如果用户权限为1，则显示菜单01，如果用户权限为2则加载菜单02....应该怎么解决？？

Answer 1

晕，你根据用户权限动态修改菜单的visible不行吗？

Answer 2

dim user as string  '假设菜单名已经有一个叫RMenu(0)，有索引
dim A as long
a=0
select case ucase(user)
       case "A"
            a=0
       case "B"
            a=1
       case "C"
            a=2
       ......
end select
dim I as long
for I=0 to RMenu.Count-1
    if I=a then
       Rmenu(i).visible = True
      else
       Rmenu(i).Visible = False
    endif
next i
'完成