vb6 - 在没有 DoEvents 的情况下取消 VB6.0 中长时间运行的进程？

Question

是否可以在不使用 DoEvents 的情况下取消 VB6.0 中长时间运行的进程？

例如:

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

    if cancel then
        exit for
    end if
next

Sub btnCancel_Click()
    cancel = true
End Sub

我认为在“if cancel then...”之前我需要一个“DoEvents”，有更好的方法吗？好久不见了……

Answer 1

不，你说得对，你肯定希望在循环中使用 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