起動時、ボタンを押すことができない

Question

前提・実現したいこと

一定期間を過ぎたファイルを削除して、その後メインを起動するシステムを作ろうとしています。

そのファイルを削除するという工程をスキップするボタンがあるのですが、そのボタンをファイル削除中に押すことができません。

コードはVB.NETで書いています。

Windows Forms　を作っています。

開発環境は、
win10
visual studio express 2017
.NET Framework 4.6.2
です。

該当のソースコード

’リセットのボタンを押したときの処理
Private Sub reset_Click(sender As Object, e As EventArgs) Handles reset.Click
        BackgroundWorker1.CancelAsync()
End Sub


’ファイル削除を行う処理
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        Dim bgWorker As BackgroundWorker = DirectCast(sender, BackgroundWorker)

        ' パラメータをObject 型からキャストして取り出す
        Dim maxLoops As Integer = CType(e.Argument, Integer)

        For i = 0 To maxLoops - 1
            If bgWorker.CancellationPending Then
                'キャンセルされたとき
                e.Cancel = True
                Return
            End If

            Kill(delete_file_list(i))
            bgWorker.ReportProgress(i, delete_file_list(i))

        Next
    End Sub

    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged

        'ProgressBar1の値を変更する
        ProgressBar.Value = e.ProgressPercentage

        'Labelのテキストを変更する
        Min.Text = e.ProgressPercentage.ToString
        lblfileName.Text = CType(e.UserState, String)

        '画面の更新
        Min.Refresh()
        lblfileName.Refresh()
    End Sub

delete_file_list　には削除するファイルが配列で入っています。
maxLoops は　delete_file_list.count と同じ意味です。

BackgroundWorker1_RunWorkerCompletedも書いているのですが、今回は割愛しております。

試したこと

BackgroundWorker1_ProgressChangedのところで、

画面更新やテキスト変更の部分をコメントアウトするとボタンを押すことができます。

'ProgressBar1の値を変更する
ProgressBar.Value = e.ProgressPercentage

    'Labelのテキストを変更する
    Min.Text = e.ProgressPercentage.ToString
    'lblfileName.Text = CType(e.UserState, String)

    '画面の更新
    'Min.Refresh()
    'lblfileName.Refresh()

画面の処理のところをプログレスバーだけにするとボタンを押すことができます。

もしできないのでありましたら、仕様の変更も考えております。

少ない情報で申し訳ないのですが、何か解決策などございましたら、よろしくお願いいたします。

Comments

[退会済みユーザー]

何を作っているか（Windows Forms? WPF? ASP.NET Web Forms? その他？）と開発環境（OS, Visual Studio のバージョン、.NET Framework か Core のどっちかとそのバージョンなど）ぐらいは書きませんか？

[shinchan0424]

何を作っているか　Windows Forms
開発環境　win10 visual studio express 2017
.NET Framework 4.6.2 です。

[退会済みユーザー]

上記は質問欄を編集して追記してください。コメント欄は見ない人がいますので。

BackgroundWorker を使うのは必須ですか？　.NET 4.6.2 なのに・・・

[shinchan0424]

追記いたしました。ありがとうございます。
必須ではございません。自分でいろいろ調べたりして、使用しています。
他の方法があるのでしょうか、、？

[退会済みユーザー]

> 他の方法があるのでしょうか、、？

.NET 4.5 以降であれば async / await / Task を使うのかなと思ったもので（以下の記事を見てください）。余計なお世話でしたら失礼しました。

第1回　.NET開発における非同期処理の基礎と歴史
https://www.atmarkit.co.jp/fdotnet/chushin/masterasync_01/masterasync_01_02.html

[退会済みユーザー]

ご参考までに以下の記事も紹介しておきます。

BackgroundWorker を使った 2006 年の記事

時間のかかる処理をバックグラウンドで実行するには？［2.0のみ、C#、VB］
https://www.atmarkit.co.jp/fdotnet/dotnettips/436bgworker/bgworker.html

async／await を使った 2015 年の記事

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

[shinchan0424]

ありがとうございます！
記事を読ませていただき、いろいろ試したのですが、ちょっと自分にはまだうまく使えませんでした。。
今回は違う方法をとり、どうにか動くようになりました。

async／await もとても興味深いので、学習して使えるようにしていきたいなと思っています。

ありがとうございました！

Answer 1

色々調べて試したのですが、なぜかボタンを押すことはできない。。。

Application.DoEvents()　を利用することにいたしました。

ファイル削除のところと、UIコントロールのところを一つにして

For i = 0 To delete_file_list.Count - 1
Application.DoEvents()
'Kill(delete_file_list(i))

        'ProgressBar1の値を変更する
        ProgressBar.Value += 1

        'Labelのテキストを変更する
        Min.Text = ProgressBar.Value.ToString()
        lblfileName.Text = delete_file_list(i)
        Min.Refresh()
        lblfileName.Refresh()
        If Not reset_flag Then
            'start_up()
            Close()
            Exit Sub
        End If

Next

このように書くとボタンを押すことができました。

reset_flagはボタンを押すとfalse になり、
start_upはこの処理が終わった後に起動するプログラムを呼び出しています。