Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
菜单的Load事件加入一行:
RibbonTabs("功能区1").Groups("功能组1").Items("标签1").Text = "今天是:" & Date.Today()
加上星期的话可以这样
RibbonTabs("Other").Groups("功能组1").Items("标签1").text = "今天是: " & Date.Today() & " " & Format(Date.Today(),"dddd")