回答編集履歴
1
修正されたコードに対する回答を追記
test
CHANGED
|
@@ -107,3 +107,159 @@
|
|
|
107
107
|
毎回１分待機させて終了させないBackgroundWorkerなら最初の指摘を直せば動きそうな気がします。
|
|
108
108
|
|
|
109
109
|
ただそういう場合、１分おきに実行はTimerに任せて、BackgroundWorkerは毎回終了するようにした方が良いように思います。
|
|
110
|
+
|
|
111
|
+
|
|
112
|
+
|
|
113
|
+
---
|
|
114
|
+
|
|
115
|
+
|
|
116
|
+
|
|
117
|
+
**追記：8/14 15:14**
|
|
118
|
+
|
|
119
|
+
|
|
120
|
+
|
|
121
|
+
提示のコードで試してみました。処理としては、e.Resultにlstをセットして、RunWorkerCompletedで受け取っているので、そこは問題ない様に見えます。
|
|
122
|
+
|
|
123
|
+
後述する「DoWorkで使っているlst変数が宣言されていない」(frmMainのものを使ってしまっていて状態が不明瞭に)という問題がありますが、最終的にはclsMainのprepareで何件のリストを返しているかによるので、そこの実際の処理を見直してみるしかなさそうです。
|
|
124
|
+
|
|
125
|
+
|
|
126
|
+
|
|
127
|
+
`txtBox?`の数字がbeanのNoときちんとあっているかは試してません。
|
|
128
|
+
|
|
129
|
+
Controls.Findとその次の行をコメントアウトして動くなら、受け渡しの問題ではありませんね。
|
|
130
|
+
|
|
131
|
+
```vb
|
|
132
|
+
|
|
133
|
+
For Each r As bean In lst
|
|
134
|
+
|
|
135
|
+
'Dim rResult As Control() = Controls.Find("txtBox" & r.No, True)
|
|
136
|
+
|
|
137
|
+
'CType(rResult(0), TextBox).Text = r.Result
|
|
138
|
+
|
|
139
|
+
Next
|
|
140
|
+
|
|
141
|
+
```
|
|
142
|
+
|
|
143
|
+
|
|
144
|
+
|
|
145
|
+
長くてすいませんが、気になる点を指摘してみます。
|
|
146
|
+
|
|
147
|
+
|
|
148
|
+
|
|
149
|
+
まずは軽微なところから
|
|
150
|
+
|
|
151
|
+
|
|
152
|
+
|
|
153
|
+
* Cancel処理で正常終了
|
|
154
|
+
|
|
155
|
+
ここは今のところの工夫ということで後回しで良いですが、CancelAsyncを読んだらキャンセルされて欲しいので、中断/終了は別の方法をとった方が良いでしょう。これは後で書きます。
|
|
156
|
+
|
|
157
|
+
* beanのプロパティと内部変数名が同じ名前
|
|
158
|
+
|
|
159
|
+
VB.NETは大文字と小文字を区別しないので、privateのnoとPropertyのNoが二重定義でエラーになります。
|
|
160
|
+
|
|
161
|
+
これは質問用に書き換えたときのミスだろうと思うので。
|
|
162
|
+
|
|
163
|
+
* 変数CLSMainとCLSListMain
|
|
164
|
+
|
|
165
|
+
質問に記載するときのミスなら問題ありませんが、そうでないなら問題です。
|
|
166
|
+
|
|
167
|
+
```vb
|
|
168
|
+
|
|
169
|
+
' DoWork内
|
|
170
|
+
|
|
171
|
+
Dim CLSMain As clsMain = New clsMain ’CLSMain 変数を用意
|
|
172
|
+
|
|
173
|
+
lst = CLSListMain.prepare() 'CLSListMainとは？
|
|
174
|
+
|
|
175
|
+
```
|
|
176
|
+
|
|
177
|
+
* RunWorkerCompleted内でのCancelAsync
|
|
178
|
+
|
|
179
|
+
` If e.Cancelled = True Then`の次の行
|
|
180
|
+
|
|
181
|
+
これは単純に不要です。ここに入ったときはすでにキャンセルされているので。
|
|
182
|
+
|
|
183
|
+
|
|
184
|
+
|
|
185
|
+
その他の問題となりそうなところ
|
|
186
|
+
|
|
187
|
+
|
|
188
|
+
|
|
189
|
+
* Threading.Thread.Sleep(60000)
|
|
190
|
+
|
|
191
|
+
これだとWhile無いが1回実行されるたびに 1分待つことになります。
|
|
192
|
+
|
|
193
|
+
現在の問題と関係ないので…と思ってましたが実際に書いてみたら理由がわかった気がします。
|
|
194
|
+
|
|
195
|
+
これがないと非同期なはずなのに固まるから入れたんではないでしょうか。
|
|
196
|
+
|
|
197
|
+
もしそうなら固まる理由はReportProgressを呼びすぎていることにあります。
|
|
198
|
+
|
|
199
|
+
ReportProgressを実行する間は画面側の処理になりますので、これを過剰に呼ぶということは、裏方（別スレッド）に任せたのに、状態を確認しにいって何もできてない状態です。
|
|
200
|
+
|
|
201
|
+
ウェイトを入れるか、ReportProgressを呼ぶ条件をつけたほうがいいでしょう（カウンタを用意しておいて100回に1回だけ呼ぶなど）。
|
|
202
|
+
|
|
203
|
+
今は、Thread.Sleep(300)ぐらいにしておけばいいと思います。実際のClsMainがなにしているのかにもよりますが。ここでSleepしている＝作業用スレッドは止まっているということに注意してください。
|
|
204
|
+
|
|
205
|
+
|
|
206
|
+
|
|
207
|
+
* DoWorkで使っているlst変数が宣言されていないのと List(Of bean) をnewしすぎ。
|
|
208
|
+
|
|
209
|
+
結論から言えば、lst( List(Of bean) )のNewはclsMainのprepare()でnewしているので他は必要ありません。
|
|
210
|
+
|
|
211
|
+
DoWork内では変数を用意すればいいだけです。
|
|
212
|
+
|
|
213
|
+
今の作りだとWhile Trueのすぐ前の行に用意すればいいかと。
|
|
214
|
+
|
|
215
|
+
```
|
|
216
|
+
|
|
217
|
+
Dim lst As List(Of bean)
|
|
218
|
+
|
|
219
|
+
While True
|
|
220
|
+
|
|
221
|
+
```
|
|
222
|
+
|
|
223
|
+
そして、frmMainの先頭の private lst ～ の行は不要になりますので削除します。
|
|
224
|
+
|
|
225
|
+
スレッド内(DoWork内)では、スレッド外部で宣言されている変数はあまり触らないようにします(Threadとの連携のために用意したものならいいですが、DoWorkでもfrmMainでも同時に変更したとき厄介だからです)。
|
|
226
|
+
|
|
227
|
+
|
|
228
|
+
|
|
229
|
+
* clsMainでのList(Of bean)の初期化はただしいか。
|
|
230
|
+
|
|
231
|
+
先ほど、clsMain内だけ List(Of bean) のnewを残しました。
|
|
232
|
+
|
|
233
|
+
実際の処理次第ではありますが、prepareでListを毎回newしてしまうのでなにか外部のデータでもない限り、その都度Listは空になります。prepare内でアイテムを追加してますので、その回で追加されたアイテム分しか結果としてのこりません。
|
|
234
|
+
|
|
235
|
+
そこでデータが変わらないならWhileでループしても何回やっても同じになってしまうなと感じました。時刻によってデータが変わったり外部との連携があるなら問題ないのです。
|
|
236
|
+
|
|
237
|
+
ただ、そうであればそのWhileループの回で、追加するものがなにもなければ結果は 0件になります。
|
|
238
|
+
|
|
239
|
+
|
|
240
|
+
|
|
241
|
+
---
|
|
242
|
+
|
|
243
|
+
|
|
244
|
+
|
|
245
|
+
* キャンセルについて
|
|
246
|
+
|
|
247
|
+
これは当面の問題が解決してから気にしてください。
|
|
248
|
+
|
|
249
|
+
中止という意味でキャンセルさせたいとき、DoWork内で e.Cancelと Trueにセットすると、
|
|
250
|
+
|
|
251
|
+
RunWorkerCompleted内で、CancellationPendingがTrueになります。
|
|
252
|
+
|
|
253
|
+
キャンセル処理としてはこちらの方が素直な作り方になります。
|
|
254
|
+
|
|
255
|
+
終了の条件を別途設ける(frmMainのprivate変数にboolean変数を用意しておくとか、RunWorkerAsyncに連携用オブジェクトを渡しておいて、DoWorkEventArgsから受け取る（結果をe.Resultから受け取るように）とか)必要がありますので、今の問題が片付いてから検討してもいいでしょう。
|
|
256
|
+
|
|
257
|
+
単に終了させるのは、e.CancelにFalseをセットした状態でWhile文を抜ければいいだけです。
|
|
258
|
+
|
|
259
|
+
キャンセルを終了に流用してるだけなので、そこまで悪いことではないですが、「CancelAsyncよんだけどキャンセルロジックに入らない」というのは後で見るとわかりにくいかもしれません。コメントだけでも残しておくといいでしょう。
|
|
260
|
+
|
|
261
|
+
|
|
262
|
+
|
|
263
|
+
|
|
264
|
+
|
|
265
|
+
|