以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]20160610版本刚发布的新功能[窗口菜单]中的按钮是否有PerformClick功能  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86054)

--  作者:atmetmicoo
--  发布时间:2016/6/8 19:31:00
--  [求助]20160610版本刚发布的新功能[窗口菜单]中的按钮是否有PerformClick功能
Hi 各位老师,

为了保持代码简洁,我习惯性的使用PerformClick,请问窗口菜单中的按钮是否能被PerformClick(),谢谢。
[此贴子已经被作者于2016/6/8 21:33:04编辑过]

--  作者:大红袍
--  发布时间:2016/6/8 19:57:00
--  

 可以

 

RibbonTabs("Table").Groups("Table").Items("TableProperty").PerformClick


--  作者:atmetmicoo
--  发布时间:2016/6/8 21:32:00
--  
以下是引用大红袍在2016/6/8 19:57:00的发言:

 可以

 

RibbonTabs("Table").Groups("Table").Items("TableProperty").PerformClick

谢谢大红袍老师,


我咨询的是最新版刚出的功能的窗口菜单,不是快捷菜单,我试过没成功,所以发帖请教


--  作者:狐狸爸爸
--  发布时间:2016/6/9 8:23:00
--  

没有的,因为窗口菜单是统一编写代码,如果两个按钮要执行相同的代码,也不需要重复编写:

 

Case "按钮名1","按钮名2"

    代码


--  作者:大红袍
--  发布时间:2016/6/10 20:19:00
--  

可以,参考代码

 

Dim o As object = e.form.panel.controls("主菜单")
o.Items("项目1").DropDownItems("项目1").performClick