以文本方式查看主题

-  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=139643)
--  作者：tennis
--  发布时间：2019/8/18 10:54:00
--  [求助]请问如何遍历配置栏的各物件名称?
如题
--  作者：y2287958
--  发布时间：2019/8/18 14:00:00
--  
For Each itm As RibbonMenu.RibbonItem In ConfigBar.Items

Next
--  作者：tennis
--  发布时间：2019/8/18 14:13:00
--  
3Q!! 解決了!!
--  作者：tennis
--  发布时间：2019/8/18 15:22:00
--  
谢谢 y2287958 又请教判断 configbar 若没有itemA 想动态加一配置栏按钮又如何做?
--  作者：y2287958
--  发布时间：2019/8/18 15:31:00
--  
Dim ob = New RibbonMenu.Button("名称")
ConfigBar.Items.Add(ob)
--  作者：tennis
--  发布时间：2019/8/18 15:35:00
--  
3Q!! \'
此段代码用于显示OpenQQ的未读消息,先判断OpenQQ是否存在 
Static OpenQQ As RibbonMenu.Button 
Static LastTime As Date 
If OpenQQ Is Nothing Then 
 OpenQQ = ConfigBar.Items("OpenQQ") 
End If 

 OpenQQ = ConfigBar.Items("OpenQQ")这段一直出错,既然OpenQQ Is Nothing ,
ConfigBar.Items("OpenQQ")就不存在啊!!
[此贴子已经被作者于2019/8/18 15:58:45编辑过]
--  作者：有点蓝
--  发布时间：2019/8/18 20:35:00
--  
Static OpenQQ As RibbonMenu.Button 
Static LastTime As Date 
If OpenQQ Is Nothing Then 
OpenQQ= New RibbonMenu.Button("名称")
ConfigBar.Items.Add(OpenQQ)
else
 OpenQQ = ConfigBar.Items("OpenQQ") 
End If 
--  作者：tennis
--  发布时间：2019/8/19 13:27:00
--  
3Q!!