【考试题目】在窗体文本框内实时显示系统时间

ad_ward

这是考试题目，请帮忙解决，请见附件，谢谢

ad_ward

三个文本框分别放置系统时间的 时，分，秒，并随着时间变动而变动

ad_ward

怎么没人来帮我啊，救命啊！

ad_ward

没人，

佛山小老鼠

呵呵，看楼主急成这个样子，今天是端午节了，大家都过节去了， 请楼主验证 效果在附件里

1. Sub 时间()
   
2. UserForm1.TextBox1 = Left(Application.WorksheetFunction.Text(Now(), "HH:MM"), 2)
   
3. UserForm1.TextBox2 = Right(Application.WorksheetFunction.Text(Now(), "HH:MM"), 2)
   
4. UserForm1.TextBox3 = Right(Application.WorksheetFunction.Text(Now(), "MM:SS"), 2)
   
5. 
   
6. Application.OnTime Now() + TimeValue("00:00:01"), "时间"
   
7. End Sub
   
8. 
   
9. Sub 停止()
   
10. On Error Resume Next
    
11. Application.OnTime Now() + TimeValue("00:00:01"), "时间", , False
    
12. End Sub

复制代码

1. Private Sub CommandButton1_Click()
   
2.     Call 停止
   
3. End Sub
   
4. 
   
5. Private Sub CommandButton2_Click()
   
6. Call 时间
   
7. End Sub
   
8. 
   
9. Private Sub UserForm_Initialize()
   
10.     Call 时间
    
11. End Sub

复制代码

1. Private Sub Workbook_Open()
   
2.      UserForm1.Show
   
3. End Sub

复制代码

[ 本帖最后由 佛山小老鼠 于 2011-6-7 02:53 编辑 ]

hzmax123

学习了 老师辛苦了！端午节还在啊！

ad_ward

非常感谢老师哦，佩服

OKJSJSF

好好学习了。

小fisher

佛山小老鼠 发表于 2011-6-7 02:16
呵呵，看楼主急成这个样子，今天是端午节了，大家都过节去了， 请楼主验证 效果在附件里

[ 本帖最后 ...

虽然是很久之前的帖子，但既然被翻出来，就提一点小小的改进意见吧
1） 时、分、秒的获取：
UserForm1.TextBox1 = Format(Now, "hh")
UserForm1.TextBox2 = Format(Now, "nn")  '注意使用format(now, "mm")得到的是月份
UserForm1.TextBox3 = Format(Now, "ss")
2）关闭窗体时终止代码
Private Sub UserForm_Terminate()
    Call 停止
End Sub