標準モジュールからプログレスバーを表示するには

解決

sherry 2003-01-21 23:21:34 No: 105905

いつもお世話になっております。sherryと申します。
タイトルが適切ではないかもしれませんが。。。

現在、フォームから標準モジュールの関数を呼び出しています。

'フォーム
Private Sub ExecPrint_Click()
          ・
          ・
    Call PrintData(A,B)
          ・
          ・
End Sub

'標準モジュール
Sub PrintData(A As String,B As integer)
          ・
          ・
    Do While (0 = oraDynaset.EOF)
          ・
          ・
        処理
          ・
          ・
    Loop
          ・
          ・
End Sub

というようなソースになっています。
フォーム内は標準モジュールで必要な数値の取得や型変換をしているだけです。
標準モジュールのLoopはデータベースから取得したデータを1件ずつ処理して降ります。
このときに、
「**件/**件中処理完」
というメッセージを出すダイアログボックス（？）をだしたいのですが、
どのようにしたらよいのでしょうか。（できればプログレスバーを表示させたいのですが。。。）
いろいろ調べてはいるのですが、Clickイベントでプログレスバーの値を増やすものしか見当たらないのです。

どなたかご存知の方がいらっしゃいましたら、ご教示お願いいたします。

Say 2003-01-22 00:24:49 No: 105906

Formにプログレスバーを置いて、
標準モジュールのループ内で増やせばよろしいかと・・・。

sherry 2003-01-22 01:32:50 No: 105907

Say様、ありがとうございます。
プログレスバーを出すのに新たにFormを作らないといけないと思っておりました。
無事に解決いたしました。
どうもありがとうございました。