以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  遍历标准按钮如何写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19163)
--  作者：hiliuyong
--  发布时间：2012/4/29 15:44:00
--  遍历标准按钮如何写
图片点击可在新窗口打开查看
遍历系统标准按钮如何写
论坛上有代码是

For Each itm As RibbonMenu.RibbonItem In RibbonTabs(MainTable.Name).Groups(0).Items
    For Each dr As DataRow In dt.DataRows
      
    Next
    itm.Enabled = False
Next

 
是RibbonMenu的，有没有仅仅判断标准按钮的
 
 
--  作者：狐狸爸爸
--  发布时间：2012/5/2 10:10:00
--  
For Each itm As RibbonMenu.RibbonItem In RibbonTabs("Common").Groups("SortAndFilter").items
    If Typeof itm Is RibbonMenu.Button
        Dim btn As RibbonMenu.Button = itm
        output.show(btn.name)
    End If
Next
--  作者：hiliuyong
--  发布时间：2012/5/3 18:30:00
--  

狐爸，按照上述代码，结果是

Ascending
Descending
UnSort
SelectFilter
UnFilter

 

我需要的结果是，我自己建立的菜单，比如

mnuBill

mnuCust

mnuProduct

 

我要通过遍历来给某个用户赋权，可以打开某个窗体
--  作者：hiliuyong
--  发布时间：2012/5/3 18:32:00
--  

补充一下

我需要的代码是类似

 

FOR Each c As Winform.Control In e.Form.Controls
    Output e.Form.Name 
Next