同步上下文

Imports System.IO
Imports System.Threading
Public Class Form1
    Private m_SyncContext As System.Threading.SynchronizationContext
    Private m_DestinationPath As String
    Private thread As Thread
    Public Sub New()
        ' This call is required by the designer.
        InitializeComponent()
        ' Add any initialization after the InitializeComponent() call.
        Me.m_SyncContext = System.Threading.SynchronizationContext.Current
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim id As Integer = thread.CurrentThread.ManagedThreadId
        thread = New Thread(AddressOf searchDwgs)
        thread.Start()
    End Sub
    Private Sub searchDwgs()
        ' searching through an opening drawings on the thread pool 
        Me.m_SyncContext.Post(AddressOf UpdateTextBox, "[New Text]")
    End Sub
    Private Sub UpdateTextBox(param As Object)
        If (TypeOf (param) Is String) Then
            Me.TextBox3.AppendText(CStr(param))
        End If
    End Sub
End Class

Imports System.IO
Imports System.Threading
Imports System.Windows.Forms
Module Module1
    Dim m_frmDummy As Form
    Dim m_SyncContext As System.Threading.SynchronizationContext
    Dim id As Integer
    Dim thread As Thread
    Sub Main()
        m_frmDummy = New Form
        m_frmDummy.InitializeLifetimeService()
        m_SyncContext = System.Threading.SynchronizationContext.Current
        id = thread.CurrentThread.ManagedThreadId
        thread = New Thread(AddressOf searchDwgs)
        thread.Start()
    End Sub
    Private Sub searchDwgs()
        ' searching through an opening drawings on the thread pool 
        m_SyncContext.Post(AddressOf UpdateTextBox, "[New Text]")
    End Sub
    Private Sub UpdateTextBox(param As Object)
        If (TypeOf (param) Is String) Then
            MsgBox(CStr(param))
        End If
    End Sub
End Module