多线程，同时取消（转自网络）_private sub somelongtask-优快云博客

本文介绍了一种使用ManualResetEvent来控制线程运行与取消的方法。通过设置和重置ManualResetEvent对象，主线程可以通知工作线程何时停止运行。文章提供了具体的VB.NET代码示例，展示了如何启动和取消线程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

 Public CancelThread As New System.Threading.ManualResetEvent(False)

    Public ThreadisCanceled As New System.Threading.ManualResetEvent(False)

    Private Sub SomeLongTask()

        Dim LoopCount As Integer

        Dim Loops As Integer = 10       ' 在 While 循环中运行 10 秒钟代码，或者       ' 直至设置了 CancelThread。       

        While Not CancelThread.WaitOne(0, False) And LoopCount < Loops          ' 此处执行某种类型的任务。     
            System.Threading.Thread.Sleep(1000) ' 休眠 1 秒钟。       

            LoopCount += 1

        End While

        If CancelThread.WaitOne(0, False) Then          ' 确认设置了 ManualResetEvent CancelThread。          

            ThreadisCanceled.Set()
            MsgBox("取消线程")

        Else

            MsgBox("线程运行结束")

        End If

    End Sub

    Public Sub StartTask()       ' 启动新线程。      

        Dim th As New System.Threading.Thread(AddressOf SomeLongTask)

        CancelThread.Reset()
        ThreadisCanceled.Reset()
        th.Start()
        MsgBox("线程已启动")
    End Sub

    Public Sub CancelTask()       ' 停止任何由 StartTask 过程启动的线程。       ' 注意，此线程同时接收和发送        ' 同步事件以协调线程操作。        

        CancelThread.Set()   ' 设置 CancelThread 以通知线程停止。      

        If ThreadisCanceled.WaitOne(4000, False) Then  ' 最多等待 4 秒钟，以便线程           ' 确认它已经停止。          
            MsgBox("线程已停止。")

        Else

            MsgBox("线程无法停止。")

        End If

    End Sub