level 7
![[汗]](/static/emoticons/u6c57.png)
我记得学q语言的时候有个delay的语句
2013年03月18日 01点03分
level 3
可以用timer控件，
Private Sub cmd1_click()
Dim n As Single
txt = "sb2" '这是我随便写的函数，具体怎样你自己看吧
n = Timer '记下开始的时间
While Timer < n + 3 '循环等待（3是秒数，以秒为单位，1毫秒=0.001秒）
DoEvents '转让控制权，以便让操作系统处理其它的事件。
Wend
txt = "sb3"
n = Timer
While Timer < n + 3 '在这里可以随便更改间隔
DoEvents
Wend '这个东西很重要，想要结束计时时，运行其他事件
txt = "sb4"
n = Timer
While Timer < n + 3
DoEvents
Wend
。。。。。。。。。。。。。。。。。。。。。。。。。。
End Sub
2013年04月22日 15点04分
5
Private Sub cmd1_click()
Dim n As Single
txt = "sb2" '这是我随便写的函数，具体怎样你自己看吧
n = Timer '记下开始的时间
While Timer < n + 3 '循环等待（3是秒数，以秒为单位，1毫秒=0.001秒）
DoEvents '转让控制权，以便让操作系统处理其它的事件。
Wend
txt = "sb3"
n = Timer
While Timer < n + 3 '在这里可以随便更改间隔
DoEvents
Wend '这个东西很重要，想要结束计时时，运行其他事件
txt = "sb4"
n = Timer
While Timer < n + 3
DoEvents
Wend
。。。。。。。。。。。。。。。。。。。。。。。。。。
End Sub
这样会占用cpu，我用了一个插件，能做到完美延迟，cpu零消耗
2013年04月23日 00点04分
神马插件？
2013年10月24日 00点10分
回复 伊慕LLG :同问![[乖]](/static/emoticons/u4e56.png)
2014年10月04日 11点10分
这个调试结果溢出，我哪里错了
2014年10月22日 05点10分
level 11
sleep正解，或者tick什么什么的
------来自中国超导托卡马克核聚变发电装置核心处理系统专用贴吧客户端,世界唯一,全球领先!
2013年11月02日 16点11分
7
------来自中国超导托卡马克核聚变发电装置核心处理系统专用贴吧客户端,世界唯一,全球领先!
但是sleep会导致整个程式陷入假死吧~~~
2014年10月04日 12点10分
level 1
