VB6.0 怎么显示时间,新手问题请求帮助

sofiazhou 2008-02-27 02:12:01
我加入了一个时间控件TIMER1 一个LABEL1 我想打开这个FORM就可以看到系统时间。
我的代码是这么写的
Private Sub Label1_click()
Label1 = Time
End Sub
写的时候我就注意到了这是个CLICK事件,运行的时候果然是要点击一下才能显示出来。
想请问大家,如何编写?
...全文
255 点赞 收藏 15
写回复
15 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
cbm6666 2008-03-05
Attn 楼主:

这个分应该给 7F 的,可以修改吗?



回复
舉杯邀明月 2008-03-04
[Quote=引用 12 楼 vbice 的回复:]
8F不用 Timer1.Enabled = True这个也可以呀,它也没说timer是不可用的
[/Quote]

多这句也没什么不好呀,并且肯定没问题。
回复
zhang522002 2008-03-04
8楼的完全正确
回复
zhh0086 2008-02-29
恩。
众人时才火焰高
回复
siwolf1129 2008-02-29
8楼完全正确
回复
maby_ 2008-02-29
8F不用 Timer1.Enabled = True这个也可以呀,它也没说timer是不可用的
回复
maby_ 2008-02-29
顶cbm666
回复
cbm6666 2008-02-27
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Label1.Caption = Time$ '在Form_Load就要加上,否则你要等1秒后Label才会开始跑
End Sub

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

回复
lz98ds2 2008-02-27
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time$
End Sub
回复
wangji666666 2008-02-27

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

Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub
回复
Kimm2009 2008-02-27
你要改动的话设置时间控件timer.interval=500 timer.enable=true然后在其事件timer_time里面加入label1.text=now就可以了
回复
sofiazhou 2008-02-27
我刚刚用了下2楼的朋友的那个方法。
这么写
Private Sub Form_Load()
Label1.Caption = Time
End Sub

LABEL里头的时间就定在了我打开FORM的那一瞬间了。
回复
sofiazhou 2008-02-27
哦,我的意思就是,我想让我的FORM一打开就能在LABEL 里头显示出当前的时间,而且能走的。
不需要点击按钮去触发事件然后再来显示时间。
您们能不能给我完整的一段代码呢?
回复
iget 2008-02-27
我看楼主的意思似乎有些误会:
timer控件是一个定时器,并不是必须有timer控件才能看时间。
你可以写在 timer1_timer()事件里面做个会走的时钟。


回复
Kimm2009 2008-02-27
放在FORM_LOAD里面用Now函数
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-02-27 02:12
社区公告
暂无公告