Re: Accessing Controls from Worker Threads (JMC)

Public Class MainForm
 
    Private WithEvents m_someWork As New SomeWork
 
    Private Sub MainForm_Load(ByVal sender As System.Object,
                              ByVal e As System.EventArgs) Handles MyBase.Load
        Dim t As New Threading.Thread(AddressOf Me.m_someWork.DoWork)
        t.Start()
    End Sub
 
    Private Sub WorkCompleted(ByVal sender As Object,
                              ByVal e As EventArgs) Handles m_someWork.SomeValue
        Dim value As String = DirectCast(e, SomeValueEventArghs).Value
 
        Me.Label1.Invoke(New MethodInvoker(Sub() Me.Label1.Text = value))
        Me.Label2.Invoke(New MethodInvoker(Sub() Me.Label2.Text = value))
 
    End Sub
 
End Class

Public Class MainForm
 
    Private WithEvents m_someWork As New SomeWork
 
    Private Sub MainForm_Load(ByVal sender As System.Object,
                              ByVal e As System.EventArgs) Handles MyBase.Load
        Dim t As New Threading.Thread(AddressOf Me.m_someWork.DoWork)
        t.Start()
    End Sub
 
    Private Sub WorkCompleted(ByVal sender As Object,
                              ByVal e As EventArgs) Handles m_someWork.SomeValue
 
        If Me.Label1.InvokeRequired Then
            Me.Label1.Invoke(New Action(Of Object, EventArgs)(AddressOf WorkCompleted), sender, e)
        Else
            Dim value As String = DirectCast(e, SomeValueEventArghs).Value
            Me.Label1.Text = value
            Me.Label2.Text = value
        End If
    End Sub
 
End Class