您的位置:逆风者 VB 正文
原作者:www.upwinder.com 添加时间:2007-09-12 原文发表:2007-08-31 人气:16 来源:未知

不要在代码中放置不必要的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

相关文章

用Mid$命令超速字符串添加操作
表单及控件的引用阻止了表单的卸载
快速初始化Variant和String类型数组
另辟蹊径处理字符串中的字符:字节数组法
快速找到选中的OptionButton
从头开始删除集合项目
妙用Replace函数替代字符串连接操作符
VB中OLE调用的优化方法
善用 Assume No Aliasing 编译选项
无闪烁地快速附加字符串到TextBox控件
精用Boolean表达式,让代码再减肥
除法运算符 \ 与 / 的区别
函数名巧做局部变量
未公开的返回数组型函数加速秘诀
访问简单变量总是快于数组元素值
深入使用LIKE操作符
火眼识破隐藏的Variant变量
为常量定义合适的类型
使用 $-类型 字符串函数会更快
创建任意长度重复字符串的简洁方法

相关评论


本文章所属分类:首页 VB

  热门关键字: