包含vb.net时间定时器的词条

VB.net做计时器。。。

加个timer，两个label，以下是代码:

成都创新互联主营黄岩网站建设的网络公司,主营网站建设方案,成都App定制开发,黄岩h5重庆小程序开发搭建,黄岩网站营销推广欢迎黄岩等地区企业咨询

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

控制台调用Timer和窗体是类似的。首先在项目引用里面加入System.Windows.Forms程序集，然后在代码顶部引入命名空间：

Imports System.Windows.Forms

在控制台的Module中声明一个计时器：

Private WithEvents Timer1 As New Timer()

把计时器的Tick事件静态绑定到处理函数中：

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

'一些代码

End Sub

在需要开始计时的地方，修改其Interval、Enabled属性：

Timer1.Interval = 1000

Timer1.Enabled = True

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

'执行备份语句

End If

Timer1.Enabled = True

End Sub

还有一个办法就是可以用SQL自身的功能，在SQL里面可以添加任务，设置周期为每天，时间为12点，到时候执行一下备份

文章题目：包含vb.net时间定时器的词条
链接分享：http://ybzwz.com/article/dsedgjg.html