不用控件,直接写代码
StatusBar.Message2 = " " & Date.now & " " & "星期" & "日一二三四五六".Chars(Today.DayOfWeek) & " 当前用户: " &User.Name
写在计划管理的代码里面
此主题相关图片如下:1.jpg
效果如下: