クラスを何重にも作るには

質問

topLvClass.lv2Class.lv3Class.myFunction()
のようにクラスを何重にも作りたいのですが、どのようにすればよいのでしょうか。

初歩的な質問かと思いますが、よろしくお願いします。

回答No.1

redfox63 · ベストアンサー

VBのバージョンは何でしょう？ 6.0でしょうか ...
6.0だと
topClassに lv2Classのオブジェクト変数を用意
同じく lv2Classに lv3Classのオブジェクト変数を用意して
# オブジェクト変数をPublic型で用意するか プロパティで用意するかはご判断ください

dim objTop as New topClass
dim a
set objTop.objLv2 = new lv2Class
Set objTop.objLv2.objLv3 = new lv3Class
a = objTop.objLv2.objLv3.myFunc()

といった具合でしょう

.NET系でしたら Inheritsステートメントを使ってください
継承クラスの先頭で その継承元を指示します
lv2Calssでしたら Inherits topClass
lv3Calssでしたら Inherits lv2Class
といった具合でしょう ...

お礼

遅れて申し訳ありません。VB 6 でした。
おかげさまでうまくいきました。ありがとうございます。