以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何判断RibbonTabs功能区或用户菜单打开与否？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174748)
--  作者：cnsjroom
--  发布时间：2022/1/29 10:46:00
--  如何判断RibbonTabs功能区或用户菜单打开与否？

如何判断RibbonTabs功能区或用户菜单打开与否？

下述代码只能判断功能区是否包含常用功能

If RibbonTabs.Contains("常用功能") Then
RibbonTabs("常用功能").Groups("运行状态").Items("标签1").text = "启动时间:" & format(Date.now, "G")
RibbonTabs("常用功能").Groups("运行状态").Items("标签2").text = "启动时间:" & format(Date.now, "G")
RibbonTabs("常用功能").Groups("运行状态").Items("标签3").text = "启动时间:" & format(Date.now, "G")
vars("kaishishijian")=format(Date.now, "G")
End If

 
--  作者：有点蓝
--  发布时间：2022/1/29 10:51:00
--  
If RibbonTabs.Contains("常用功能") Then就是啊
--  作者：有点蓝
--  发布时间：2022/1/29 10:52:00
--  

Selected逻辑型，返回或设置此功能区是否为选定功能区。
示例：
RibbonTabs("Project").Selected = True
[此贴子已经被作者于2022/1/29 10:52:50编辑过]