22

是否可以在不使用 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

我假设在“如果取消那么......”之前我需要一个“DoEvents”有没有更好的方法？有一阵子了...

4

8 回答 8

30

不，你做对了，你肯定想要在你的循环中使用 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
于 2008-10-02T04:35:45.663 回答
8

不，您必须使用 DoEvents 否则所有 UI、键盘和计时器事件将在队列中等待。

您唯一能做的就是每 1000 次迭代调用一次 DoEvents 等。

于 2008-09-30T23:13:19.223 回答
7

“for”循环是否在 GUI 线程中运行？如果是这样，是的，您将需要一个 DoEvents。您可能希望使用单独的线程，在这种情况下不需要 DoEvents。您可以在 VB6 中执行此操作（不简单）。

于 2008-09-30T23:09:51.463 回答
4

你可以在一个单独的线程上启动它，但在 VB6 中这是一个非常痛苦的过程。DoEvents 应该可以工作。这是一个hack，但VB6也是如此（10年的VB老手在这里说话，所以不要贬低我）。

于 2008-09-30T23:14:32.450 回答
4

将长期运行的任务划分为量子。此类任务通常由一个简单的循环驱动，因此将其分成 10、100、1000 次等迭代。使用 Timer 控件，每次触发时都会执行部分任务并随时保存其状态。首先，设置初始状态并启用定时器。完成后，禁用计时器并处理结果。

您可以通过更改每个量子完成的工作量来“调整”它。在 Timer 事件处理程序中，您可以检查“取消”并根据需要提前停止。您可以通过将工作负载和 Timer 捆绑到带有 Completed 事件的 UserControl 中来使这一切变得更整洁。

于 2008-10-01T03:39:14.233 回答
4

当我需要它时，这对我很有效。它检查用户是否按下了退出键以退出循环。

请注意，它有一个非常大的缺点：它会检测用户是否在任何应用程序上按下了转义键 - 而不仅仅是您的应用程序。但是当你想给自己一种方法来中断一个长时间运行的循环，或者一种按住 shift 键绕过一些代码的方法时，这是一个很好的开发技巧。

Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Sub Command1_Click()
    Do
        Label1.Caption = Now()
        Label1.Refresh
        If WasKeyPressed(vbKeyEscape) Then Exit Do
    Loop

    Label1.Caption = "Exited loop successfully"

End Sub

Function WasKeyPressed(ByVal plVirtualKey As Long) As Boolean
    If (GetAsyncKeyState(plVirtualKey) And &H8000) Then WasKeyPressed = True
End Function

GetAsyncKeyState 的文档在这里：

http://msdn.microsoft.com/en-us/library/ms646301(VS.85).aspx

于 2008-10-15T22:36:53.127 回答
4

编辑结果证明MSDN 文章有缺陷，并且该技术不起作用:(

这是一篇关于使用.NET BackgroundWorker组件在 VB6 中的另一个线程上运行任务的文章。

于 2009-01-05T17:55:20.223 回答
4

这是 VB6 中异步后台处理的一个非常标准的方案。（例如，它在 Dan Appleman 的书中和 Microsoft 的 VB6示例中。）您创建一个单独的 ActiveX EXE 来完成工作：这样工作就会自动在另一个线程上，在一个单独的进程中（这意味着您不必担心变量被践踏）。

  • VB6 ActiveX EXE 对象应该公开一个事件 CheckQuitDoStuff()。这需要一个名为 Quit 的 ByRef 布尔值。
  • 客户端在 ActiveX EXE 对象中调用 StartDoStuff。此例程在隐藏窗体上启动 Timer 并立即返回。这会解除阻塞调用线程。Timer 间隔非常短，因此 Timer 事件会快速触发。
  • Timer 事件处理程序禁用 Timer，然后回调到 ActiveX 对象的 DoStuff 方法。这开始了冗长的处理。
  • DoStuff 方法会定期引发 CheckQuitDoStuff 事件。客户端的事件处理程序检查特殊标志并在需要中止时设置 Quit True。然后 DoStuff 中止计算并在 Quit 为 True 时提前返回。

这种方案意味着客户端实际上不需要是多线程的，因为调用线程在“DoStuff”发生时不会阻塞。棘手的部分是确保 DoStuff 以适当的间隔引发事件 - 太长，并且您无法在您想要的时候退出：太短，并且您不必要地减慢了 DoStuff。此外，当 DoStuff 退出时，它必须卸载隐藏的表单。

如果 DoStuff 确实设法在中止之前完成所有工作，您可以引发不同的事件来告诉客户端工作已完成。

于 2009-10-13T17:01:33.243 回答