请教VB的doevents函数

[SP12345678902]

因为这个项目经常导入导出数据
碰上这种情况，画面就白屏好一会
直到程序重新自己活过来

我想问大虾们VB中的doevents函数可以减少白屏的次数吗

[贝隆]

DoEvents函数是将调用进程的CPU占用权返回给Windows系统，由于Windows是多任务系统，此时系统可能有其他任务正在等待CPU执行时间片。合理的使用DoEvents可以解决掉程序假死的状况，让界面响应及时。


以下摘自：MSDN
DoEvents 函数


转让控制权，以便让操作系统处理其它的事件。

语法

DoEvents( )

说明

DoEvents 函数会返回一个 Integer，以代表 Visual Basic 独立版本中打开的窗体数目，例如，Visual Basic，专业版，在其它的应用程序中，DoEvents 返回 0。

DoEvents 会将控制权传给操作系统。当操作系统处理完队列中的事件，并且在 SendKeys 队列中的所有键也都已送出之后，返回控制权。

DoEvents 对于简化诸如允许用户取消一个已启动的过程 — 例如搜寻一个文件 — 特别有用。对于长时间过程，放弃控制权最好使用定时器或通过委派任务给 ActiveX EXE 部件来完成。以后，任务还是完全独立于应用程序，多任务及时间片由操作系统来处理。

小心 确保以 DoEvents 放弃控制权的过程，在第一次 DoEvents 返回之前，不能再次被其他部分的代码调用；否则会产生不可预料的结果。此外，如果其它的应用程序可能会和本过程以不可预知的方式进行交互操作，那么也不要使用 DoEvents，因为此时不能放弃控制权。

[threenewbee]

如果你的程序里面有循环，可以在循环里面插入 DoEvents
For i = 1 To 100000000
...
DoEvents
Next
如果你的程序卡在一个函数内部，用DoEvents也没用：
CallSomeMethod() '这个函数假设要用10分钟。