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

■No97577 (メタルスライム さん) に返信

UI スレッドで呼び出して進捗を表示するには Progress クラスが利用できます。詳しくは以下の記事を
見てください。

WPF／Windowsフォーム：時間のかかる処理をバックグラウンドで実行するには？
https://www.atmarkit.co.jp/ait/articles/1512/02/news019.html

それを使って試してみました。具体的には以下の記事のサンプルに進捗表示用の toolStripProgressBar 
と toolStripStatusLabel を追加し、

タスク並列ライブラリ (TPL)
http://surferonwww.info/BlogEngine/post/2020/12/27/task-parallel-library.aspx

さらに下のコードを追加して動かしてみました。

using System;
using System.Windows.Forms;
using System.Threading;
using System.Threading.Tasks;
using System.Collections.Generic;
using System.Linq;

namespace WinFormsApp1
{
    public partial class TaskParallelLibrary : Form
    {
        public TaskParallelLibrary()
        {
            InitializeComponent();

            toolStripStatusLabel1.Text = "";
            toolStripProgressBar1.Value = 0;
        }

        // ・・・中略・・・

        // ***** 進捗を表示 ****

        int currentProgress = 0;       
        

        // 進捗をプログレスバーとラベルに表示するコールバック
        // UIスレッドで呼び出される
        private void ShowProgress(int percent)
        {
            currentProgress += percent;
            toolStripStatusLabel1.Text = currentProgress + "％完了";
            toolStripProgressBar1.Value = currentProgress;
        }

        private void WorkProgress()
        {
            Thread.Sleep(500);
            this.Invoke((Action)(() =>
            {
                currentProgress++;
                toolStripStatusLabel1.Text = currentProgress + "％完了";
                toolStripProgressBar1.Value = currentProgress;
            }));
        }

        private void WorkProgress2(IProgress<int> progress)
        {
            Thread.Sleep(500);
            progress.Report(1);
        }

        private void TplProgress_Click(object sender, EventArgs e)
        {
            currentProgress = 0;
            toolStripStatusLabel1.Text = "";
            toolStripProgressBar1.Value = 0;

            // Application.DoEvents で上の設定を即ラベルに反映
            Application.DoEvents();

            //Parallel.For(0, 100, _ => WorkProgress());

            var p = new Progress<int>(ShowProgress);
            Parallel.For(0, 100, _ => WorkProgress2(p));
        }

        private async void WhenAllProgress_Click(object sender, EventArgs e)
        {
            currentProgress = 0;
            toolStripStatusLabel1.Text = "";
            toolStripProgressBar1.Value = 0;

            var p = new Progress<int>(ShowProgress);
            var taskList = new List<Task>();
            for (int i = 0; i < 100; i++)
            {
                taskList.Add(Task.Run(() => WorkProgress2(p)));
            }

            // WaitAll は await で待機できないので注意
            await Task.WhenAll(taskList.ToArray());
        }
    }
}

紹介した記事に書いた通り、WinForms でタスク並列ライブラリを使う場合、

(1) 並列に実行される複数のメソッドがすべて完了するまで UI がブロックされる。
(2) 並列実行するメソッドには非同期版は使えない。

という問題がありますが、さらに上記のコード TplProgress_Click の Parallel.For を使っている方は、
Progress クラスを利用しても並列に実行される複数のメソッドがすべて完了するまで UI には反映されな
いという問題がありました。

Progress クラスではなくて、Form.Invoke を使う WorkProgress() メドッソの方はなぜか途中でハング
してしまいます。理由は気力が無くて調べ切れてません。

WhenAllProgress_Click の、タスク並列ライブラリは使わないで、await Task.WhenAll(...) で待機する
方は期待通り進捗が表示されます。

どなたか、Parallel.For を使ってできないかチャレンジして、うまくいったら結果を書いてくれると幸
いです。