以文本方式查看主题

-  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=93267)

--  作者:关怀天下
--  发布时间:2016/11/24 10:34:00
--  [求助]请问窗口下面怎么显示登录的用户名和日期啊
曾经看老师在视频里面教过,但是没记清楚,现在找了好几天的帮助也没看到,请老师帮忙给个帮助的链接或者给个代码,谢谢了图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
--  作者:有点蓝
--  发布时间:2016/11/24 10:56:00
--  
http://www.foxtable.com/webhelp/scr/0639.htm


--  作者:关怀天下
--  发布时间:2016/11/24 14:00:00
--  
老师您好,我看完帮助了,但是也没找到合适的方法把用户名和时间显示到窗口的下方啊,帮助上用的事窗口管理器,没提到怎么把代码放到窗口的下方,我想做出下图这个效果,请老师多多指点,怎么才能做出来啊
图片点击可在新窗口打开查看此主题相关图片如下:~rp)pew5_~rsd(@um5$308.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2016/11/24 14:29:00
--  
afteropenproject事件

StatusBar.Message1=user.name & date.today

--  作者:关怀天下
--  发布时间:2016/11/24 14:32:00
--  
谢谢图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
--  作者:caisnm
--  发布时间:2017/4/22 10:48:00
--  
afteropenproject事件

static ln As New Lunar(Date.Today)
statusBar.Message1 = "当前用户:" & User.Name & " 日期:" & Format(Date.Today,"yyyy年MM月dd日 dddd" & " 农历:" & ln.LunarDate & " 时间:" & format(Date.now, "HH:mm:ss")) 
statusBar.DefaultMessage = statusBar.Message1

--  作者:caisnm
--  发布时间:2017/4/22 10:49:00
--  
static ln As New Lunar(Date.Today)
statusBar.Message1 = "当前用户:" & User.Name & " 日期:" & Format(Date.Today,"yyyy年MM月dd日 dddd" & " 农历:" & ln.LunarDate & " 时间:" & format(Date.now, "HH:mm:ss")) 
statusBar.DefaultMessage = statusBar.Message1