如何取消线程？答案

【问题标题】：How can I cancel a thread?如何取消线程？
【发布时间】：2020-09-05 19:01:51
【问题描述】：

我在一个线程中做某事。但有时我不想等到所有 ping 都完成。

如何取消线程？

你能给我看看代码吗？

Private Sub Start_Button_Click(sender As Object, e As EventArgs) Handles Start_Button.Click
    DoSomething()
End Sub
Private Sub Cancel_Button_Click(sender As Object, e As EventArgs) Handles Cancel_Button.Click
    THRD.Cancel '<-- Thread cancel!??!???
End Sub
Sub DoSomething()
    Dim THRD As New Thread(Sub()
                               Dim IPArea As String = "192.168.1."
                               Dim LastIP As Integer
                               For LastIP = 0 To 255
                                   Dim TestIP As String = IPArea & CStr(LastIP)
                                   If My.Computer.Network.Ping(TestIP, 10) Then
                                       ListBox1.Items.Add(TestIP)
                                   End If
                               Next
                           End Sub)
    THRD.IsBackground = True
    THRD.Start()
End Sub

【问题讨论】：

这个答案很好读：stackoverflow.com/questions/3632149/… 对于初学者，您需要更改THRD 变量的范围，以便从按钮的点击事件中调用它。
正是这我不知道该怎么做，我不能用 c#-code 做任何事情
您是否遇到任何类型的其他错误，例如跨线程操作无效：控件“ListBox1”从创建它的线程以外的线程访问。'？
cancel_button 只有一个错误，因为 THRD.Cancel 的代码错误。
Ping.SendAsync + Ping.SendAsyncCancel。放弃线程。

标签： vb.net multithreading

【解决方案1】：

这是我的工作解决方案，此解决方案仅展示如何将 THRD 作为表单级变量移动，以便在单击取消按钮时允许停止它。我添加了一些验证来防止异常。

Public Class Form1
    Private THRD As Threading.Thread

    Private Sub Start_Button_Click(sender As Object, e As EventArgs) Handles Start_Button.Click
        DoSomething()
    End Sub
    Private Sub Cancel_Button_Click(sender As Object, e As EventArgs) Handles Cancel_Button.Click

        If THRD IsNot Nothing AndAlso THRD.IsAlive Then
            THRD.Abort()  '<-- Thread cancel!??!???
            THRD = Nothing
            AddToList("Stopped.")
        Else
            AddToList("Thread not running.")
        End If
    End Sub

    Sub DoSomething()
        If THRD IsNot Nothing AndAlso THRD.IsAlive Then
            AddToList("Still working...")
            Exit Sub
        End If

        THRD = New Threading.Thread(Sub()
                                        Dim IPArea As String = "192.168.1."
                                        Dim LastIP As Integer
                                        For LastIP = 0 To 255
                                            Dim TestIP As String = IPArea & CStr(LastIP)
                                            If My.Computer.Network.Ping(TestIP, 10) Then
                                                AddToList(TestIP)
                                            End If
                                        Next
                                        AddToList("Done")
                                    End Sub)
        THRD.IsBackground = True
        THRD.Start()
    End Sub

    ''' <summary>
    ''' Thead-safe add value to list.
    ''' </summary>
    ''' <param name="value">The value.</param>
    Private Sub AddToList(value As String)
        If ListBox1.InvokeRequired Then
            ListBox1.Invoke(Sub() ListBox1.Items.Add(value))
        Else
            ListBox1.Items.Add(value)
        End If
    End Sub
End Class

【讨论】：

您必须解决的一个问题是，如果您取消线程，您可能会收到此错误：ThreadAbortException: Thread was being aborted。使用委托并放入 try/catch 可能会更好。