如何让程序暂停一段时间??(在线等) 程序进入一个循环,但是次数太多,导致cpu资源被严重占用,所以想在循环时让程序暂停一段时间,望各位帮忙! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在循环里加一个DoEvents就会好很多 DoEvents 函数会返回一个 Integer,以代表 Visual Basic 独立版本中打开的窗体数目,例如,Visual Basic,专业版,在其它的应用程序中,DoEvents 返回 0。DoEvents 会将控制权传给操作系统。当操作系统处理完队列中的事件,并且在 SendKeys 队列中的所有键也都已送出之后,返回控制权。DoEvents 对于简化诸如允许用户取消一个已启动的过程 — 例如搜寻一个文件 — 特别有用。对于长时间过程,放弃控制权最好使用定时器或通过委派任务给 ActiveX EXE 部件来完成。以后,任务还是完全独立于应用程序,多任务及时间片由操作系统来处理。小心 确保以 DoEvents 放弃控制权的过程,在第一次 DoEvents 返回之前,不能再次被其他部分的代码调用;否则会产生不可预料的结果。此外,如果其它的应用程序可能会和本过程以不可预知的方式进行交互操作,那么也不要使用 DoEvents,因为此时不能放弃控制权。 Dim time1 As Singletime1 = TimerDoEventsDo Until Timer - time1 > 2Loop~~~statements~~~其中2的单位是秒。 word中防拷贝问题 大量数据添加解决。。 怎么用shell实现打开计划任务的功能? 求教webbrowser问题 关于 Where 子句的 Like 谓词 请帮我解决问题啊,原贴有100分啊 给大家介绍个好东东!! 如何判断对象变量为Nothing? 求:用VB+ACCESS做的管理系统 <<<<哪位兄弟有"王国荣"编的《VB6数据库编程》 人民邮电的 我真的急需!!!! 其实我觉得textbox 无非就是用来显示一下文字罢了,已经很够用了, 为什么还要用个richtextbox , 这个东西在实际开发中 是不是经常用到, 我真晕了,一个全局变量的问题:(
time1 = Timer
DoEvents
Do Until Timer - time1 > 2
Loop
~~~statements~~~
其中2的单位是秒。