在VB6.0中，怎么添加不断更新的时间，控件是什么，要不要写代码？
展开全部
Private Sub Form_Load()
Timer1.Interval = 500: Timer1.Enabled = True
Label1.Font.Size = 48: Label1.AutoSize = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:mm:ss")
End Sub
要年月日的话 写成 "yy,mm,dd"
Timer1.Interval = 500: Timer1.Enabled = True
Label1.Font.Size = 48: Label1.AutoSize = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:mm:ss")
End Sub
要年月日的话 写成 "yy,mm,dd"
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
