Обновление от нескольких потоков того же класса

Question

У меня есть этот класс, и у меня есть цикл, который запускает несколько потоков из того же класса. Все это делается из основной формы.

Теперь я хочу обновить richtextbox на главном из этих классов.

Я пробовал эти begininvokes и т. Д. И т. Д., И ничего не работало, без ошибок, но без вывода.

Вот код для запуска нитей:

 Private PingObjects(100000) As Account 'Account is the class and login is the sub in it... 
     PingObjects(I) = New Account 
     Threads(I) = New Threading.Thread(AddressOf PingObjects(I).login) 
     Threads(I).IsBackground = True 
     Threads(I).Start() 

И обновить RTB, им с помощью MainForm.log.text = "....." ничего не происходит, нет ошибки. Я попытался использовать метод begin invoker.

Answer 1

Найдено решение !!

Я нашел решение по другим кредитам на форуме: facebookdoom на HF

Delegate Sub AppenLogDelegate(ByVal update As String) 
Public Sub AppendLog(ByVal update As String) Implements Interface1.AppendLog 
    If log.InvokeRequired Then 
     log.Invoke(New AppenLogDelegate(AddressOf AppendLog), update) 
    Else 
     log.AppendText(update & vbCrLf) 
    End If 
End Sub 

В MainForm

сделать новый класс интерфейса: -

Открытый интерфейс Interface1 Sub AppendLog (обновление ByVal Как String) Конечный интерфейс

Поместите это в класс резьбы:

Private ReadOnly _form Как Interface1

Public Sub (форма ByVal Как форма) Новый _form = форма End Sub

Использование: -

_form.AppendLog ("аааааа")

Answer 2

Обязательно,
Обновление элементов управления от резьбы, отличной от основной резьбы пользовательского интерфейса, должно выполняться с помощью Control.Invoke().
я поставил что-нибудь вместе для вас попробовать

' at the form level 
Private Delegate Sub UpdateRTB(ByVal Msg As String) 

' your thread function 
Private Sub Login() 
    Dim Data As String = "your message for the RTB" 
    rtb.Invoke(New UpdateRTB(AddressOf MainForm.UpdateRTBMessage), Data) 
End Sub 

' the UI updater. 
Private Sub UpdateRTBMessage(ByVal msg as String) 
    rtb.Text = msg 
End Sub 

Я предполагаю, что здесь, что ваш RichTextBox назван RTB