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

'添加一個label標簽名字label1 用來顯示時間

創(chuàng)新互聯(lián)擁有網站維護技術和項目管理團隊，建立的售前、實施和售后服務體系，為客戶提供定制化的成都做網站、網站建設、網站維護、服務器托管解決方案。為客戶網站安全和日常運維提供整體管家式外包優(yōu)質服務。我們的網站維護服務覆蓋集團企業(yè)、上市公司、外企網站、商城網站定制開發(fā)、政府網站等各類型客戶群體，為全球近1000家企業(yè)提供全方位網站維護、服務器維護解決方案。

'再添加一個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 計時器的問題

不對。步驟如下：

添加一個label標簽名字label1 用來顯示時間

再添加一個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 module中如何使用計時器？

控制臺調用Timer和窗體是類似的。首先在項目引用里面加入System.Windows.Forms程序集，然后在代碼頂部引入命名空間：

Imports System.Windows.Forms

在控制臺的Module中聲明一個計時器：

Private WithEvents Timer1 As New Timer()

把計時器的Tick事件靜態(tài)綁定到處理函數(shù)中：

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

'一些代碼

End Sub

在需要開始計時的地方，修改其Interval、Enabled屬性：

Timer1.Interval = 1000

Timer1.Enabled = True

vb.net 我想編一個計時器，計時器顯示格式00:00:00 （只能用一個label）怎么做？

Dim hour, min, sec As Integer

Private Sub Command1_Click()

If Command1.Caption = "開始計時" Then

Command1.Caption = "停止計時"

Timer1.Enabled = True

Else

If Command1.Caption = "停止計時" Then

Command1.Caption = "開始計時"

Timer1.Enabled = False

End If

End If

End Sub

Private Sub Form_Load()

hour = 0

min = 0

sec = 0

Label1.Caption = Format(hour, "00") ":" Format(min, "00") ":" Format(sec, "00")

End Sub

Private Sub Timer1_Timer()

sec = sec + 1

If sec 59 Then

sec = 0

min = min + 1

If min 59 Then

min = 0

hour = hour + 1

End If

End If

Label1.Caption = ""

Label1.Caption = Format(hour, "00") ":" Format(min, "00") ":" Format(sec, "00")

End Sub