189 8069 5689
控制台调用Timer和窗体是类似的。首先在项目引用里面加入System.Windows.Forms程序集，然后在代码顶部引入命名空间：
10年积累的网站建设、网站制作经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站制作后付款的网站建设流程，更有突泉免费网站建设让你可以放心的选择与我们合作。
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
1、开机进入桌面后，按下“Windows徽标键+I”键，选中并打开“控制面板”
2、在“控制面板”中的“系统和安全”里，选中“管理工具”里的“计划任务”，并打开“计划任务”
3、在“任务计划程序”里，打开“创建任务”
4、在“创建任务”的“常规”中，根据相应需求设置，比如“名称：定时关机”
5、在“创建任务”的“触发器”中，点“新建”，并在“新建触发器”中，根据相应需求设置后，点“确定”
6、在“创建任务”的“操作”中，点“新建”，并在“新建操作”中的“程序或脚本”里，根据下图依次输入“shutdown”和“-s”后，“点“确定”
7、在“创建任务”的“条件”中，根据相应需求设置
8、在“创建任务”的“设置”中，根据相应需求设置后，点“确定”
9、这时“定时关机”的任务已创建完成！
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点，到时候执行一下备份
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控件，代码应该很明白了
首先这个要看的子函数执行的情况了，比如你子函数要8秒才能执行完成，你1秒钟执行一次，到时会有好几个子函数在运行，肯定会影响程序运行的。你要调整时间才能让子函数不影响主程序；
再一个，如果不想影响主程序，你可以再建一个程序，专门用来执行子函数，然后让那个程序用定时器每秒执行一次子函数，这样就不会影响主程序；