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

■No92301 (TanuTanu さん) に返信

とりあえず取得したいデータは、

Me.DataSet1.TESTデータ.Rows(0)("TEST").ToString()

でよくて、非同期メソッドを使わないで（デリゲートも async/await/Task も一切使わないで）、
普通に Form の中でそのコードを書いたら期待通り取得できるのでしょうか？

そうであれば、async/await/Task を使った非同期でそのデータを取得するなら、私が紹介した
記事のコードを例にとると、以下のようにしてみてはいかがですか？

// テスト用の時間がかかるメソッド
private string TimeCosumingMethod(DataSet dataset)
{
    return dataset.TESTデータ.Rows(0)("TEST").ToString();
}

// async/await/Task を使った非同期呼び出し
private async void button3_Click(object sender, EventArgs e)
{
    this.label1.Text = await Task.Run(() => TimeCosumingMethod(this.DataSet1));
}

■No92330 (TanuTanu さん) に返信

VB.NET のコードとしてはイマイチかもしれませんが、async/await/Task を使った
非同期メソッドのコードを貼っておきます。

NorthWindProducts は Visual Studio のデータソース構成ウィザードで作った型付
DataSet ですが、要するに質問者さんのコードの 

DataSet1.TESTデータ.Rows(0)("TEST").ToString()

と同様に、

DataSet1.Products.Rows(0)("ProductName").ToString()

で文字列を取得できると思ってください。

Public Class Form3
    Dim DataSet1 As NorthWindProducts

    Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Label1.Text += Await Task.Run(
            Function() As String
                Return Me.TimeCosumingMethod(DataSet1)
            End Function
        )
    End Sub

    Private Function TimeCosumingMethod(ds As NorthWindProducts) As String
        System.Threading.Thread.Sleep(3000)
        Return ds.Products.Rows(0)("ProductName").ToString() &
            " + ManagedThreadId: " & System.Threading.Thread.CurrentThread.ManagedThreadId
    End Function

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.DataSet1 = New NorthWindProducts
        Dim Adapter As New NorthWindProductsTableAdapters.ProductsTableAdapter
        Adapter.Fill(Me.DataSet1.Products)

        Me.Label1.Text = "ManagedThreadId: " &
            System.Threading.Thread.CurrentThread.ManagedThreadId & " / "
    End Sub
End Class