こんにちは！チームの先頭を走り続けるあなたへ。
今日は、Windows Forms（WinForms）アプリケーション開発における「非同期処理のパラダイムシフト」について、少しディープで、しかし実務で即座に効く決定版のノウハウをお伝えします。
「ボタンを押したら画面が固まる（フリーズする）」
「進捗バーが途中でピクリとも動かなくなる」
……VB.NETでデスクトップアプリを作っていると、誰もが一度はこの悪夢のようなUIフリーズ現象に直面しますよね。
かつては、この問題に対して `BackgroundWorker` コンポーネントを使うのが定番の解決策でした。しかし、時代は変わりました。C#やモダンな .NET の世界では、`ValueTask` と `IAsyncEnumerable` を駆使した「非同期ストリーミング処理」がスタンダードになっています。
今回は、VB.NETの世界でこの最先端の非同期制御を完全に手なずけ、「UIスレッドを1ミリもブロックせず、大量のデータを流れるようにリアルタイムで画面に反映させる方法」を、優しく、そして骨太に解説していきます。
ここをクリアすれば、あなたのVB.NETアプリは一気にモダンでプロフェッショナルな動きに生まれ変わりますよ。さあ、一緒に扉を開けましょう！
—
1. なぜ BackgroundWorker では物足りないのか？
VB.NETの歴史において、`BackgroundWorker` は非同期処理の救世主でした。別スレッドで重い処理を回し、`ReportProgress` で進捗を報告し、`RunWorkerCompleted` でUIスレッドに戻る。このパターンで多くのアプリが救われてきました。
しかし、現代のクラウド連携や大規模データ処理において、`BackgroundWorker` には限界があります。
1. イベント駆動のスパゲッティ化: 処理が細切れのイベント（DoWork, ProgressChanged, RunWorkerCompleted）に分断され、コードの流れ（ロジック）が追いづらくなる。
2. メモリとパフォーマンスのオーバーヘッド: `BackgroundWorker` はクラスであり、スレッドプールの使い方やコンテキストスイッチのコストが、高頻度のストリーミングデータ処理には重すぎる。
3. 「最初から全データを溜め込んでから表示」の呪縛: 10万件のレコードがあるとき、全件取得が終わるまで画面に1件も表示されないのは、ユーザー体験として最悪です。
私たちが目指すべきは、「データが1件届いたその瞬間に、UIへ流し込む（ストリーミングする）」という非同期イテレーションの세계です。
—
2. モダンの主役：ValueTask と IAsyncEnumerable とは？
今回の主役である2つのキーワードを、エンジニアリングの視点でシンプルに押さえましょう。
- `ValueTask(Of T)`:
通常の `Task(Of T)` はヒープ上にオブジェクトを生成するため、ミリ秒単位で大量に呼び出される処理ではガベージコレクション（GC）の負荷になります。`ValueTask` は、すでに結果が揃っている場合などに構造体（Value Type）として振る舞い、メモリ割り当てをゼロ（あるいは最小限）に抑える超高速な非同期タスクです。
- `IAsyncEnumerable(Of T)`:
「非同期の foreach（VBでは `For Each`）」を実現するインターフェースです。データを一つずつ、非同期に「待ちながら」受け取る（yield return する）ことができます。これにより、メモリを圧迫せずに無限や数百万件のストリームを安全に処理できます。
—
3. 実装：UIを絶対に守る非同期ストリーミングフォーム
百聞は一見にしかず。実際に、データベースやAPIから非同期でデータを1件ずつストリーミング取得し、UIの `ListBox` にリアルタイムで流し込むVB.NETのコードを見てみましょう。
このコードは、そのまま Visual Studio の Windows Forms プロジェクト（.NET 6 / 7 / 8 以降推奨）に貼り付けて動かすことができます。
Imports System.Threading
Imports System.Collections.Generic
Imports System.Windows.Forms
Public Class MainForm
Private ReadOnly _sieveButton As New Button() With {.Text = “データ取得開始”, .Dock = DockStyle.Top}
Private ReadOnly _listBox As New ListBox() With {.Dock = DockStyle.Fill}
Private ReadOnly _statusLabel As New Label() With {.Text = “待機中…”, .Dock = DockStyle.Bottom}
‘ フォームの初期化
Public Sub New()
Me.Text = “ValueTask & IAsyncEnumerable デモ”
Me.Width = 600
Me.Height = 400
Me.Controls.Add(_listBox)
Me.Controls.Add(_statusLabel)
Me.Controls.Add(_sieveButton)
‘ ボタンクリックイベント
AddHandler _sieveButton.Click, AddressOf OnStartButtonClick
End Sub
‘ ① ボタンクリック：Async Sub によりUIスレッドをブロックせずに非同期処理を開始
Private Async Sub OnStartButtonClick(sender As Object, e As EventArgs)
_sieveButton.Enabled = False
_listBox.Items.Clear()
_statusLabel.Text = “データストリーミング中…”
Try
‘ CancellationToken の準備（必要に応じて処理を中断できるようにする）
Dim cts As New CancellationTokenSource()
‘ ② IAsyncEnumerable を返す非同期メソッドを For Each で回す
‘ データが到着するたびにループが回り、UIが即座に更新されます！
Await foreach (var item in FetchDataStreamAsync(cts.Token))
‘ リストボックスに追加
_listBox.Items.Add(item)
‘ 自動スクロールの演出
_listBox.TopIndex = _listBox.Items.Count – 1
Next
_statusLabel.Text = “すべてのデータの受信が完了しました。”
Catch ex As OperationCanceledException
_statusLabel.Text = “処理がキャンセルされました。”
Catch ex As Exception
MessageBox.Show($”エラーが発生しました: {ex.Message}”, “エラー”, MessageBoxButtons.OK, MessageBoxIcon.Error)
_statusLabel.Text = “エラー終了”
Finally
_sieveButton.Enabled = True
End Try
End Sub
‘ ③ サーバーやAPIから非同期ストリームを生成するメソッド
‘ Async Iterator (Iterator Function) として記述し、ValueTask を内部で効率よく処理します
Private Async Iterator Function FetchDataStreamAsync(cancellationToken As CancellationToken) As IAsyncEnumerable(Of String)
For i As Integer = 1 To 50
‘ 外部API通信やDBクエリのシミュレーション（100ミリ秒ごとに1件取得）
Await Task.Delay(100, cancellationToken)
‘ ValueTask を意識した非同期処理の境界（ここではモックとして文字列を生成）
Dim simulatedData As String = $”レコードID: #{i} – タイムスタンプ: {DateTime.Now:HH:mm:ss.fff}”
‘ yield return により、呼び出し元へ即座にデータを「ストリーミング」返却する
Yield simulatedData
Next
End Function
End Class
—
4. コードの深掘り：ここがプロの技術
上記のコードには、VB.NETでモダンな非同期UIを構築するための重要なエッセンスが凝縮されています。
1. `Async Sub` の適切な利用（イベントハンドラ特権）
通常、非同期メソッドは `Async Function` にして `Task` を返すべきですが、UIのイベントハンドラ（`Button.Click` など）に限り、例外的に `Async Sub` が許容され、かつ推奨されます。これにより、ボタンクリックのトリガーから `Await` を使った綺麗な非同期チェーンを構築できます。
2. `Await foreach` によるシームレスなUI更新
VB.NET（C# 8.0 / VB 16.9以降）では、`IAsyncEnumerable` に対して `Await For Each`（※VBの構文では `Await foreach` または環境による言語仕様の対応を確認）を使用することで、バックグラウンドから流れてくるデータを、メインのUIスレッド上で安全に1件ずつ処理できます。
Windows FormsではUIコントロールの操作は生成したスレッド（UIスレッド）で行う必要がありますが、このイテレーション構文は自然にUIスレッドへ制御を戻しながらループを回してくれます。
3. `Iterator Function` による省メモリ設計
データを一度 `List(Of String)` などに全件格納してから返すのではなく、`Iterator` と `Yield` を使うことで、メモリ上に「次の1件分のデータ」しか存在しない状態を保ちます。これが大量データを扱う際のパフォーマンスの鍵です。
—
5. 陥りやすい罠と回避の極意
現場でこのパターンの実装を進めると、いくつかの「罠」にハマることがあります。先輩からのアドバイスとして頭の片隅に置いておいてください。
- 罠1: UIコントロールのクロススレッド例外
もしカスタムのバックグラウンドタスク内で `_listBox.Items.Add()` を直接呼んでしまうと、「スレッド間操作が不正です」というお馴染みの例外（InvalidOperationException）が発生します。
- 回避策: 今回のコードのように、`IAsyncEnumerable` のイテレーション側（`OnStartButtonClick`）はUIスレッド上で実行されるため、安全にコントロールを触ることができます。複雑な非同期処理を挟む場合は `IProgress(Of T)` を併用するか、UIスレッドのコンテキストを確実に維持してください。
- 罠2: `ValueTask` の二重消費
`ValueTask` は一度 `Await` されると、その内部ステートが破棄される場合があります。`IAsyncEnumerable` の内部で `ValueTask` を扱う際は、同じタスクインスタンスを複数回 `Await` しないように注意してください（基本的にはフレームワークがよしなに処理してくれますが、自前でカスタムAwaiterを書く場合は要注意です）。
—
まとめ：モダンなVB.NETで、快適なUI体験をデザインしよう
今回は、Windows Formsにおける `BackgroundWorker` から `ValueTask` と `IAsyncEnumerable` への移行という、ワンランク上の非同期ストリーミング制御について解説しました。
- 大量データは溜め込まず、`IAsyncEnumerable` と `Yield` でストリーミングする。
- メモリ効率と速度を極限まで高めるために `ValueTask` の概念を取り入れる。
- UIスレッドをブロックせず、ユーザーを待たせない滑らかな画面を描画する。
「古い言語だから仕方ない」なんて言わせません。VB.NETであっても、.NETのモダンな仕様を正しく理解し適用すれば、極めて堅牢でパフォーマンスの高いデスクトップアプリケーションを構築できます。
あなたのアプリケーションが、ユーザーにとってストレスフリーな最高の相棒になりますように。
それでは、次の開発現場でお会いしましょう！
