PeekAndPump 方法

PeekAndPump 方法

处理应用程序未处理的消息，可以用在一个循环操作较长的代码里，防止因为占用CPU过长而导致程序停止响应。

例如：

for io= 0 to 200000

   Aiplication.PeekAndPump

Next

MsgBos "计算完了"

上述代码在长时间循环执行时，还可以执行软件的其他操作。

提醒用户，异步操作对编程能力要求很高，尤其要注意多个事件同时处理时公用变量的同步，未完成对象的销毁处理前要退出循环执行，稍有不注意就会导致程序崩溃。