编程论坛 → VB6论坛

如何让界面时间与系统时间同步

quanquanwang 发布于 2013-05-06 10:25， 990 次点击

现在只是用now函数获取时间，但是当界面不动时，时间久一直不变，跟系统时间不同步，有其他的办法吗

9 回复

风吹过b2013-05-06 10:51

用个定时器，定时获取系统时间。
如定时器设最小的 100 毫秒。
然后定时器里，重复调用 now 函数取获取时间，并显示出来。

益西翁登2013-05-06 15:18

无论怎样设定也有个时间差

wp2319572013-05-06 15:25

不用定时器用啥

quanquanwang2013-05-06 16:27

回复 3楼益西翁登

就没解决办法？

wp2319572013-05-06 16:28

10分之一秒的误差基本可以忽略吧

益西翁登2013-05-07 07:07

看楼主是怎么个要求了

wube2013-05-07 20:27

https://bbs.bccn.net/thread-403421-1-1.html
把这篇的方法翻译成VB6即可～

luorl2013-05-08 20:43

程序代码：

Option Explicit

Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
    Me.Caption = Now
End Sub

#10

益西翁登2013-05-09 07:35

这是一秒，还不如风吹过老师给出的10分之一秒更精确，不论设为多小的数值，要想一点不差及乎是不可能的