以文本方式查看主题 - 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
|