减少DoEvents语句的数量

2008-02-23 06:39:56来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

不要在代码中放置不必要的DoEvents语句,尤其是在时间要求高的循环中。遵循这个原则,至少能在循环中的每N次反复时才执行DoEvents语句,从而增强效率。比如使用下面的语句:

If (loopNdx Mod 10) = 0 Then DoEvents

如果只是使用DoEvents来屏蔽鼠标以及键盘操作,那么就可以在事件队列中存在待处理项目时调用它。通过API函数GetInputState来检查这个条件的发生:

Declare Function GetInputState Lib "user32" Alias "GetInputState" () As Long

' ...

If GetInputState() Then DoEvents

上一篇: GoSub在编译程序中速度变慢
下一篇: 火眼识破隐藏的Variant变量

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:另辟蹊径处理字符串中的字符:字节数组法

下一篇:字体对象克隆招法