C# と VB.NET の質問掲示板

お世話になります。

環境
ソフト：VB.NET2003
OS：XP Pro SP2

フォームロード後、ボタンクリックイベントでスレッドを作成、開始して
スレッド内でグリッドに表示するデータを作成しデータテーブルに設定しています。
作成されたデータを

DataDG.DataSource = cdt

のようにデータグリッドに格納しようとすると
「あるスレッドで作成されたコントロールに対してイ、別のスレッドのコントロールを親にすることはできません。」
とエラーが出てしまいます。
ネットでInvokeを使ったやり方が記載されていたので、それに沿った修正を加えてみたのですが、
問題が解消されません。以下のように修正しました。

    Private Delegate Sub ViewDataDelegate(ByVal cdt As DataTable)

　　Ptivate mdtGrid as DataTable

    Private Sub ViewDG(ByVal cdt As DataTable)
        Try
            DataDG.DataSource = Nothing
            DataDG.DataSource = cdt
        Catch ex As Exception

        End Try
    End Sub

    Private Sub DispInTable()
        Dim ViewDataGrid As ViewDataDelegate
        Try
           ' データグリッドに表示
            ViewDataGrid = AddressOf ViewDG
            ViewDataGrid.Invoke(mdtGrid)

        Catch ex As Exception
            Throw ex
        Finally
       End Try
    End Sub

ご教授お願い致します。

早速のご返信ありがとうございます。

■No21971 (れい さん) に返信
> ■No21969 (開発者駆け出し さん) に返信
>>「あるスレッドで作成されたコントロールに対してイ、別のスレッドのコントロールを親にすることはできません。」
>>とエラーが出てしまいます。
> 
> グリッドというのが何だかわかりませんが、

すみません。DataGridコントロールのことです。

> 問題はエラーの内容そのままです。
> 
> コントロールを生成したスレッドで呼ばなければいけません。
> そのためには、Control.Invoke、Control.BeginInvokeを使うと簡単です。
> 
>>ネットでInvokeを使ったやり方が記載されていたので、それに沿った修正を加えてみたのですが、
>>問題が解消されません。以下のように修正しました。
> 
> delegateのInvokeとControl.Invokeは同じメソッド名ですが、
> まったく違うものです。
> 前者は呼び出しスレッドでデリゲートの指すメソッドを実行するメソッドで、
> 後者はコントロールの作成スレッドでデリゲートの指すメソッドを実行するメソッドです。
> 
> この修正では、delegate.Invokeを使っているので呼び出し元スレッドでViewDGが呼ばれています。
> Control.Invoke、今回はDataDG.Invokeを使う必要があります。

おっしゃる通り、DelegateのInvokeとControl.Invokeがごっちゃになっていました。
修正した結果、機能を実現することが出来ました。
以下ソースです。

    Private Delegate Sub ViewDataDelegate()

    Private Sub ViewData()
        Try
            If (InvokeRequired = True) Then
                ' 別スレッドから呼び出された場合
                Invoke(New ViewDataDelegate(AddressOf ViewData))
                Return
            End If
            DataDG.DataSource = Nothing
            DataDG.DataSource = mdtGrid
         Catch ex As Exception
            Throw
        Finally
        End Try

    End Sub