| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 几个关于菜单设计的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49518) |
| -- 作者：zhangchi96 -- 发布时间：2014/4/19 10:17:00 -- 几个关于菜单设计的问题 1、如果已经有一个菜单按钮 RibbonTabs("功能区1")("功能组1")("工具栏1")，其代码比较复杂一些 另有一个菜单按钮，名称：A，其代码准备和上面的菜单按钮代码相同，如果想直接运行上面的按钮，代码怎么样写？这样免得以后改代码的时候要改两个地方。和窗体中某个控件运行另一个控件的意思类似。
2、如果想通过菜单按钮 打开一个网站、一个WORD文档，一个EXCEL文档，代码怎么写？
恳请专家指教！！ |
| -- 作者：Bin -- 发布时间：2014/4/19 10:26:00 -- 如果是按钮可以执行PerformClick 其他控件就没办法了,你可以写成内部函数来调用.
|
| -- 作者：zhangchi96 -- 发布时间：2014/4/19 11:10:00 -- 谢谢 B in，问题1 解决了
Dim btn As RibbonMenu.Button = RibbonTabs("录入修改").Groups("在职教职工").Items("查询信息")
这样就等同于执行了 菜单按钮 【查询信息】的代码了。 |
| -- 作者：zhangchi96 -- 发布时间：2014/4/19 11:16:00 -- 项目的分级太多的时候就不知道怎么写了，我干脆直接写成了下列这样子，也能用
Dim btn As RibbonMenu.Button = RibbonTabs("查询打印")("月度绩效工资报表")("单位报表")("人员档案工资汇总表") |