バックグラウンド処理実行時にフォームのボタンを使用する

状態と問題

重たい処理をBackgroundWakerで実行してます。

ファームにはキャンセルボタンと一時停止ボタンを設けておりますが、ボタンを押すことができません。

BackgroundWakerないのループ処理の最後にThred Sleepをすることでボタンのクリックイベントを拾うことは可能と知りましたが、そもそもBackgroundWakerでの処理が実行されてる間はカーソルがWait状態になっています。

実現したいこと

1.BackgroundWakerで重い処理を実行している間にカーソルをWait状態にしない。

2.Thred Sleep以外にボタンのクリックイベントを拾う方法等あればそちらを実装したい。

環境

VB.NET

ViualStudio2010

追記

外出のため編集できませんでした。
以下に大まかな処理のコードを記載致します。

SubBackgroundWorkerProgressChangedのSelectCaseの「-1」では
スレッドの一時停止処理を、SelectCaseの「-2」～「-4」では
参照しているDLLを実行させています。
DLL内では主に、DBを検索しデータの取得・更新を行っています。


Public oEvWork As New System.Threading.ManualResetEvent(True)
Friend WithEvents BackgroundWorker As New System.ComponentModel.BackgroundWorker
'バックグラウンドワーカー一時停止フラグ(True:停止可/False:停止不可)
Private mbWakerStopFlg As Boolean = False

　　''' <summary>
    ''' 一時停止
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub SubPause_Click(sender As System.Object, e As System.EventArgs) Handles Pause.Click
            mbStopFlg = True
    End Sub

　　''' <summary>
    ''' 再開
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub SubReStart_Click(sender As System.Object, e As System.EventArgs) Handles ReStart.Click
            mbStopFlg = False
            oEvWork.Set()
    End Sub

　　''' <summary>
    ''' バックグラウンドワーカー
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
Private Sub SubBackgroundWorkerDoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker.DoWork
        'カウンター
        Dim iCnt As Integer

        For i = 1 To iCnt

　　　　　　If mbStopFlg  = True Then
             Me.BackgroundWorker.ReportProgress(i, -1)
           End If

            Me.BackgroundWorker.ReportProgress(i, -2)
            
            Me.BackgroundWorker.ReportProgress(i, -3)
            
　　　　　　'バックグラウンドワーカーがResetされているとSetされるまで無限に待機する
            oEvWork.WaitOne(System.Threading.Timeout.Infinite)

            Me.BackgroundWorker.ReportProgress(i, -4)
        Next
    End Sub

　　''' <summary>
    ''' バックグラウンドワーカーから処理を実行
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub SubBackgroundWorkerProgressChanged(sender As System.Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker.ProgressChanged
        'カウンター
        Dim iCnt As Integer

        '引数をカウントに変換
        iCnt = CType(e.UserState, Integer)

        '実行処理分岐
        Select Case iCnt
            Case -1
　　　　　　　　oEvWork.Reset()

            Case -2

            Case -3

            Case -4

        End Select
    End Sub

y_waiwai

2018/12/04 13:36

そのBackgroundWakerで実行させるところのコードを提示してください

y_waiwai

2018/12/04 14:00

「BackgroundWorker」でぐぐるとわかりますが、ふつうにこれで処理すれば別スレッドで実行されるため、おっしゃるようなことは起こりません。

kenshirou

2018/12/06 07:15

そもそも、これ、BackgroundWaker動いていますか？RunWorkerAsyncはどこで呼び出していますか？SubBackgroundWorkerDoWorkイベントハンドラ内のカウンタiCntの値はどこでセットされているのでしょうか？

行動規範の内容に同意します

回答1件

ベストアンサー

こんな感じですか？
Public Class Form1
Private pProhHd As proc
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
pProhHd = New proc(Me)
'コントロールを初期化する
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 10
ProgressBar1.Value = 0
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '処理が行われているときは、何もしない
    If BackgroundWorker1.IsBusy Then
        Return
    End If

    'Button1を無効にする
    Button1.Enabled = False
    Button2.Enabled = True

    'コントロールを初期化する
    ProgressBar1.Minimum = 0
    ProgressBar1.Maximum = 10
    ProgressBar1.Value = 0
    Label1.Text = "0"
    'キャンセルできるようにする
    BackgroundWorker1.WorkerSupportsCancellation = True

    'BackgroundWorkerのProgressChangedイベントが発生するようにする
    BackgroundWorker1.WorkerReportsProgress = True
    'DoWorkで取得できるパラメータ(10)を指定して、処理を開始する
    'パラメータが必要なければ省略できる
    BackgroundWorker1.RunWorkerAsync(10)

End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    'Button2を無効にする
    Button2.Enabled = False

    'キャンセルする
    BackgroundWorker1.CancelAsync()
End Sub
Private pbgWorker As System.ComponentModel.BackgroundWorker
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) _
                                     Handles BackgroundWorker1.DoWork
    Dim bgWorker As System.ComponentModel.BackgroundWorker = DirectCast(sender, System.ComponentModel.BackgroundWorker)
    pProhHd.SetBgWorker = bgWorker
    pbgWorker = bgWorker
    '結果が必要なければ省略できる
    e.Result = pProhHd.BackProc(e.Argument, e)
