doevents问题。求高手解决。。。

Question

一段for循环里面有很多操作。有时发现他会假死。所以加入了doevents。卡机问题解决了。
但是当按了暂停按钮后发现循环还一直在。有什么办法解决吗？

Answer 1

DoEvents 函数
      转让控制权，以便让操作系统处理其它的事件。语法DoEvents( )说明DoEvents 函数会返回一个 Integer，以代表 Visual Basic 独立版本中打开的窗体数目，例如，Visual Basic，专业版，在其它的应用程序中，DoEvents 返回 0。DoEvents 会将控制权传给操作系统。当操作系统处理完队列中的事件，并且在 SendKeys 队列中的所有键也都已送出之后，返回控制权。DoEvents 对于简化诸如允许用户取消一个已启动的过程 — 例如搜寻一个文件 — 特别有用。对于长时间过程，放弃控制权最好使用定时器或通过委派任务给 ActiveX EXE 部件来完成。以后，任务还是完全独立于应用程序，多任务及时间片由操作系统来处理。小心 确保以 DoEvents 放弃控制权的过程，在第一次 DoEvents 返回之前，不能再次被其他部分的代码调用；否则会产生不可预料的结果。此外，如果其它的应用程序可能会和本过程以不可预知的方式进行交互操作，那么也不要使用 DoEvents，因为此时不能放弃控制权。

Answer 2

DoEvents 函数示例
下列示例在循环中使用 DoEvents 函数，每当循环完成 1000 次时，将执行让给操作系统。DoEvents 返回仅当主应用程序是 Visual Basic时，打开的窗体个数。' 创建一个变量来保存加载的 Visual Basic 可见窗体的个数。
Dim I, OpenForms
For I = 1 To 150000   ' 循环开始。
   If I Mod 1000 = 0 Then    ' 如果循环一已完成了 1000 次。
      OpenForms = DoEvents   ' 将执行让给操作系统。
   End If
Next I   ' 将循环计数器加一。

Answer 3

无代码无真相，有时候使用Timer比循环好用些

Answer 4

Timer有Timer的好处，但Timer延迟并不精确

Answer 5

那程序的功能你了解了吗？按暂停就得在一个空循环中不断的doevents，不然一会按继续了怎么再继续循环的下面的操作呢？暂停按钮中设置
isPause=true
在大循环中应该有这么一小段代码：
do while isPause
  doevents
loop