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点,到时候执行一下备份
如果要精确到毫秒,估计只能使用api了,因为在执行的时候,就算只是执行加1操作,他也要一定的时间,就算小于一毫秒,当它累积之后,误差就会变大。出来的方法,最好就是使在定时器里执行的代码尽量简单,以减小误差。
首先,在button1的代码中有语法错误,第二句的time1是不合法的,因为它应该是timer1,下面的msgbox中使用的语法也不对,后面要出现的按钮,直接写vbokonly,下面一句中的Enable应该为Enabled,在设计器中,先将计时器控件Timer1的Enabled属性设置为False,这样在窗体装入的过程中,才不至于直接运行了它的Timer事件代码,以便于用代码控制其运行。完整的代码可以这样写:(可以运行通过)
在button1的click事件中,代码是:
Timer1.Enabled=True
Timer1.Interval=1000
在Timer1的timer事件中的代码是:
Private Sub Timer1_Timer()
MsgBox "Time is up",vbokonly,"提示"
Timer1.Enabled=False
End Sub
代码测试通过了。
不对。步骤如下:
添加一个label标签名字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