在没有DoEvents的VB6.0中取消长时间运行的过程？

是否可以在VB6.0中取消长时间运行的进程，而不使用DoEvent？

例如：

for i = 1 to someVeryHighNumber
    ' Do some work here '
    ...

    if cancel then
        exit for
    end if
next

Sub btnCancel_Click()
    cancel = true
End Sub

我假设我需要一个“DoEvents”之前的“如果取消然后…”有更好的方法吗？有一阵子了…

不，你说得对，你肯定想要你的循环中的DoEvents。

如果将DoEvents放在主循环中，发现处理速度太慢，请尝试调用Windows API函数GetQueueStatus(这比DoEvents快得多)来快速确定是否有必要调用DoEvents。 GetQueueStatus告诉你是否有任何事件要处理。

' at the top:
Declare Function GetQueueStatus Lib "user32" (ByVal qsFlags As Long) As Long

' then call this instead of DoEvents:
Sub DoEventsIfNecessary()
    If GetQueueStatus(255) <> 0 Then DoEvents
End Sub

原文地址：https://www.jb51.cc/vb/256105.html