以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎样在菜单显示时间  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13711)

--  作者:bm
--  发布时间:2011/10/24 11:51:00
--  怎样在菜单显示时间
怎样在菜单显示时间。如附件(这个附件打不开开发功能,附件里显示的只有日期和星期,能否显示时间)
图片点击可在新窗口打开查看此主题相关图片如下:截图17.jpg
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2011/10/24 12:13:00
--  

菜单的Load事件加入一行:

 

 

RibbonTabs("功能区1").Groups("功能组1").Items("标签1").Text = "今天是:" & Date.Today()

 


--  作者:czy
--  发布时间:2011/10/24 12:20:00
--  

加上星期的话可以这样

 

RibbonTabs("Other").Groups("功能组1").Items("标签1").text = "今天是: " & Date.Today() & " " & Format(Date.Today(),"dddd")