编程论坛 → VB6论坛

如何书写在 form 自动插入系统时间的代码？

lijun337 发布于 2014-12-05 11:55， 669 次点击

如何书写在form自动插入系统时间的代码？

5 回复

tyl633904452014-12-05 13:51

Private Sub Form_Load()
Label1.Caption = Now
End Sub

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

smart30002014-12-05 17:55

Private Sub Form_Load()

  Label1.Caption = Time
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
  Timer1.Interval = 1000

End Sub

风吹过b2014-12-06 00:08

3楼的代码有点问题。但原理没错。

还有，时间不要定这么长。容易出现与系统秒数稍不同步的显示。

xzlxzlxzl2014-12-06 07:18

回复 4 楼风吹过 b

要说原理没错，并且能达到要求的是2楼的代码，我们可以认为2楼在设计阶段就设计好默认定时器启动了。3楼仅启动一个定时器，什么都没干，算什么原理，并且没有特殊算法需要，设置Interval 只需要在timer事件外设置一次即可，每次timer事件都设置是降低程序运行效率的不合理做法，完全不应提倡。

smart30002014-12-06 11:02

应该对不起， Timer1.Interval = 1000，这里的数字可以改为500和800之间的数字，如果要求不高，1000应该能满足需求。应该放在Form_Load里边，放错地方了。
谢谢5楼指教。
应该是
Private Sub Form_Load()

  Label1.Caption = Time
  Timer1.Enabled = True
　Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()
　　Label1.Caption=Time
End Sub