以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助“扬州华泰ERP信息管理系统”状态栏上时间刷新的实现方式  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27630)
--  作者：wfkbabro
--  发布时间：2013/1/6 11:42:00
--  求助“扬州华泰ERP信息管理系统”状态栏上时间刷新的实现方式
请教：扬州华泰ERP信息管理系统.table 状态栏上时间刷新的实现方式，看了代码没找到计划任务，不知道按秒刷新时间是用什么方式实现的？
疑惑中，谢谢各位。
 
相关代码：
 

状态栏button时间

 

Dim StatusBar As C1.Win.C1Ribbon.C1StatusBar = BaseMainform.Controls("C1StatusBar1")

If Not StatusBar.leftPaneItems.Contains("BtnTest") Then

    RbnBtn = New C1.Win.C1Ribbon.RibbonButton

    \'RbnBtn.Name = "BtnTest"

    RbnBtn.TextImageRelation = C1.Win.C1Ribbon.TextImageRelation.ImageBeforeText

    RbnBtn.SmallImage = GetImage("clock.png")

    RbnBtn.Text = Date.now & " " & Format(Date.Today(),"dddd")

    \'RbnBtn.ToolTip = "状态栏上添加的按钮"

    StatusBar.rightPaneItems.Add(RbnBtn)

End If

秒表_TimerTick

 

Dim t1 As Date = Vars("Time")

Dim t2 As Date = Functions.Execute("服务器精确时间")

Dim t As TimeSpan = t2 - t1

Dim str As String

str = t.Minutes & ":" & t.Seconds & ":" & Format(t.Milliseconds,"000")

e.Form.Controls("Button1").text = str
--  作者：wfkbabro
--  发布时间：2013/1/6 12:45:00
--  

找到了。

systemidle事件