| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [原创] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189584) |
| -- 作者：hnyhw411 -- 发布时间：2023/12/10 13:59:00 -- [原创] e.Form.TimerInterval = 1000 e.Form.Controls("label1").text = Date.Now 这个需要1秒钟执行一次 e.Form.TimerInterval = 60000 Tables("winform_Table3").DataTable.Load 这个需要1分钟执行一次 e.Form.TimerInterval = 1000 想实现这样的功能，应该怎么写
|
| -- 作者：有点蓝 -- 发布时间：2023/12/10 20:50:00 -- 把间隔设置为1秒固定不变 计时器代码 e.Form.Controls("label1").text = Date.Now Static dt As Date \'静态变量,用于保存上次执行的时间 Dim tp As TimeSpan tp = Date.Now - dt If tp.TotalMinutes >= 1 Then \'如果距离上次执行已经超过一分钟 dt = Date.Now Tables("winform_Table3").DataTable.Load End If |
| -- 作者：hnyhw411 -- 发布时间：2023/12/11 18:00:00 -- 谢谢 |