无法在 vb.net 中启动线程

Question

我正在尝试在一个表单中为一个需要大约 5 秒才能运行的函数启动一个线程，这样我就可以防止 UI 被锁定。我有下面的代码，但是当它点击“thread1.start”时它失败了。当我通过调试器观看它时，它只是进入“End Sub”并且它没有进入我期望它去的 getSecurityStuff() 方法。有什么想法吗？

谢谢！

Imports System.Threading

Public Class frmAddAssets

    Private theDict As Dictionary(Of String, String) = Nothing


    Private Sub frmAddAssets_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Control.CheckForIllegalCrossThreadCalls = False

    End Sub

    Private Sub cmbTickerEntry_Leave(sender As System.Object, e As System.EventArgs) Handles cmbTickerEntry.Leave

        Dim thread1 As New Thread(New ThreadStart(AddressOf getSecurityStuff))

        thread1.Start()

    End Sub

    Public Sub getSecurityStuff()

        Dim getData As New clsSecurityView(cmbTickerEntry.Text())

        Try
            theDict = getData.getStockData()
        Catch ex As Exception
            Throw
        End Try

        filldata()

    End Sub

    Private Sub filldata()

        Dim list As New List(Of String)(theDict.Keys)

        txtTicker.Text = cmbTickerEntry.Text.ToString()

        For Each kvp As KeyValuePair(Of String, String) In theDict

            Select Case True
                Case kvp.Key = "Name"
                    txtSecurityName.Text = kvp.Value.ToString()
                Case kvp.Key = "Price"
                    txtPrice.Text = kvp.Value.ToString()
                Case kvp.Key = "Market Capitalization"
                    txtMarketCap.Text = kvp.Value.ToString()
                Case kvp.Key = "Dividend Yield"
                    txtDivYield.Text = kvp.Value.ToString()
                Case kvp.Key = "PE Ratio"
                    txtPERatio.Text = kvp.Value.ToString()
                Case kvp.Key = "EPS"
                    txtEPS.Text = kvp.Value.ToString()
            End Select

        Next

    End Sub
End Class

Answer 1

...当我通过调试器观看它时，它只是进入“结束 子”...

请注意thread1.Start() 不会阻塞当前线程。

将CheckForIllegalCrossThreadCalls 设置为False 不会做任何事情，但会忽略在您访问UI 线程拥有的控件的属性时引发的异常——这也是您的问题：

• 您创建了一个新线程
• 新线程调用getSecurityStuff
• 您尝试以cmbTickerEntry.Text 作为参数声明一个新的clsSecurityView。
• 例外 - 您尝试访问 UI 线程拥有的控件，同时位于另一个线程上！
• 没有出现异常，因为您已将CheckForIllegalCrossThreadCalls 设置为False

与 fillData... 相同的处理方式试图访问 UI 线程之外的控件。

解决方案：使用Invoke/BeginInvoke 来执行应该读取/修改UI线程拥有的控件属性的代码。

Answer 2

试试这个

Dim action as New Action(AddressOf getSecurityStuff)
action.BeginInvoke(Nothing, Nothing)