Dim hour, min, sec As Integer
创新互联建站自2013年创立以来，是专业互联网技术服务公司，拥有项目网站制作、做网站网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元呼和浩特做网站,已为上家服务,为呼和浩特各地企业和个人服务,联系电话:18982081108
Private Sub Command1_Click()
If Command1.Caption = "开始计时" Then
Command1.Caption = "停止计时"
Timer1.Enabled = True
Else
If Command1.Caption = "停止计时" Then
Command1.Caption = "开始计时"
Timer1.Enabled = False
End If
End If
End Sub
Private Sub Form_Load()
hour = 0
min = 0
sec = 0
Label1.Caption = Format(hour, "00") ":" Format(min, "00") ":" Format(sec, "00")
End Sub
Private Sub Timer1_Timer()
sec = sec + 1
If sec 59 Then
sec = 0
min = min + 1
If min 59 Then
min = 0
hour = hour + 1
End If
End If
Label1.Caption = ""
Label1.Caption = Format(hour, "00") ":" Format(min, "00") ":" Format(sec, "00")
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
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控件，代码应该很明白了
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点，到时候执行一下备份