3つのクラス間の通信

Question

前提・実現したいこと

以下の様な階層構造の場合で、クラスAから子クラスの関数を呼びしたり、メンバ変数を取得する方法はありますでしょうか。

1. mainクラス
2. 親クラス(スーパークラス) , クラスA
3. 子クラス(COMポート通信)

試したこと

クラスAでRaiseEventを記述し、mainクラスから子クラスにアクセスしています。
変数の取得はアクセサを用いたり、RaiseEventの引数を参照渡しとして、直接取得をしています。
この手法だとmainにイベントを記述しないといけません。
また、子クラスでハンドル名を管理しているため同一のインスタンスを呼び出さなければいけません。

補足情報（FW/ツールのバージョンなど）

VBA6.5

Answer 1

子クラスのインスタンス生成時に、mainのインスタンスを渡すようにしましょう
それ経由で変数なり関数をアクセスできます

Comments

[numerical]

ありがとうございます。
なんとなくでしか理解できていません。
子クラスにmainのインスタンスを渡すと子クラスからmainを呼べるで合っていますか？
そこからするとクラスA生成時にmainインスタンスを渡すとクラスAからmainが呼べますが、子クラスも直接呼べるのでしょうか。

[y_waiwai]

クラスAから継承していて、読めるようになってるなら読めますね
まあ、あんまし相互からみんな見えるようにしてると、いろいろ都合が悪くなってくるので、
ふつうは共通のやり取り用のクラスを定義して、全クラスでそのインスタンスを持ってそれ経由でナンヤカヤしたりします

[numerical]

ありがとうございます。
これらはVBAで実現可能なのでしょうか。
最初の手法の具体的なコードを教えて頂けないでしょうか。
VBAはコンストラクタに引数は渡せないので、二度に渡って定義するようですが・・・。
後者の手法は静的なクラスを作るということでしょうか。

[y_waiwai]

new したあとに、メンバ変数にmainのインスタンスを代入すればいいです

> 後者の手法は静的なクラスを作るということでしょうか。

そうですね。
やり方次第でどちらでもできますが

[numerical]

ありがとうございました。
meを渡してるつもりが、letで受けててうまく行ってませんでした。動きました。