以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [讨论]状态栏合计问题要请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185109)

--  作者:lhfu
--  发布时间:2023/2/4 11:18:00
--  [讨论]状态栏合计问题要请教
我在状态栏左侧,在项目事件SystemIdle加入登入用户和日期:
Static ln As New Lunar(Date.Today)
Dim str As String = ""
Dim d As Date = CDate(ln.LunarDate)
If d.Day <= 10 Then
    str = cldate(d).Substring(5).trim("日")
    str = str.Insert(str.Length - 1, "初")
Else
    str = cldate(d).Substring(5).trim("日")
End If
statusBar.Message1 = "当前用户:" & User.Name & "  " & Format(Date.Today, "yyyy-MM-dd" & "  " & format(Date.now, "HH:mm:ss") & "  农历" & str & "  " & Format(Date.Today, "dddd"))
statusBar.DefaultMessage = statusBar.Message1
现在想在状态栏右侧加入合计值,应该怎么设置,请各位老师指导一下,谢谢!

--  作者:有点蓝
--  发布时间:2023/2/4 11:33:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77615&skin=0