VB.net 如何設(shè)定準(zhǔn)確的1秒時(shí)間？

form 的load事件中加一句：timer1.interval=1000

創(chuàng)新互聯(lián)致力于成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站,成都網(wǎng)站設(shè)計(jì),集團(tuán)網(wǎng)站建設(shè)等服務(wù)標(biāo)準(zhǔn)化，推過標(biāo)準(zhǔn)化降低中小企業(yè)的建站的成本，并持續(xù)提升建站的定制化服務(wù)水平進(jìn)行質(zhì)量交付，讓企業(yè)網(wǎng)站從市場(chǎng)競(jìng)爭(zhēng)中脫穎而出。 選擇創(chuàng)新互聯(lián)，就選擇了安全、穩(wěn)定、美觀的網(wǎng)站建設(shè)服務(wù)！

在一個(gè)按鈕里面加入一句觸發(fā)timer事件開始計(jì)時(shí)的代碼：

timer1.enabled=true

timer的tick事件中加入這么兩句：

textbox1.backcolor=color.red

timer1.enabled=false

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

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

Imports System.Windows.Forms

在控制臺(tái)的Module中聲明一個(gè)計(jì)時(shí)器：

Private WithEvents Timer1 As New Timer()

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

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

'一些代碼

End Sub

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

Timer1.Interval = 1000

Timer1.Enabled = True

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

不對(duì)。步驟如下：

添加一個(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