Wie man Text an die richTextBox von einer anderen Klasse in VB.NET Winform anhängt?

Question

Ich habe eine winform namens Form1.vb und eine Klasse namens FZConsole.vb Auf der Winform habe ich eine Richtextbox1 und ich versuche, Text aus der Klasse anhängen, aber es wird nicht funktionieren.

Class FZConsole 
Public Sub FZConsole() 
    While True 
      Form1.Richtextbox1.AppendText(Environment.NewLine & "Test From Class") 

     Threading.Thread.Sleep(1) 
    End While 
End Sub 
End Class 

Answer 1

Public Class Form1 

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
     Dim newInstanceToClass As New SomeClass 
     RichTextBox1.AppendText(newInstanceToClass.returenText) 
    End Sub 


    Class SomeClass 
     Function returenText() As String 
      Dim txt As String = "some text..." 
      Return txt 
     End Function 
    End Class 
End Class 

Answer 2

Beim Zugriff: Ich versuche, dies zu tun in der Klasse

Richtextbox1.AppendText("Console is currently ON.") 

, aber es wird nicht funktionieren, tun einfach

Vom Form1.vb kann ich Steuerelemente aus einem anderen Thread müssen Sie normalerweise das Zugreifen/Aktualisieren des Steuerelements aufrufen. Dies geschieht, um die Aktualisierung der Steuerelemente zu synchronisieren, sodass zwei Threads nicht gleichzeitig ein Steuerelement aktualisieren.

Sie können es sich so vorstellen: Zwei Personen können nicht gleichzeitig auf demselben Papier schreiben.

Aufruf ist in der Regel nichts schweres. Es ist im Grunde nur diese beiden Dinge tun:

1. Überprüfen Sie, ob Aufruf durch das Steuerelement oder seinen Container erforderlich ist.
2. Bei Bedarf aufrufen.

Aufruf wird mithilfe von Delegate-Methoden ausgeführt. Wenn Sie auf .NET Framework 4.0 oder höher abzielen, können Sie den Lambda-Ausdruck Sub() verwenden, um einen sehr einfachen Delegaten zu erstellen.

Public Sub FZConsole() 
    While True 
     If Form1.InvokeRequired = True Then 'Invocation is required.' 
      Form1.Invoke(Sub() Form1.Richtextbox1.AppendText(Environment.NewLine & "Test From Class")) 
     Else 'Invocation is not required.' 
      Form1.Richtextbox1.AppendText(Environment.NewLine & "Test From Class") 
     End If 

     Threading.Thread.Sleep(1) 
    End While 
End Sub 

---

Allerdings, wenn Sie .NET Framework Ziel von 3,5 oder darunter Dinge werden ein wenig komplizierter. Wenn Sie auf ein älteres Framework abzielen, müssen Sie den Delegaten selbst deklarieren, und das ist nicht so einfach wie das Verwenden des Lambda, da es beim Übergeben von Variablen anders funktioniert.

Delegate Sub TextUpdaterDelegate(ByVal Text As String) 

Public Sub FZConsole() 
    While True 
     If Form1.InvokeRequired = True Then 'Invocation is required.' 
      Form1.Invoke(New TextUpdaterDelegate(AddressOf RichTextBox1.AppendText), Environment.NewLine & "Test From Class") 
     Else 'Invocation is not required.' 
      Form1.Richtextbox1.AppendText(Environment.NewLine & "Test From Class") 
     End If 

     Threading.Thread.Sleep(1) 
    End While 
End Sub