以文本方式查看主题

-  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=22864)
--  作者：实话实说
--  发布时间：2012/8/25 19:48:00
--  配置栏动态标签

想在菜单的配置栏动态显示用户名和时间,以下代码为何不行?

Dim Str1 As String = "当前用户: " & User.Name
Dim Str2 = Str1 & "   当前时间: " & Format (now, "D") & Format(now, "dddd ") & ""
RibbonMenu.ConfigBar.Items("标签1").text = Str2

--  作者：czy
--  发布时间：2012/8/25 20:14:00
--  
Dim Str1 As String = "当前用户: " & User.Name
Dim Str2 = Str1 & "   当前时间: " & Format (now, "D") & Format(now, "dddd ") & ""
ConfigBar.Items("标签1").text = Str2
--  作者：深山老翁
--  发布时间：2012/8/26 16:30:00
--  
我也很喜欢这个代码，但刚在拿去用了一下，发现后面的星期日是重复的。还有请问老师，能不能自动显示。
--  作者：zsrwh
--  发布时间：2013/3/10 18:47:00
--  
请问这段代码写在什么位置啊？是全局变量里么？谢谢
--  作者：双轨制
--  发布时间：2013/3/10 20:46:00
--  
放在AfterOpenProject事件中，这样打开项目后，就会自动显示。