doevents:DoEvents语句减低程序执行效率



    不要在代码中放置不必要DoEvents语句尤其是在时间要求高循环中遵循这个原则至少能在循环中每N次反复时才执行DoEvents语句从而增强效率比如使用下面语句:  
If (loopNdx Mod 10) = 0 Then DoEvents  
    如果只是使用DoEvents来屏蔽鼠标以及键盘操作那么就可以在事件队列中存在待处理项目时通过APIGetInputState来检查这个条件发生:  
Declare Function GetInputState Lib \"user32\" Alias \"GetInputState\"  As Long  
’ ...  
If GetInputState Then DoEvents 
Tags:  vb.netdoevents vcdoevents vbdoevents doevents

延伸阅读

最新评论

发表评论