並列動作しない？ActiveX EXE

質問

たびたび申しわけありません。
質問番号：5696830で質問した者です。

自分なりに調べ、アウトプロセスで動くと思われるActiveX EXEを使用した
プログラムを行ってみましたが…

並列動作しません…プログラム的には、

ActiveX EXE　→　Project1 Class1の中の
関数の中に、
　　For i=0 to 10
　　Sleep(1000)
　　Next

クライアントVBA →　上記参照設定後
Dim obj As MyComponent.MyClass
Set obj = New MyClass
関数実行！

としました。問題なく動作はします。
しかし、並列処理ではなく、関数実行終了(Forループ終了)まで
戻ってきません。これでは、ActiveX EXEを使用した目的が…？

このような具合です。
私のプログラム構造上、おかしな箇所はありませんでしょうか？
よろしくお願いいたします。

回答No.3

reset_cat · ベストアンサー

VB6.0ですと単体ではマルチスレッドに対応していないので、マルチスレッドや同期処理を行うには記述難度が跳ね上がりますが・・・

VB.netなら.Net FrameworkにSystem.Threading名前空間に該当クラスライブラリがあり、比較的容易にマルチスレッドや同期処理が記述できるんですが・・・

補足

アドバイスありがとうございます。

しかし今回は、時間と環境が制限されているため
VB6.0しか使用できないんです…

回答No.2

reset_cat

このActiveXは記述からみてVB.netで書かれたんでしょうか？

プログラムがかなり断片的にしか書かれてないの推測の範囲でしか回答できませんが、

「ExcelVBAから計測開始関数を複数一斉に呼び出し、その語すべての計測終了を待ってから次の処理を開始する。その計測処理を並列で同時に行いたいが、計測が終了したことがわからないといけない。」

ということをやりたいのでしょうか？？
これを実現するにはマルチスレッドと同期処理が必要になると思います。

お礼

ありがとうございました。
ActiveX側でタイマーイベントを発生させ、マルチスレッドを実現することが出来ました。
ヒントをくださいまし、ありがとうございました。

補足

ご返答、ありがとうございます。
はい、私のやりたい事は、おっしゃるとおりです。

今朝、マルチスレッドが必要という所まで行き着く事が出来ました。
（ちなみにVB6.0です）
タイマーを使用しながら、プログラム組んでいますが
『計測器』に渡す引数が、タイマーイベントに渡すことが出来なくて
困っています。
やはり、タイマーを使用するしかないのでしょうか？
他にマルチスレッドでいい方法があれば、教えてください。
大変お手数で、申し訳ありませんが、よろしくお願いします。

回答No.1

samtomsan

VB6の場合で回答します。

VBはループの中ではCPUをつかんでいますので、他に制御を渡しません。
従って、forのようなループで他に制御を渡したい場合は、forの中に
Doevents
を記述する必要があります。