ActiveXコントロールの作成（ＶＢ６）

質問

こんばんは。
今、ＶＢ６でActiveXコントロールを作成しようと思っています。
現在、標準ＥＸＥにて、プログラムが作ってあります。
動作としては、
１．スタートボタン（CmdStart）で開始
２．処理（外部の測定器によるデータ収集）
３．終了ボタン（CmdEnd）にてプログラム終了
です。

これをもとに、ActiveXコントロールを作成したいです。手元にある文献にしたがってほぼコピー＆ペーストで作成しました。また、これの動作を調べるため、標準ＥＸＥのフォームを作成し、そのフォームにActiveXコントロールを貼り付けました。

ここで質問です。
Form_LoadはUserControl_Initializeに書き換えました。（これは文献に載っていました）

最後のプログラム終了がうまくいきません。
標準ＥＸＥでは
Private Sub CmdEnd_Click()
Unload Me
End Sub
と書いてプログラムを終了させていました。
ここを書き換えずにActiveXコントロールを実行させたらエラーが出ました。"Unload Me"を"End"に書き換えてみたら、サポートされていないと出ました。

CmdEndをクリックしてプログラムを終了させるにはどう書けばいいでしょうか？

よろしくお願いします。

回答No.1

BellBell · ベストアンサー

ActiveXコントロール内で、プログラムを終了させよう、というプログラムデザインがそもそもの元凶だと思われます。
質問で書かれていた、1,2,3の処理中、2の機能を持ったActiveXコントロールを作成する。
1の処理開始、3のプログラム終了はActiveXコントロールを貼り付けられるプログラム本体で処理する方が良いと思います。

仮に2の処理終了と同時に、プログラムを終了させたいと言うことであれば、ActiveXコントロールに処理終了イベントを実装します。

'処理が終了したことを通知するイベント
Event ShoriShuryo
のような感じです。

処理が終わった際に、

'処理終了イベントを発生させてプログラム本体に通知する
RaiseEvent ShoriShuryo

としてやれば、本体プログラム中でShoriShuryoイベントが発生しますので、プログラム終了のためにUnload Meを実行します。

決してお勧めなわけではありませんが、以下のようにすると内部の終了ボタンがクリックされた事を、本体プログラム側に通知することができます。
'『終了』コマンドボタンがクリックされたことを通知するイベント
Event EndClick

Private Sub CmdEnd_Click()
　　RaiseEvent EndClick
End Sub

お礼

回答ありがとうございます。
たしかに、ゆくゆくはＥｘｃｅｌにはりつけて利用しようと思っていたので、そちらで処理させようと思います。

参考になりました。