| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助：菜单引用问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85704) |
| -- 作者：lzzhx -- 发布时间：2016/6/1 13:09:00 -- 求助：菜单引用问题 请教老师：如何根据字符串 RibbonTabs("Common").Groups("表操作").Items("AddRow") 引用该菜单按钮，并设置该菜单按钮的enabled属性 |
| -- 作者：大红袍 -- 发布时间：2016/6/1 14:21:00 -- 动态编译
Functions.remove("函数") [此贴子已经被作者于2016/6/1 14:21:21编辑过]
|
| -- 作者：lzzhx -- 发布时间：2016/6/1 14:59:00 -- RibbonTabs("Common").Groups("表操作").Items("AddRow") 是一个字符串，不是菜单对象。 要实现 RibbonTabs("Common").Groups("表操作").Items("AddRow").enabled = false Code = "msgbox(123) \'你要执行的代码" 该如何写 我这样写了不行 Functions.remove("菜单设置") Dim aaa As String = "RibbonTabs("Common").Groups("表操作").Items("AddRow")" Dim Code As String = "aaa.enabled = false" Functions.Add("菜单设置",Code) Functions.Complie() Functions.Execute("菜单设置") |
| -- 作者：大红袍 -- 发布时间：2016/6/1 15:04:00 -- Functions.remove("菜单设置") Dim Code As String = "dim aaa = RibbonTabs(""Common"").Groups(""表操作"").Items(""AddRow"")" & vbcrlf |
| -- 作者：lzzhx -- 发布时间：2016/6/1 15:35:00 -- 谢谢老师了，还有一个问题，用replace将" 替换成 \' 如何写 字符串.replace(""","\'") 这样不行
|
| -- 作者：大红袍 -- 发布时间：2016/6/1 15:38:00 --
Dim str as string = "abc""defg" |
| -- 作者：lzzhx -- 发布时间：2016/6/1 16:13:00 -- 谢谢老师 |