おはようございます。
Vb2010+SQLServer2008Expressを使用しています。
プログレスバーを配置し、進捗状況を確認するフォームを汎用的に使用できるようにしてあります。
プログレスバーを呼び出し元になるフォームに「DoWorkイベント」のみを記述しております。
（プログレスバーを配置したフォームはShowDialogで呼び出しています。）
そこで、DoWorkイベントの中の記述で、エラーではないがある特定の状態になった場合
（たとえば、ある処理の結果が「100」となった場合）、DialogResultをAbortにしたいと考えています。
ただ、どのように調べても、なかなか解糖らしきものが見つかりません。
処理は、下記のようになっています。
Private Sub btn_Import_Timecard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btn_Import_Timecard.Click
’プログレスバーフォームを呼び出す
Dim pgb As MyLibrary.frmProgressbar2 = New MyLibrary.frmProgressbar2( _
"タイムカード取込中", _
New DoWorkEventHandler(AddressOf DoWork_ImportTimecard), _
MaxCount)
Dim result As DialogResult = pgb.ShowDialog(Me)
pgb.DispProgressBarResult(result, pgb)
’バックグランド処理内容
Private Sub DoWork_ImportTimecard(ByVal sender As Object, _
ByVal e As DoWorkEventArgs)
Dim bgw As BackgroundWorker = DirectCast(sender, BackgroundWorker)
Dim A as Integer=0
If A = 100 then
ここに、DialogResult.Abortを通知する処理を組み込みたい ← ここ
End Iｆ
以下はプログレスバーを配置してあるフォーム内に記述してあります。
'プログレスバーの結果表示
Public Sub DispProgressBarResult(ByVal result As DialogResult, _
ByVal pgb As frmProgressbar2)
If result = Windows.Forms.DialogResult.Cancel Then
MessageBox.Show("キャンセルされました。")
ElseIf result = Windows.Forms.DialogResult.Abort Then
Dim ex As Exception = Me.Error
MessageBox.Show("エラー:" & ex.Message)
ElseIf result = Windows.Forms.DialogResult.OK Then
'結果を取得する
Dim stopTime As Integer = CInt(pgb.Result)
MessageBox.Show("成功しました:" & stopTime.ToString)
End If
End Sub
非常に分かりにくい記述となっていることは承知しておりますが、これ以上うまく説明することができません。
どうか、アドバイスお願いします。
