标题：[原创]

1楼

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

想实现这样的功能，应该怎么写

2楼

有点蓝 发表于：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

3楼

hnyhw411 发表于：2023/12/11 18:00:00

谢谢

共3 条记录, 每页显示 10 条, 页签: [1]