VB倒计时源码 - 翼展电脑服务中心


VB Timer控件以分钟为单位延时

2022-10-4 乱云飞 评论(0) 浏览(273) 标签: 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
预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog