vb 网络线程/类问题

Question

大家好，我已经发布了有关此问题的文章，并且使用了答案来帮助我，但我仍然陷入困境，我真的要克服这个问题并继续我的程序的其余部分。我正在尝试使用另一个线程上另一个类的新文本更新文本框。我可以让它在同一类的另一个线程上以及另一个类的同一线程上毫无问题地工作。但不在另一个类的另一个线程上。我的代码看起来像这样，当它运行时不产生错误但不将测试添加到文本框中，奇怪的是我对程序进行了一些更改以将多行添加到 consolebox.text 然后检查 console.text来自 form2 并生成我添加的值，但由于某种原因这些值没有反映在控制台框中。有人请帮助我，这样我就可以不再打扰你了...哈哈

Public Class Form1
Dim myform2 As New form2
Dim t As New System.Threading.Thread(AddressOf myform2.display)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub

Private Delegate Sub ConsoleDelegate(ByVal message As String)
Public Sub console(ByVal message As String)
    If Me.InvokeRequired Then
        Me.Invoke(New ConsoleDelegate(AddressOf console), New Object() {message})
        Return
    End If
    If Me.consolebox.Text.Length > 0 Then
        If Me.consolebox.Text.Substring(Me.consolebox.Text.Length - 3, 3) = "..." Then
            Me.consolebox.AppendText(message)
        ElseIf Me.consolebox.Text.Substring(Me.consolebox.Text.Length - 1, 1) = "." Then
            Me.consolebox.AppendText(ControlChars.NewLine & timestamp() & message)
        End If
    Else
        Me.consolebox.AppendText(timestamp() & message)
    End If
End Sub

Function timestamp()
    Return "[DATE]"
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    t.Start()
End Sub

结束课程

公共课程 form2

Public Sub display()
    Form1.console("hello")
End Sub

结束课程

Answer 1

您必须将 Form1 的实例传递给 form2:

Dim myform2 As New form2(me)

和 form2:

Public class form2
    Dim _form1 As Form1

    Public New(form1 As Form1)
        _form1 = form1
    End Sub

    Public Sub Display()
        _form1.console("hello")
    End Sub
End Class