利用Timer控件做吧,用timer函數(shù)取時(shí)間,Hour() minute second這幾個(gè)函數(shù)取時(shí)分秒,進(jìn)行加減就能完成。
創(chuàng)新互聯(lián)主營鹽池網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,成都app軟件開發(fā)公司,鹽池h5微信小程序搭建,鹽池網(wǎng)站營銷推廣歡迎鹽池等地區(qū)企業(yè)咨詢
定時(shí)器中處理
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
Timer1.Interval?=?10?'10毫秒刷新一次
Timer1.Start()?'開啟定時(shí)器
End?Sub
Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick
Label1.Text?=?Now
End?Sub
設(shè)計(jì)界面雙擊那個(gè)按鈕(自動跳到代碼里)
然后輸入 要顯示時(shí)間的那個(gè)Label.Text = DateTime.Now.ToString()
在label1上顯示時(shí)間,
窗體控件:一個(gè)label,一個(gè)計(jì)時(shí)器
代碼如下:
Private
Sub
Form_Load()
Timer1.Interval
=
1000
End
Sub
Private
Sub
Timer1_Timer()
Label1.Caption
=
Time
End
Sub
Label1.Text?=?"12時(shí)演示:"?+?Now.ToString("yyyy-MM-dd?hh:mm:ss")
Label2.Text?=?"24時(shí)演示:"?+?Now.ToString("yyyy-MM-dd?HH:mm:ss")
Label3.Text?=?"UTC時(shí)演示:"?+?System.DateTime.UtcNow.ToString("yyyy-MM-dd?HH:mm:ss")
Label4.Text?=?"時(shí)間為不補(bǔ)0:"?+?Now.ToString("yyyy-MM-dd?H:m:s")
Label5.Text?=?"時(shí)間戳:"?+?CLng(System.DateTime.UtcNow.Subtract(New?Date(1970,?1,?1,?0,?0,?0)).TotalMilliseconds).ToString
'添加一個(gè)label標(biāo)簽名字label1 用來顯示時(shí)間
'再添加一個(gè)timer控件 名字timer1 interval屬性=1000 用來計(jì)時(shí)
'窗體添加代碼
Dim t As Date '用來記錄時(shí)間
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登錄時(shí)間:" t.TimeOfDay.ToString
End Sub
文章題目:包含vb.net顯示時(shí)間動態(tài)的詞條
本文鏈接:http://m.rwnh.cn/article16/doohodg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供營銷型網(wǎng)站建設(shè)、品牌網(wǎng)站設(shè)計(jì)、網(wǎng)站內(nèi)鏈、網(wǎng)站策劃、App設(shè)計(jì)、虛擬主機(jī)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)