网址:http://blog.sina.com.cn/s/blog_15b9821340102w6c9.html
如何在vb窗体上显示当前的日期和时间?

1. 在窗体上添加timer控件

2. 在窗体上添加一个标签控件 lable

3.代码如下:

Private Sub Form_Load()

    '---窗体上加上时间

    Timer1.Interval = 1000                                                                      '将单位定位秒,则1000

    

End Sub

Private Sub Timer1_Timer()

'---将时间显示在页签上(table2)

     'Label2.Caption = "当前时间:" & Time

     Label2.Caption = "后台服务：连接正常" & "  系统日期：" & Date & "  系统时间：" & Time

End Sub

4. 效果如下:

-----------------------------------------------

用友数据分析
欢迎访问:http://www.df-bi.com
更多数据分析模型,欢迎扫描"微信公众号"
或者查找微信公众号:"DF数据工厂"  或  "data_f"