下面代码写到SystemIdle事件
Dim Str1 As String = "当前用户: " & User.Name & " 现在时间:" & Date.Now() & " 星期" & "日一二三四五六".Chars(Today.DayOfWeek)StatusBar.Message1 = Str1
加好友 
发短信
Post By：2015/2/23 9:52:00 [显示全部帖子]
