利用Timer控件做吧,用timer函数取时间,Hour() minute second这几个函数取时分秒,进行加减就能完成。
创新互联是专业的云浮网站建设公司,云浮接单;提供成都做网站、网站建设、外贸营销网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行云浮网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
设计界面双击那个按钮(自动跳到代码里)
然后输入 要显示时间的那个Label.Text = DateTime.Now.ToString()
Label1.Text = "12时演示:" + Now.ToString("yyyy-MM-dd hh:mm:ss")
Label2.Text = "24时演示:" + Now.ToString("yyyy-MM-dd HH:mm:ss")
Label3.Text = "UTC时演示:" + System.DateTime.UtcNow.ToString("yyyy-MM-dd HH:mm:ss")
Label4.Text = "时间为不补0:" + Now.ToString("yyyy-MM-dd H:m:s")
Label5.Text = "时间戳:" + CLng(System.DateTime.UtcNow.Subtract(New Date(1970, 1, 1, 0, 0, 0)).TotalMilliseconds).ToString
定时器中处理
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 10 '10毫秒刷新一次
Timer1.Start() '开启定时器
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Now
End Sub
在label1上显示时间,
窗体控件:一个label,一个计时器
代码如下:
Private
Sub
Form_Load()
Timer1.Interval
=
1000
End
Sub
Private
Sub
Timer1_Timer()
Label1.Caption
=
Time
End
Sub