クラス内部で別スレッドからメインスレッドにマーシャリングする方法

    Private Sub ReportProgress(ByVal message As String)
        'SynchronizingObjectが設定されていればInvoke、そうでなければ普通に実行
        If Not _SynchronizingObject Is Nothing Then
            _SynchronizingObject.Invoke( _
                New OnProgressDelegate(AddressOf OnProgress), _
                New Object() {message})
        Else
            OnProgress(message)
        End If
    End Sub

Public Class Class1



    'スレッドオブジェクト

    Private _SubThread As Threading.Thread



    'マーシャリング用オブジェクト

    Private _SynchronizingObject As System.ComponentModel.ISynchronizeInvoke



    Public Property SynchronizingObject() As System.ComponentModel.ISynchronizeInvoke

        Get

            Return _SynchronizingObject

        End Get

        Set(ByVal Value As System.ComponentModel.ISynchronizeInvoke)

            _SynchronizingObject = Value

        End Set

    End Property



    '別スレッドの処理を開始する

    Public Sub Start()

        'メインスレッドに名前を付ける

        Threading.Thread.CurrentThread.Name = "メインスレッド"

        '別スレッドを開始する

        _SubThread = New Threading.Thread( _

            New Threading.ThreadStart(AddressOf SubThreadProcess))

        _SubThread.Name = "サブスレッド"

        _SubThread.Start()

    End Sub



    '別スレッドで実行する処理

    Private Sub SubThreadProcess()

        '処理1

        Threading.Thread.Sleep(1000)

        'ReportProgress("処理1が終了しました。")     'この処理をメインスレッドで実行したい

        OnProgress(New ProgressEventArgs("処理1が終了しました。"))     'この処理をメインスレッドで実行したい

        '処理2

        Threading.Thread.Sleep(1000)

        'ReportProgress("処理2が終了しました。")     'この処理をメインスレッドで実行したい

        OnProgress(New ProgressEventArgs("処理2が終了しました。"))     'この処理をメインスレッドで実行したい

        '処理3

        Threading.Thread.Sleep(1000)

        'ReportProgress("処理3が終了しました。")     'この処理をメインスレッドで実行したい

        OnProgress(New ProgressEventArgs("処理3が終了しました。"))     'この処理をメインスレッドで実行したい

    End Sub



    'いらない

    'Private Sub ReportProgress(ByVal message As String)

    '    'SynchronizingObjectが設定されていればInvoke、そうでなければ普通に実行

    '    If Not _SynchronizingObject Is Nothing Then

    '        _SynchronizingObject.Invoke( _

    '            New OnProgressDelegate(AddressOf OnProgress), _

    '            New Object() {message})

    '    Else

    '        OnProgress(message)

    '    End If

    'End Sub



    'OnProgressメソッド用のデリゲート

    'Private Delegate Sub OnProgressDelegate(ByVal message As String)



    '処理の途中経過を報告するイベント

    Public Event Progress(ByVal sender As Object, ByVal e As ProgressEventArgs)



    'Progressイベントを発生させる

    Private Sub OnProgress(ByVal e As ProgressEventArgs)

        'SynchronizingObjectが設定されていて、InvokeRequiredがTrueならInvoke

        If ((Not ProgressEvent Is Nothing) AndAlso (Not _SynchronizingObject Is Nothing) AndAlso _SynchronizingObject.InvokeRequired) Then

            _SynchronizingObject.BeginInvoke(ProgressEvent, New Object() {Me, e})

        Else

            RaiseEvent Progress(Me, e)

        End If

    End Sub



    'Progressイベントのイベント変数クラス

    Public Class ProgressEventArgs

        Inherits EventArgs



        Private _message As String



        Public ReadOnly Property Message() As String

            Get

                Return _message

            End Get

        End Property



        Public Sub New(ByVal message As String)

            _message = message

        End Sub



    End Class



End Class