VB Timer控件以分钟为单位延时
2022-10-4 乱云飞 评论(0) 浏览(169) 标签: VB定时器 VB倒计时源码
Dim T As Integer
Timer1.Interval = 60000 '循环间隔为一分钟
Private Sub Timer1_Timer()
If T < 30 Then '如果小于30分钟
T = T + 1 '计数器+1
Else '大于等于30分钟
T = 0 '计数器清零
msgbox "QQ5082500" '要执行的代码
End If
End Sub
实时监控
电脑维修
