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

解決

sherry 2003-01-21 14:21:34 No: 105905 IP: [192.*.*.*]

いつもお世話になっております。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-21 15:24:49 No: 105906 IP: [192.*.*.*]

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

編集削除

sherry 2003-01-21 16:32:50 No: 105907 IP: [192.*.*.*]

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

編集削除