用户登陆
站点统计
最新评论
日志搜索
其他信息
一个显示格式化时间的列子 [ 日期：2006-10-20 ] 添加如下代码：
Private Sub Form_Load()
Label1.Caption = Format(Now, "dd号hh点mm分ss秒")
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If Label1.Caption <> "" Then
Label1.Caption = Format(Now, "dd号hh点mm分ss秒")
End If
End Sub
[本日志由 admin 于 2013-11-01 10:44 PM 编辑]
引用通告地址 (0)：
http://www.cnng.net/blog/trackback.asp?tbID=14
http://www.cnng.net/blog/trackback.asp?tbID=14&CP=GBK