以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]点击获取当前控件名。  (http://www.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