以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [讨论]设置代码执行时间  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48653)
--  作者：lshshlxsh
--  发布时间：2014/4/2 19:06:00
--  [讨论]设置代码执行时间

我有一个事件写了3段代码，希望第一段代码用5秒执行，第二段代码在第六秒开始执行，第三段代码在第十一秒开始执行。请问怎么实现？
--  作者：lsy
--  发布时间：2014/4/2 19:28:00
--  

计时器启用：True

间隔：1000

TimerTick事件：

Dim i As Integer
i + = 1
If i = 5 Then
    MessageBox.Show("第一段代码")
ElseIf i = 6 Then
    MessageBox.Show("第二段代码")
ElseIf i = 11 Then
    MessageBox.Show("第三段代码")
End If