我在状态栏左侧，在项目事件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
现在想在状态栏右侧加入合计值，应该怎么设置，请各位老师指导一下，谢谢!
加好友 
发短信
Post By：2023/2/4 11:18:00 [显示全部帖子]
