以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何在状态栏增加星期几  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58097)
--  作者：liujywwy
--  发布时间：2014/10/11 14:27:00
--  [求助]如何在状态栏增加星期几

systemidle代码如下:

With  CurrentTable
    Dim Str1  As  String =  "当前登录用户: " & User.Name & "你好!欢迎使用BDSMS"
    Str1 = Str1 & " 正操作表名为: " & .Name & " 总行数: "
    Str1 = Str1 & .Rows.Count &  " 当前行: " & (.Position + 1)
    Str1 = Str1 &  "今天是:" & Date.now
    StatusBar.Message1 = Str1
End  With

 

如何在date.now 后面加上星期几？请指教。
--  作者：Bin
--  发布时间：2014/10/11 14:29:00
--  
MessageBox.show(WeekDayName(Date.Today.DayOfWeek+1))
--  作者：liujywwy
--  发布时间：2014/10/11 14:35:00
--  
以下是引用Bin在2014-10-11 14:29:00的发言：
MessageBox.show(WeekDayName(Date.Today.DayOfWeek+1))

我把这段代码加入了，想看看弹出框的信息。

这不一直出现星期日的框，关都关不了。想重新回到systemidle编辑怎么弄？
--  作者：liujywwy
--  发布时间：2014/10/11 14:41:00
--  
可以了。按住ctrl可以正常了。多谢。
--  作者：Bin
--  发布时间：2014/10/11 14:50:00
--  
这是获取的方式,你拼接进去就好了. 不要盲目套用.  
--  作者：liujywwy
--  发布时间：2014/10/11 15:49:00
--  
以下是引用Bin在2014-10-11 14:50:00的发言：
这是获取的方式,你拼接进去就好了. 不要盲目套用.  

已经好了。每一段增加几个空格，怎么弄。

With  CurrentTable
    Dim Str1  As  String =  "当前登录用户: " & User.Name & "你好!欢迎使用BDSMS"
    Str1 = Str1 & " 正操作表名为: " & .Name & " 总行数: "
    Str1 = Str1 & .Rows.Count &  " 当前行: " & (.Position + 1)
    Str1 = Str1 &  "今天是:" & Date.now
    Str1 = Str1 & WeekDayName(Date.Today.DayOfWeek)
    StatusBar.Message1 = Str1
End  With
--  作者：Bin
--  发布时间：2014/10/11 15:50:00
--  
"          "  & 内容  直接用空格字符