扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
控制台调用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秒钟执行一次,到时会有好几个子函数在运行,肯定会影响程序运行的。你要调整时间才能让子函数不影响主程序;
再一个,如果不想影响主程序,你可以再建一个程序,专门用来执行子函数,然后让那个程序用定时器每秒执行一次子函数,这样就不会影响主程序;
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流