.net 在Visual Basic中从另一个线程读取列表视图中的信息

从列表视图中读取项目时遇到问题。ListView在主线程中，我读出它的部分在另一个类和另一个线程中。我的代码如下：

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim ltm As ListViewItem = New ListViewItem
        ltm.Text = "test1"
        ltm.SubItems.Add("test2")
        ltm.SubItems.Add("test3")
        Me.ListView2.Items.Add(ltm)
        Dim l As New test
        Dim x As New Threading.Thread(AddressOf l.readout)
    End Sub
End Class
Public Class test
    Public Sub readout()
        For Each i As ListViewItem In Form1.ListView2.Items
            Dim command As String = i.SubItems(0).Text
            Dim value As String = i.SubItems(1).Text
            Dim executeon As String = i.SubItems(2).Text
            MsgBox(command & vbCrLf & value & vbCrLf & executeon)
        Next
    End Sub
End Class

我听说了invokes并找到了一些示例代码。我还尝试了以下方法：

 Dim selectedItem = CStr((New Func(Of String)(Function() Form1.ListView2.Items(0).Text)).Invoke)
        MsgBox(selectedItem)

---

然而，这也不起作用。没有错误消息，只是没有显示任何messagebox。当我删除线程和同一个类时，它工作得很好。有人知道它为什么不工作吗？

基本上，您不能从另一个线程接触UI线程。很难确切地说出您想要做什么，但是您肯定可以检查您是否在非UI线程上，并使用InvokeRequired和BeginInvoke继续在UI线程上执行

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim ltm As ListViewItem = New ListViewItem
        ltm.Text = "test1"
        ltm.SubItems.Add("test2")
        ltm.SubItems.Add("test3")
        Me.ListView2.Items.Add(ltm)
        Dim l As New test(ListView2)
        Dim x As New Threading.Thread(AddressOf l.readout)
        x.Start()
    End Sub
End Class

Public Class test

    Public Sub New(listview As ListView)
        _listview = listview
    End Sub

    Private _listview As ListView

    Public Sub readout()
        If _listview.InvokeRequired Then
            _listview.BeginInvoke(New Action(AddressOf readout))
        Else
            For Each i As ListViewItem In Form1.ListView2.Items
                Dim command As String = i.SubItems(0).Text
                Dim value As String = i.SubItems(1).Text
                Dim executeon As String = i.SubItems(2).Text
                MsgBox(command & vbCrLf & value & vbCrLf & executeon)
            Next
        End If
    End Sub
End Class

---

标准VB.NET错误，在工作线程中使用Form1会创建Form1类的新实例。除非添加Form1.ShowDialog（），否则无法看到它。如果您修复了该错误，那么您将获得InvalidOperationException。不要在工作线程中弄乱UI，给它一个列表（字符串）来处理。这对我很有帮助。谢谢你的回答，你救了我！我现在被另一个问题缠住了。提供的代码是一个测试项目，因为实际的代码太大，无法显示。在测试项目中，它工作得很好，但在实际项目中，它给了我一个nullreference错误。有什么线索吗？