以下是引用kylin在2011-9-2 11:22:00的发言：
浏览了2遍，感觉太复杂了，希望老六能提供个简单的方法。
让运用者简单切换，这样岂不是让开发者可以做到一个窗口设计一个菜单，大大放大系统的开发功能！
现在的感觉就是切换菜单是一件比较麻烦的事！
本来 我是不想回答 这个问题的 因为这个帖子有那么多得高手发表了
针对楼主 上面的话来看的 话 你是想实现 窗口更换的 同时 实现 自动更换相应的菜单？ 如果是这样 要实现是很简单的
1. 在设计菜单的时候菜单名 必须与 窗口名 相同 （我用的是功能区名，如果 你想用组件名 也能实现这一方法）
2. 在全局代码里 定一个字符变量 “x”，（系统搜索不到当前窗口名称，也可能是我没找到相关属性）
3.在窗口的 AfterLoad 事件 写上
x = “当前窗口名”
For Each tb As RibbonMenu.Tab In RibbonTabs
If tb.name = x
tb.visible = True
Else
tb.visible = False
End If
Next
这样 你开什么 窗口就是什么菜单了
另外在唠叨两句
程版 说的 易表的 菜单方式 用狐表是可以 实现的 用上 动态管理函数 就可以了
狐表能够 完全设计出 跟易表 一模一样的 菜单架构设计 方式
小弟不才 在此献丑了
加好友 
发短信
Post By：2011/9/3 0:44:00 [只看该作者]
F6
