非同期実装にてエラーが発生する。

Question

###前提・実現したいこと
コントロールのボタンクリックイベントにて重たい処理を非同期(Async Await)にて実装しております。
処理自体は上手くいきました。最終的にはアプリケーションを自動実行できるようにと考えているのですがここで問題が発生しました。フォームロード時に、コマンドライン引数を受けた場合のみ自動的に処理を行い、終了後、アプリケーションを終了するという実装を行っております。

###発生している問題・エラーメッセージ
ボタンイベントをフォームロード時に呼び出しているのですが処理が意図した動きをしません。

###該当のソースコード

   Private Sub FrmMain_Shown(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Shown
        If opts.Automatic Then
            btnRun.PerformClick()
            Console.WriteLine("処理中なんだけどな・・・。")
            Application.Exit()
        End If
    End Sub

    Private Async Sub btnRun_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnRun.Click
        '重たい処理。
    End Sub

###補足情報(言語/FW/ツール等のバージョンなど)
処理継続中にもかかわらずConsole出力されアプリケーションが終了してしまいます。
引数を与えず、手動でボタンイベントを走らせた場合、問題なくAwaitし処理終了まで待ち続けるのですが。

ボタンイベントを実行する手法に誤りがあるとは思うのですが何か方法がございますでしょうか。
よろしくお願い致します。

Answer 1

こんにちは。

「重たい処理」の終了待ちがないように見えます。
だから、直ぐにApplication.Exit()が呼ばれてアプリが終了します。
btnRun_Clickで「重たい処理」をawaitしているのであれば、その後でopts.AutomaticをチェックしてApplication.Exit()を呼ぶのも１つと思います。

Comments

[yuki00079]

返信ありがとうございます。
>btnRun_Clickで「重たい処理」をawaitしているのであれば
上記も考えたのですが、手動時と異なりawaitせずにアプリケーションが終了してしまいます。
クリックイベントを呼び出す際にawaitすると今度はUIスレッドになるためエラーが発生し滞っている状態です。関数にしてしまいクリック時と自動化の際に呼び出すのがベストなのでしょうか。

[Chironian]

>>btnRun_Clickで「重たい処理」をawaitしているのであれば
> 上記も考えたのですが、手動時と異なりawaitせずにアプリケーションが終了してしまいます。

FrmMain_ShownのApplication.Exit()を削除して、「重たい処理」のawait後にApplication.Exit()を入れたのですよね？
それで重たい処理終了を待たないでアプリが終了するということはない筈なのですが。
上記処理を施し、かつ、重たい処理終了を待たずにアプリが終了するソースを提示頂くことはできすか?　（でも、すいません。VBは詳しくないので、お役に立てない可能性もあります。その時はご勘弁下さい。）

> 関数にしてしまいクリック時と自動化の際に呼び出すのがベストなのでしょうか。

非同期処理というか、サブ・スレッドで重たい処理をするのであれば、重たい処理の完了待ちは必須ですから、それはたぶん対策にならないと思います。
「関数にしてしまい」の意味が、async/awaitを使わずメイン・スレッド内の同期処理にすると言う意味であれば大丈夫と思います。

[yuki00079]

返信ありがとうございます。
難しく考えていたようです。おっしゃる通り実装すると期待している動作になりました。

Answer 2

PerformClick()はユーザーが実際にボタンを押せる状態じゃないと動作しません。
まぁどんな状態かわからないので、もしかしたら動かせるようにできるかもしれませんが、
それよりもその「重たい処理」は別の関数として独立させてその関数をbtnRun_Clickから呼び出すようにした方が確実です。
（自動化する場合は直接その関数を呼ぶようにする）

Comments

[yuki00079]

やはり関数にして呼び出す以外方法がないですか。
Await Task.Run(Sub() btnRun_Click(sender, e))
のような形で呼び出すと今度はボタンイベント内のコントロールにアクセスしている箇所が問題が出てしまいます。大人しく関数化ですかね。