帮忙找下,制作时间的漏洞。

[复制链接]
查看11 | 回复1 | 2012-4-2 16:49:20 | 显示全部楼层 |阅读模式
Timer1的Interval属性要设为大于0小于65536的数(单位是毫秒),Enabled属性要设为True,它才会工作的。比如:Private Sub Form_Load()Timer1.Interval = 1000
'一秒钟显示一次Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Label1.Caption = Format(Now, "yyyy年mm月dd日 hh:nn:ss")End Sub另外在用Format函数格式化时间字串时,如果月份和分钟都要显示的,分钟最好用nn来作为格式定义符(以免和月份的mm冲突)...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行