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

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

Dim T  As Integer
Timer1.Interval = 60000                                                         '循环间隔为一分钟

Private Sub Timer1_Timer()
    If T < 30 Then                                                              '如果小于30分钟
        T = T + 1                                                               '计数器+1
    Else                                                                        '大于等于30分钟
        T = 0                                                                   '计数器清零
        '这里填写到时间后要执行的代码
    End If
End Sub