Foxtable(狐表)用户栏目专家坐堂 → 求助“扬州华泰ERP信息管理系统”状态栏上时间刷新的实现方式


  共有8079人关注过本帖树形打印复制链接

主题:求助“扬州华泰ERP信息管理系统”状态栏上时间刷新的实现方式

帅哥哟,离线,有人找我吗?
wfkbabro
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:265 积分:2399 威望:0 精华:0 注册:2011/10/21 17:07:00
求助“扬州华泰ERP信息管理系统”状态栏上时间刷新的实现方式  发帖心情 Post By:2013/1/6 11:42:00 [只看该作者]

请教:扬州华泰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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:265 积分:2399 威望:0 精华:0 注册:2011/10/21 17:07:00
  发帖心情 Post By:2013/1/6 12:45:00 [只看该作者]

找到了。

systemidle事件


 回到顶部
帅哥哟,离线,有人找我吗?
2012woaigp
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:123 积分:719 威望:0 精华:0 注册:2012/12/16 13:09:00
  发帖心情 Post By:2013/1/6 17:40:00 [只看该作者]

用户已被锁定

 回到顶部