怎么在VB.net中實(shí)時顯示時間

定時器中處理

創(chuàng)新互聯(lián)公司主營朔城網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,成都APP應(yīng)用開發(fā),朔城h5重慶小程序開發(fā)搭建,朔城網(wǎng)站營銷推廣歡迎朔城等地區(qū)企業(yè)咨詢

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

VB顯示當(dāng)前時間的程序

加入以下代碼：

Private Sub Form_Load()

Text1.Text = Now

Timer1.Enabled = True

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Text1.Text = Now

End Sub

擴(kuò)展資料：

VB獲取系統(tǒng)當(dāng)前時間并格式化輸出

用到的函數(shù)：

Date函數(shù)：返回系統(tǒng)的日期

Now函數(shù)：返回系統(tǒng)的日期和時間

Format函數(shù)：根據(jù)格式表達(dá)式來格式化數(shù)據(jù)

實(shí)例：

Private Sub Form_Load()

'設(shè)置同步時間顯示

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Label2.Caption = Format(Now, "hh:mm:ss")? ? ? ? ? ? '獲取當(dāng)前時間

Label4.Caption = Format(Now, "yyyy-mm-dd")? ? ? ? ? '獲取當(dāng)前日期

Label6.Caption = Format(Now, "yyyy-mm-dd hh:mm:ss") '日期和時間

End Sub

使用VB.NET的五個技巧之在組件中顯示時間

開發(fā)過程過程中我們通常對特定代碼片運(yùn)行所花的時間很感興趣 當(dāng)然有一些標(biāo)準(zhǔn)程序和代碼工具可以查看到它 但是有經(jīng)驗(yàn)的Visual Basic 開發(fā)者有更快的辦法 僅僅捕捉開始時間（使用Now關(guān)鍵字）和終止時間（再次使用Now關(guān)鍵字） 兩種相減 就能知道結(jié)果了

如果使用Visual Basic NET編寫 首先嘗試的代碼可能是這樣的

Dim StartTime As DateTime = Now {code to check for timing goes here} Dim EndTime As DateTime = Now Console WriteLine((StartTime EndTime) ToString)

但是這段代碼的最后一行有語法錯誤 錯誤消息是 日期類型沒有定義 － 操作符 這意味著我們不能執(zhí)行減法 日期數(shù)據(jù)類型不支持減法操作 那么我們怎么得到兩次時間的差別呢？

答案就是使用TimeSpan類 它是用于保持時間段的 上面的代碼看起來與 NET框架組件中的相似

Dim StartTime As DateTime = Now {code to check for timing goes here} Dim EndTime As DateTime = Now Dim RunLength As System TimeSpan RunLength = EndTime Subtract(StartTime) Console WriteLine(RunLength ToString)

計(jì)算使用的是類Date的Subtract方法 最后一行將輸出時間的跨度 格式化成小時 分鐘和秒（包括秒的小數(shù)位） 典型的輸出是這樣的

該時間跨度是 秒半 盡管顯示了 位小數(shù) 但是只能相信兩位 但是已經(jīng)足夠了

結(jié)論

lishixinzhi/Article/program/net/201311/11820

怎么用vb.net實(shí)現(xiàn)點(diǎn)擊按鈕顯示時間

設(shè)計(jì)界面雙擊那個按鈕(自動跳到代碼里)

然后輸入 要顯示時間的那個Label.Text = DateTime.Now.ToString()