VB.net做計時器。。。

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

成都創(chuàng)新互聯(lián)主營黃巖網(wǎng)站建設的網(wǎng)絡公司,主營網(wǎng)站建設方案,成都App定制開發(fā),黃巖h5重慶小程序開發(fā)搭建,黃巖網(wǎng)站營銷推廣歡迎黃巖等地區(qū)企業(yè)咨詢

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如何在windows控制臺下使用定時器

控制臺調(diào)用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

關(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里面可以添加任務 ，設置周期為每天，時間為12點，到時候執(zhí)行一下備份

文章標題：包含vb.net時間定時器的詞條
網(wǎng)站網(wǎng)址：http://chinadenli.net/article26/dsedgjg.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供Google、網(wǎng)站維護、面包屑導航、用戶體驗、品牌網(wǎng)站建設、定制開發(fā)

廣告

聲明：本網(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)