VB6 DoEventsの代わりは？

質問

お世話になります。

progressbarを表示するために、
重たい処理のループの中ではDoEventsを入れることで表示ができているのですが、

ループとループの間でprogressbarを更新するには、どのようにしたらよろしいでしょうか？

*****　現状
for i =1 to 9999
重い処理
Frm_ProgressBar.ProgressBar1.value = 進捗数
DoEvents
next i

*****　やりたいこと
for i =1 to 9999
重い処理Ａ
next i

Frm_ProgressBar.ProgressBar1.value = 進捗数
DoEvents

for i =1 to 9999
重い処理Ｂ
next i

回答No.3

uruz

No.2です。
ProgressBarは本来DoEvents()やRefreshで更新しなくてもValueの値を更新すると表示も更新される作りになっています、表示が更新されないのは「進捗数」が変化していないことが考えられます、そのあたりの確認をしてみてください。

回答No.2

uruz

Refreshメソッド

Frm_ProgressBar.ProgressBar1.value = 進捗数
Frm_ProgressBar.ProgressBar1.Refresh

補足

回答ありがとうございます
でも、ダメでした
Refreshメソッドで表示が反映される前に、次のループに入ってしまい、
結果、描画は更新されませんでした。

回答No.1

山田 太郎（@f_a_007）

Q、VB6 DoEventsの代わりは？
A、やはり、DoEvents。

Frm_ProgressBar.ProgressBar1.value = 進捗数

For i =1 To 9999
　重い処理Ｂ
If Frm_ProgressBar.ProgressBar1.value <> 進捗数 Then
　　　DoEvents
End If
Next i

と、普通はこんな感じです。が、何となく違和感を感じます。
もしかしたら、要求されているのは、次のようなコードなんでしょうか？

Frm_ProgressBar.ProgressBar1.value = 進捗数
Do
　DoEvents
Loop Until　Frm_ProgressBar.ProgressBar1.value = 進捗数
For i =1 To 9999
　重い処理Ｂ
Next i

いずれにしろ、次のコードですと問題が解決されます。

Frm_ProgressBar.ProgressBar1.value = 進捗数
For i =1 To 9999
　重い処理Ｂ
　DoEvents
Next i