End Sub
Public WriteOnly Property SetbgWotker() As Integer
    Set(ByVal value As Integer)
        pbgWorker.ReportProgress(value)
    End Set
End Property

'BackgroundWorker1のProgressChangedイベントハンドラ
'コントロールの操作は必ずここで行い、DoWorkでは絶対にしない
Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, _
        ByVal e As System.ComponentModel.ProgressChangedEventArgs) _
        Handles BackgroundWorker1.ProgressChanged
    'ProgressBar1の値を変更する
    ProgressBar1.Value = e.ProgressPercentage
    'Label1のテキストを変更する
    Label1.Text = e.ProgressPercentage.ToString()
End Sub

'BackgroundWorker1のRunWorkerCompletedイベントハンドラ
'処理が終わったときに呼び出される
Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, _
        ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) _
        Handles BackgroundWorker1.RunWorkerCompleted
    If Not e.Error Is Nothing Then
        'エラーが発生したとき
        Label1.Text = "エラー:" & e.Error.Message
    ElseIf e.Cancelled Then
        'キャンセルされたとき
        Label1.Text = "キャンセルされました。"
    Else
        '正常に終了したとき
        '結果を取得する
        Dim result As Integer = CInt(e.Result) '		
        Label1.Text = result.ToString() & "回で完了しました。"

        'Label1.Text = Label1.Text + "回で完了しました。"
    End If

    'Button1を有効に戻す
    Button1.Enabled = True
End Sub

End Class

投稿2018/12/04 13:59

akirafudo6

総合スコア341

akirafudo6

2018/12/04 14:02

呼び出しぼprocは、こんなふうになります。 Imports System.Threading Public Class proc Private pForm1Hd As Form1 Private bgWorker As System.ComponentModel.BackgroundWorker Public Sub New(ByVal formHd As Form1) pForm1Hd = formHd End Sub Public WriteOnly Property SetBgWorker() As System.ComponentModel.BackgroundWorker Set(ByVal value As System.ComponentModel.BackgroundWorker) bgWorker = value End Set End Property Public ReadOnly Property BackProc(ByVal param As Integer, ByVal e As System.ComponentModel.DoWorkEventArgs) Get Dim maxLoops As Integer = param Dim i As Integer For i = 1 To maxLoops 'キャンセルされたか調べる If bgWorker.CancellationPending Then 'キャンセルされたとき e.Cancel = True Exit For End If '1秒間待機する（時間のかかる処理があるものとする） System.Threading.Thread.Sleep(1000) 'ProgressChangedイベントハンドラを呼び出し、 'コントロールの表示を変更する pForm1Hd.SetbgWotker = i Next 'ProgressChangedで取得できる結果を設定する '結果が必要なければ省略できる 'pForm1Hd.e.Result = maxLoops Return maxLoops End Get End Property End Class