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

Dim hour, min, sec As Integer

創(chuàng)新互聯(lián)建站自2013年創(chuàng)立以來，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目網(wǎng)站制作、做網(wǎng)站網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元呼和浩特做網(wǎng)站,已為上家服務(wù),為呼和浩特各地企業(yè)和個人服務(wù),聯(lián)系電話:18982081108

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

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

'添加一個label標(biāo)簽名字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 定時刷新的問題

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Timer1.Interval = 2000(兩秒)

Me.Timer1.Start()

End Sub

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

MsgBox("Hello World")

End Sub

在界面拖一個Button和Timer試試這個效果，在界面雙擊Timer控件，代碼應(yīng)該很明白了

VB.NET怎樣設(shè)計定時關(guān)機(jī)

1、開機(jī)進(jìn)入桌面后，按下“Windows徽標(biāo)鍵+I”鍵，選中并打開“控制面板”

2、在“控制面板”中的“系統(tǒng)和安全”里，選中“管理工具”里的“計劃任務(wù)”，并打開“計劃任務(wù)”

3、在“任務(wù)計劃程序”里，打開“創(chuàng)建任務(wù)”

4、在“創(chuàng)建任務(wù)”的“常規(guī)”中，根據(jù)相應(yīng)需求設(shè)置，比如“名稱：定時關(guān)機(jī)”

5、在“創(chuàng)建任務(wù)”的“觸發(fā)器”中，點(diǎn)“新建”，并在“新建觸發(fā)器”中，根據(jù)相應(yīng)需求設(shè)置后，點(diǎn)“確定”

6、在“創(chuàng)建任務(wù)”的“操作”中，點(diǎn)“新建”，并在“新建操作”中的“程序或腳本”里，根據(jù)下圖依次輸入“shutdown”和“-s”后，“點(diǎn)“確定”

7、在“創(chuàng)建任務(wù)”的“條件”中，根據(jù)相應(yīng)需求設(shè)置

8、在“創(chuàng)建任務(wù)”的“設(shè)置”中，根據(jù)相應(yīng)需求設(shè)置后，點(diǎn)“確定”

9、這時“定時關(guān)機(jī)”的任務(wù)已創(chuàng)建完成！

關(guān)于vb.net定時器問題

Timer1.Interval = 500

Private Sub Timer1_Timer()

Timer1.Enabled = False

Dim ss As String

ss = Format(Now, "HH:mm:ss")

If ss = "12:00:00" Then

'執(zhí)行備份語句

End If

Timer1.Enabled = True

End Sub

還有一個辦法就是可以用SQL自身的功能，在SQL里面可以添加任務(wù) ，設(shè)置周期為每天，時間為12點(diǎn)，到時候執(zhí)行一下備份