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

Dim hour, min, sec As Integer

網(wǎng)站建設(shè)哪家好，找成都創(chuàng)新互聯(lián)！專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、微信小程序定制開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了光明免費(fèi)建站歡迎大家使用！

Private Sub Command1_Click()

If Command1.Caption = "開始計(jì)時" Then

Command1.Caption = "停止計(jì)時"

Timer1.Enabled = True

Else

If Command1.Caption = "停止計(jì)時" Then

Command1.Caption = "開始計(jì)時"

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

vb.net倒計(jì)時問題

你可以用一個時間類型的變量，然后先取出開始時間到結(jié)束時間的差距為這個變量賦值DateTime(int year,int month,int day,int hour,int minute,int second) 比如還有一個小時，那就是 datatime t=new datetime(1,1,1,1,0,0)

然后再隨時間去遞減，再顯示這個變量的時間就行了

提示：AddSeconds DateTime的一個方法，比如 t.AddSeconds(-1),這樣就減了一秒。 t.ToShortTimeString() 這個是顯示時間的，日期就不要顯示就行了。

關(guān)閉進(jìn)程的話，你在這個程序關(guān)閉事件里面去檢查指定的程序是否還在運(yùn)行，如果還在就先關(guān)閉掉。 具體的代碼就不貼出來了，你搜一下，很多的。

VB.net module中如何使用計(jì)時器？

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

Imports System.Windows.Forms

在控制臺的Module中聲明一個計(jì)時器：

Private WithEvents Timer1 As New Timer()

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

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

'一些代碼

End Sub

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

Timer1.Interval = 1000

Timer1.Enabled = True

VB.NET 計(jì)時器的問題

不對。步驟如下：

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

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

窗體添加代碼

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