vbプログラムでの長時間バッチ処理の途中経過件数を表示したい。

質問

vbで多量の件数を処理するバッチプログラムがあります。
現在何件処理済みかを、1000件単位でtext項目へ表示させたいと思っています。

ProgressBarとか考えましたが、表示内容が今ひとつでした。
トータル件数と現在実行済み件数だけの表示でよいのですが、上手くいきません。

仕方がなく表示用にプログラムをもう一つ作りまして、件数情報をそのプログラムに渡して表示させています。

この仕組みが割と複雑で、もっと簡単にvb機能だけで出来るのではないかと思っています。

よい方法をご存知の方、ご教授を頂きたく宜しくお願い致します。

os:windows2000pro
vb:vb6
です。

回答No.3

tsukasa-12r · ベストアンサー

Do While ...
　　...
　　DoEvents
Loop

のようにループの中に DoEvents を入れてみてはどうでしょうか。

お礼

有り難う御座います。
テストしました。
ＧＯＯＤでした！

回答No.2

imogasi

自信ないですが、バッチ時代を振り返り
・総レコード数が最初に判れば、レコードを読む都度カウントを＋１し、区切りの良い１０００レコードとか読んだ時にX千／全体数で％（処理済み割合）を出せます。
・固定長なら、ファイルレングスが取れないか考える。
全体長／レコード長でレコード数が出ます。
・それらができなければ、ファイルを書き終わったとき、レコード数を、別ファイルに書き出す（当然短いファイルです。）処理の始めにそのファイルをよみ全体レコード数を知る。

お礼

早速のご回答ありがとうございます。
いつもご回答頂きまして感謝しています。

今回は全体の件数と表示したい数値はわかっているのですが、プログラムの処理中にその値を画面に出す部分を知りたいと思っています。

回答No.1

taka_tetsu

>トータル件数と現在実行済み件数だけの表示で
>よいのですが、上手くいきません。

どこがどのように上手くいかないんですか？

補足

数値をテキストへ出力して、表示（ｓｈｏｗ）しても表示されません。
バッチ処理が完了して画面へ制御が戻った時点で表示されます。
ちなみにリストボックスに変えて表示をしていくと垂直バーが上がって行きますので、表示自体はされていると思いますが、肉眼で見ることは出来ません。