以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]点击获取当前控件名。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45180) |
-- 作者:ndxfke -- 发布时间:2014/1/17 15:47:00 -- [求助]点击获取当前控件名。 我是想, 在某一个或几个公共的事件里,写段代码。 来实现获取界面中所有菜单、功能区、功能组和子菜单上的所有控件名字。 请问,如何实现呢?tks |
-- 作者:Bin -- 发布时间:2014/1/17 15:51:00 -- MessageBox.show(e.Sender.Name) |
-- 作者:ndxfke -- 发布时间:2014/1/17 15:52:00 -- 不知道写到哪个事件里合适。 |
-- 作者:Bin -- 发布时间:2014/1/17 15:53:00 -- 关键看你想做什么 |
-- 作者:ndxfke -- 发布时间:2014/1/17 15:56:00 -- 嗯, 高手一语中地。 我是想,通过这种方法来获取控件或菜单 ……的名字,来实现权限控制。
|
-- 作者:Bin -- 发布时间:2014/1/17 16:00:00 -- 这个我建议你参考帮助来做比较好. |
-- 作者:ndxfke -- 发布时间:2014/1/17 16:06:00 -- 好吧, 还是随便问下,这个问题有解没。
|
-- 作者:Bin -- 发布时间:2014/1/17 16:07:00 -- 获取控件名就那么一句代码,全局事件都可以用. 关键是没有这样搞限制的,不太科学. |
-- 作者:有点甜 -- 发布时间:2014/1/17 19:55:00 -- 用这段代码获取,如果group下的控件还有子控件,还需要用递归去获取全部,你看着办吧。 For Each tab As RibbonMenu.Tab In RibbonTabs For Each group As RibbonMenu.Group In tab.Groups For Each item As object In group.Items output.show(item.name & "|" & item.text) Next Next Next |