VB如何隔一段时间后再运行接下来的代码

来源：百度知道 编辑：UC知道 时间：2024/07/04 03:41:38
是这样的:比如这段代码
Open "1.txt" For Append As #1
Print #1, "11111"
Close #1
我要程序在Print #1, "11111"结束后5秒才运行Close #1
要如何做?谢谢!

'申明
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Open "1.txt" For Append As #1
Print #1, "11111"
sleep 5000
Close #1

'不知道你这样有什么作用?

用timer控件
Open "1.txt" For Append As #1
Print #1, "11111"
timer1.interval=5000'单位毫秒，意思是每五秒执行一次
timer1.enabled=ture'让计时器timer开始计时
Close #1'五秒钟后就会执行这个命令了
timer1.enabled=false'让计时器停止工作，要不程序还会在五秒钟后执行下去。

对,
就是Sleep..
Sleep是安毫秒来计算..