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

Azulean 様

サンプルコードはRefreshをしなかったとしても
ある程度負荷のかかるコードをメインスレッドで実施しなければならない場合の意味をこめて
 System.Threading.Thread.Sleep(100)
を入れています


下記のコードを非同期にして、キャンセルボタン等を受付することは無理なのでしょうか？




Private Sub Button1_Click_3(sender As Object, e As EventArgs) Handles Button3.Click
HIDOUKI()
End Sub

Private Async Sub HIDOUKI()
Await Task.Run(Function() Parallel.[For](0, 500,
Sub(n)

Me.BeginInvoke(Sub()
Me.Text = ”実行中_” & n
Me.Refresh()
System.Threading.Thread.Sleep(100)
End Sub)

System.Threading.Thread.Sleep(1000)

End Sub))

MsgBox("完了")

End Sub




Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
WhenAllProgress_Click()
End Sub
Private Async Sub WhenAllProgress_Click()
Dim taskList = New List(Of Task)()
For i As Integer = 0 To 500 - 1
Dim n As Integer = i
taskList.Add(Task.Run(Sub()
Me.BeginInvoke(Sub()
Me.Text = ”実行中_” & n
Me.Refresh()
System.Threading.Thread.Sleep(100)
End Sub)

System.Threading.Thread.Sleep(1000)
End Sub))
Next

Await Task.WhenAll(taskList.ToArray())

MsgBox("完了")

End Sub


websurferさま
すみません図形モードで張れば
自動的にインデントされるかと思いましたが
そんなわけなかったです

■No97769 (メタルスライム さん) に返信
> 2021/07/12(Mon) 02:01:39 編集(投稿者)
> 2021/07/12(Mon) 00:55:10 編集(投稿者)
> 
> Me.BeginInvoke(Sub()
>    Me.Text = ”実行中_” & n
>    Me.Refresh()
>    System.Threading.Thread.Sleep(100)
> End Sub)
> 
> System.Threading.Thread.Sleep(1000)

Azuleanさんがおっしゃっている通りだと思います。
上記のinvoke内の処理はUIスレッドで行われます。
この処理負荷を下げる必要があります。
Sleep(100)の処理内容が画面表示に関連がないのであるならば
invokeの外にだすべきです。
関連があるならば、表示する結果を計算する処理をinvokeの外に出し、
結果を表示する機能をinvoke内で実施することで処理を減らせると思います。
なので下記のようにした方が良さそうです。

System.Threading.Thread.Sleep(100)
Me.BeginInvoke(Sub()
   Me.Text = ”実行中_” & n
   Me.Refresh()
   Sleep(100)で計算された結果をここで表示
End Sub)
System.Threading.Thread.Sleep(1000)

また、上記で改善されなければ、
まだ負荷が高いということになります。
Azuleanさんも指摘されていますが、
例えば、25ms間隔で表示されている場合、
そんなに早く同じコントロールのTextプロパティに設定し表示しても
人間の目では追うことはできません（認識できない）。
なので、表示を間引くようなことをすれば実害なく表示の負荷を下げることができると思います。

例えばですが、
invoke内で画面に表示していますが、
この処理の表示したい内容だけを表示用スタック（新規に作成する）に登録するだけにし、
invokeを使わないようにします。
新たに表示用のスレッドまたは、UIタイマーでも良いと思いますが、
例えばUIタイマーで１秒毎に表示用スタック内の情報を表示します。
表示用スタックを１つのみ取り出し、スタック内の情報をクリアする。
取り出した１つのみを画面表示するというような仕組みを入れれば
１秒毎に最新の１つのみ画面表示するということが実現でき、
かなりの処理低減につながると思います。

参考になればよいですが、、、

■No97774 (メタルスライム さん) に返信
 
> websurferさま
> すみません図形モードで張れば
> 自動的にインデントされるかと思いましたが
> そんなわけなかったです

あなたのコードを Visual Studio のエディタ画面にコピペしてそれを図表モードでここに貼りなおすと
以下のようになります。見てもらわないと話が始まらないのだから、見てもらえる努力をしませんか？

    Private Sub Button1_Click_3(sender As Object, e As EventArgs) Handles Button3.Click
        HIDOUKI()
    End Sub

    Private Async Sub HIDOUKI()
        Await Task.Run(Function() Parallel.[For](0, 500,
        Sub(n)

            Me.BeginInvoke(Sub()
                               Me.Text = ”実行中_” & n
                               Me.Refresh()
                               System.Threading.Thread.Sleep(100)
                           End Sub)

            System.Threading.Thread.Sleep(1000)

        End Sub))

        MsgBox("完了")

    End Sub




    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        WhenAllProgress_Click()
    End Sub
    Private Async Sub WhenAllProgress_Click()
        Dim taskList = New List(Of Task)()
        For i As Integer = 0 To 500 - 1
            Dim n As Integer = i
            taskList.Add(Task.Run(Sub()
                                      Me.BeginInvoke(Sub()
                                                         Me.Text = ”実行中_” & n
                                                         Me.Refresh()
                                                         System.Threading.Thread.Sleep(100)
                                                     End Sub)

                                      System.Threading.Thread.Sleep(1000)
                                  End Sub))
        Next

        Await Task.WhenAll(taskList.ToArray())

        MsgBox("完了")

    End Sub