任务十二
在前面的任务六中，我们已经知道功能组和单个菜单组件可以被随意移动，甚至可以同时在多个地方出现。
快捷菜单命令也有类似的特性，同一个快捷菜单命令可以同时出现在多个快捷菜单中。
例如打开示例文件“实战菜单.Table”，进入菜单设计器后，可以发现快捷菜单Range是空的，里面并没有任何命令。
可实际使用的时候，选定多个单元格，右击后弹出的快捷菜单Range是有命令的，这是为什么呢？
这是因为我们在菜单的Load事件中加入了下面一段代码：
'任务十二
Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("Cell")
Dim mnu2 As RibbonMenu.ContextMenu = ContextMenus("Range")
mnu2.Items.Add(ContextMenus("Cell").Items("Cut"), False)
mnu2.Items.Add(ContextMenus("Cell").Items("Copy"))
mnu2.Items.Add(ContextMenus("Cell").Items("Paste"))
mnu2.Items.Add(ContextMenus("Cell").Items("Ascending"))
mnu2.Items.Add(ContextMenus("Cell").Items("Descending"))
mnu2.Items.Add(ContextMenus("Cell").Items("UnSort"))
上面的代码在菜单生成后，会将Cell快捷菜单中的部分命令加入到Range快捷菜单中，避免了重复设计。
不仅仅是快捷菜单命令，子菜单也可以被同时加入到多个快捷菜单或其它子菜单中。
提示：
Add方法的第二个参数是可选的，用于决定是否在新加入的命令前显示一条分割线，如果省略此参数，则保持现有设置不变。
里面这段话：
例如打开示例文件“实战菜单.Table”，进入菜单设计器后，可以发现快捷菜单Range是空的，里面并没有任何命令。
可实际使用的时候，选定多个单元格，右击后弹出的快捷菜单Range是有命令的，这是为什么呢？
这是因为我们在菜单的Load事件中加入了下面一段代码：
这个 Load事件是在哪里的？ 我怎么找不到
还有发现快捷菜单Range是空的，里面没有任何命令！ 这个空的 在哪里 我也没找到
望指点下~~
加好友 
发短信
Post By：2011/8/10 17:23:00 [只看该作者]
