怎样做权限管理,最好有例程!!谢谢

我的经验在窗口启动的时候先调用SetMenuTag函数
譬如
private sub SetMenuTag()mnuFileNew.Tag=1;
mnuFileOpen.Tag=2
end sub然后登录以后调用 '再这里假设UserPower=2 (当然这个值你可以自己任意设定)
public sub SetMnuVisible
'根据登录得人的权限设置菜单得可见性
mnuFileNew.visible=mnuFileNew.Tag and UserPower
mnuFileOpen.visible=mnuFileOpen.tag and UserPowerend sub这样只要你提前设置好tag 灵活修改UserPower就行了非常得方便修改和移植
并且只与UserPower的值有关，根本不用存储菜单得什么消息了