Foxtable(狐表)用户栏目专家坐堂 → 请教:菜单组件移动后的标题问题


  共有3955人关注过本帖树形打印复制链接

主题:请教:菜单组件移动后的标题问题

帅哥哟,离线,有人找我吗?
y2287958
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4773 积分:34673 威望:0 精华:0 注册:2008/8/31 22:44:00
请教:菜单组件移动后的标题问题  发帖心情 Post By:2021/3/10 9:51:00 [只看该作者]

如题。
就是同一个菜单组件移动不同的位置,可以通过“.text”设置不同的标题,目前设置后全部是一样的。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111414 积分:567140 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/10 9:55:00 [只看该作者]

截图说明一下,哪个菜单移动到哪里?写了什么代码设置

注意菜单移动后,引用的路径就不一样了,引用新的路径

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4773 积分:34673 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2021/3/10 10:02:00 [只看该作者]

例如以下代码:想在mnu2的标题为"增加行" ,mnu3的标题为"增加一行" 。(现在全部显示为"增加一行"
Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("Cell")
Dim mnu2 As RibbonMenu.ContextMenu = ContextMenus("Range")
Dim mnu3 As RibbonMenu.ContextMenu = ContextMenus("Column")
mnu2.Items.Add(mnu1("RowMenu")("Add"))
mnu2("Add").text = "增加行" 
mnu3.Items.Add(mnu1("RowMenu")("Add"))
mnu3("Add").text = "增加一行"

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111414 积分:567140 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/10 10:17:00 [只看该作者]

菜单对象属于引用类型,添加的是同一个菜单,随便改哪个,肯定是都一样的

 回到顶部