VB 処理中にプログレス数を表示するには？

質問

VBでの処理数が多く、また時間もかかる事からプログレスバーを用いて処理を見ているのですが、プログレスバー以外にプログレス数を見たいと思っています。
どのようにすれば実現できるか教えてください。

詳細は省きますが、現在はこんなコマンドで、処理中に処理総数と処理経過数を出力しようとしていますが、全処理が終了した時点ででしか出力されません。

Private Sub Button1_Click ～　’スタートボタンを押下

TotalProcess = 1000000 '例えば100万件の処理総数があったとして
TextBox1.Text = TotalProcess

Do Until ～
　　　～
　　　Processing = Processing + 1
　　　TextBox2.Text = Processing
Loop

テキストボックスのプロパティーをいじれば、出来るのかな？など考えておりますが、わかりませんので、ご存知の方教えてください。

回答No.1

MARU4812 · ベストアンサー

> 詳細は省きますが、
最低限の変数宣言は省くべきではないと思いますが。

>Do Until ～
>　　　～
>　　　Processing = Processing + 1
>　　　TextBox2.Text = Processing
　　　 TextBox2.Refresh()
>Loop
かな。

ところで、TextBox2 の再描画に 0.01 秒かかると仮定して
> 100万件の処理総数
0.01秒 × 100万 = 1万秒(=2.7時間)
処理時間が長くなるという事です。

実際にはもっと短い時間で再描画できますが、
ループで毎回表示更新するという処理は、
数百(千)回に1回とかに変更することを考えた
方がいいかもしれません。

お礼

ありがとうございます。
処理は1分毎のデータを1年ほど回すのですが、
複数年にわたる処理ですので、年毎に出力するようにします。

処理時間の指摘、変数宣言の不足、TextBox2.Refresh()の教示ありがとうございました。

回答No.3

sknbsknb2

方法としては、

(1)DoEvents()を使う。(ループの1回ごとの実行は無駄なので適当な回数ごとにする)
(2)ループの部分をマルチスレッドにして、ループの適当な回数ごとにテキストボックスを書きかえる。

くらいかと。

具体的な方法はネット検索してください。(^_^;
ちなみにVB.NETなら(2)も難しくありません。VB6なら選択肢は(1)のみです。

お礼

1回の処理も長いので、まずはDoEventを試してみます。

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

回答No.2

IDii24

DoEvents
などで制御を解放しないと再描画出来ませんよ。つまり真っ白画面のままです。
しかもその分処理が遅くなるので、成るべく更新しない方が良い。だから件数を区切って表示。
その時だけ DoEventsをだす。

お礼

ありがとうございます。

DoEvents（）を調べて試してみます。

更新のタイミングはまとめて行います。ご教示ありがとうございました。