以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  菜单按钮  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21812)
--  作者：wilson
--  发布时间：2012/7/25 11:55:00
--  菜单按钮

我想在配件窗口打开时，现示菜单按钮 配件

求助，谢谢
Dim noc4 As RibbonMenu.Button = RibbonTabs("物料").Groups("信息").Items("配件")
If  ApplicationTitle.Name  = "配件窗口"  Then
    noc4.Visible = True
Else
    noc4.visible = False
End If
--  作者：狐狸爸爸
--  发布时间：2012/7/25 12:12:00
--  
设置配窗口的AfterLoad事件：
 
RibbonTabs("物料").Groups("信息").Items("配件").Visible = True
 
设置Beforeclose事件：
 
RibbonTabs("物料").Groups("信息").Items("配件").Visible = False
--  作者：wilson
--  发布时间：2012/7/25 13:13:00
--  

问题已解决，

非常感谢狐爸！