Timer控件只能控制1分多钟，如果想每隔10分钟循环一次操作怎么办？

Question

Timer控件只能控制1分多钟，如果想每隔10分钟循环一次操作怎么办？

Answer 1

Dim i As IntegerPrivate Sub Form_Load()
Timer1.Interval = 60000
End SubPrivate Sub Timer1_Timer()
i = i + 1
If i = 10 Then
    '执行
    MsgBox i
    i = 0
End If
End Sub

Answer 2

Option Explicit
Dim i As IntegerPrivate Sub Form_Load()
    i = 1
    Timer1.Interval = 60000
End SubPrivate Sub Timer1_Timer()
    If i >= 10 Then
        MsgBox "10分"
        i = 1
    End If
    i = i + 1
End Sub

Answer 3

里面加上个判断
private passed as integerprivate sub timer1_t..()
if passed>=10 then
...
passed=0
else
   passed=passed+1
endif
end sub

Answer 4

同意lk_cool(小瑟鬼) ( )