用VB.net做一個時間計時器

'添加一個label標(biāo)簽名字label1 用來顯示時間

“真誠服務(wù)，讓網(wǎng)絡(luò)創(chuàng)造價值”是我們的服務(wù)理念，創(chuàng)新互聯(lián)建站團隊十年如一日始終堅持在網(wǎng)站建設(shè)領(lǐng)域,為客戶提供優(yōu)質(zhì)服。不管你處于什么行業(yè)，助你輕松跨入“互聯(lián)網(wǎng)+”時代，PC網(wǎng)站+手機網(wǎng)站+公眾號+小程序定制開發(fā)。

'再添加一個timer控件 名字timer1 interval屬性=1000 用來計時

'窗體添加代碼

Dim t As Date '用來記錄時間

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles Timer1.Tick

t = t.AddSeconds(1)

Label1.Text = "登錄時間:" t.TimeOfDay.ToString

End Sub

VB.net中如何用timer控件編出一個簡單的倒計時器？

Dim?tCount?As?Integer?'用來計數(shù)

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As

System.EventArgs)?Handles?MyBase.Load

tCount?=?10

Timer1.Interval?=?1000?'每秒執(zhí)行一次

Timer1.Enabled?=?True

End

Sub

Private?Sub

Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As

System.EventArgs)?Handles?Timer1.Tick

tCount?-=?1

If?tCount?=?0?Then

MessageBox.Show("時間到")

Timer1.Enabled?=?False

End?If

End

Sub

vbnet中怎樣把時間設(shè)為24時制

將時間轉(zhuǎn)換為指定的字符串格式用：Now.ToString("yyyyMMddHHmmss")就Ok了。

例如：年份用小寫yyyy(大寫不識別)，大寫MM識別為月份，小寫mm識別為分鐘，日期天為大寫DD(小寫不識別)，

小時大寫HH識別為24小時制，小寫hh識別為12小時制，秒用小寫ss(大寫不識別)

補充：Visual Basic.NET是基于微軟.NET Framework之上的面向?qū)ο蟮木幊陶Z言。

其在調(diào)試時是以解釋型語言方式運作,而輸出為EXE程序是是以編譯型語言方式運作。

可以看作是Visual Basic在.Net Framework平臺上的升級版本，增強了對面向?qū)ο蟮闹С帧４蠖嗟腣B.Net程序員使用Visual Studio .Net作為IDE（integrated development environment).SharpDevelop是另一種可用的開源的IDE。

VB.Net需要在.Net Framework平臺上才能執(zhí)行。

VB.net做計時器。。。

加個timer，兩個label，以下是代碼:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Label1.Text = Format(Now(), "yyyy-MM-dd HH:mm:ss")

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label2.Text = Format(Now(), "yyyy-MM-dd HH:mm:ss")

If DateDiff(DateInterval.Hour, DateTime.Parse(Label1.Text), DateTime.Parse(Label2.Text)) = 3 Then

MsgBox("超過3小時了！", , "信息提示")

Timer1.Enabled = False 'timer終止，不然會一直談對話框！

End If

End Sub

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

開發(fā)過程過程中我們通常對特定代碼片運行所花的時間很感興趣 當(dāng)然有一些標(biāo)準(zhǔn)程序和代碼工具可以查看到它 但是有經(jīng)驗的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)

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

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

結(jié)論

lishixinzhi/Article/program/net/201311/11820

本文標(biāo)題：vb.net時間制作的簡單介紹
轉(zhuǎn)載來于：http://aaarwkj.com/article34/doodose.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供面包屑導(dǎo)航、微信小程序、商城網(wǎng)站、云服務(wù)器、軟件開發(fā)、網(wǎng)站設(shè)計

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)