Пытаясь обновить графический интерфейс внутри темы (начато с BackgroundWorker)

Question

У меня возникают проблемы с обновлением графического интерфейса на разных потоках. Мой сценарий таков:

У меня есть основная форма с одним флажком. В событии я начинаю работу с фоновым работником. В событии BackgroundWorker_DoWork я вызываю новый класс, который, в свою очередь, запускает новый поток. Из этого потока я пытаюсь установить Checked состояние флажка в Form1, но без везения.

До сих пор у меня есть следующий код:

Public Class Form1 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Try 
      BackgroundWorker1.RunWorkerAsync() 

     Catch ex As Exception 
      MsgBox(ex.ToString) 
     End Try 
    End Sub 

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork 
     Try 

      Do While Not BackgroundWorker1.CancellationPending = True 
       Dim cl As New HandleClient 
       Me.Invoke(Sub() Checkbox1.Checked = True) 
      Loop 

     Catch ex As Exception 
      MsgBox(ex.ToString) 
     End Try 
    End Sub 
End Class 

Public Class HandleClient 

    Public Sub startClient() 
     Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf start) 
     ctThread.Start() 
    End Sub 

    Private Sub start() 
     While (True) 
      Try 
       ... 
       .. 

      Catch ex As Exception 
        Form1.Invoke(Sub() Form1.Checkbox1.Checked = False) '<== Fails here 
      End Try 
     End While 
    End Sub 
End Class 

Я попытался с помощью THREADSAFE вызовов и настройки свойств через отдельный класс, но я либо получаю ошибку о том, что я не могу использовать BeginInvoke или Checkbox просто не обновляется (без ошибок).

Любая благодарная благодарность.

Answer 1

Я не уверен, почему вы начинаете новый поток от рабочего фона, который уже начал новую тему для рабочего. Похоже на лишнюю ненужную нить. Рабочий поток рабочего стола не может обновлять элементы управления, которые принадлежат потоку пользовательского интерфейса, что является той же причиной, по которой ваш новый клиентский поток ручек также не может его обновить. С помощью фонового объекта вы можете обновить поток пользовательского интерфейса, подняв событие ProgressChanged рабочего фона и поместите код обновления в метод, обрабатывающий событие.

Public Class Form1 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Try 
      BackgroundWorker1.WorkerReportsProgress = true 
      BackgroundWorker1.RunWorkerAsync() 

     Catch ex As Exception 
      MsgBox(ex.ToString) 
     End Try 
    End Sub 

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork 

     Dim worker As BackgroundWorker = CType(sender, BackgroundWorker) 

     Try 

      Do While Not worker.CancellationPending = True 
       ' Do the thing that is in the Try block of the HandleClient 
       Try 
        ' ... 
        ' .. 
        ' Using a value of 1 for true, since you used False in the catch statement 
        worker.ReportProgress(1) 
        ' Or you can use the overloaded method 
        worker.ReportProgress(0, True) 
       Catch ex As Exception 
        ' Form1.Invoke(Sub() Form1.Checkbox1.Checked = False) '<== Fails here 
        ' Using a value of 0 for false 
        worker.ReportProgress(0) 
        ' Or you can use the overloaded method 
        worker.ReportProgress(0, False) 
       End Try 

      Loop 

     Catch ex As Exception 
      MsgBox(ex.ToString) 
     End Try 
    End Sub 

    Private Sub backgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As ProgressChangedEventArgs) Handles backgroundWorker1.ProgressChanged 
     ' If you used the overloaded method, you can delete this case statement 
     Select Case e.ProgressPercentage 
      Case 0 
       Form1.Checkbox1.Checked = True 
      Case 1 
       Form1.Checkbox1.Checked = False 
      Case Else 
       Form1.Checkbox1.CheckState = CheckState.Indeterminate 
     End Select 

     ' Or just use the userstate as mention in the comments 
     Form1.Checkbox1.Checked = DirectCast(e.UserSate, Boolean) 

    End Sub 

End Class