コード: 全て選択
Class ObjA
Inherits BaseObjA
Public
Function Hoge() As Long
'追加メンバの定義。ObjAもObjBも同じ物。
Hoge = TRUE
EndFunction
End Class
Class ObjB
Inherits BaseObjB
Public
Function Hoge() As Long
'追加メンバの定義。ObjAもObjBも同じ物。
Hoge = TRUE
EndFunction
End Classコード: 全て選択
'上のコードとは、淡幻星さんが投稿されたコードです。
Class BaseObj
Public
Function Hoge() As Long
'上のコードでいう追加メンバをスーパークラスに
Hoge = TRUE
EndFunction
End Class
Class ObjA
Inherits BaseObj
Public
'上のコードでいうBaseObjAのメンバ定義
End Class
Class ObjB
Inherits BaseObj
Public
'上のコードでいうBaseObjBのメンバ定義
End Classコード: 全て選択
'共通メソッド用のクラス
Class Obj
Public
Function Hoge() As Long
'追加メンバの定義。ObjAもObjBも同じ物。
Hoge = TRUE
End Function
End Class
Class ObjA
Inherits BaseObjA
Public
Function Hoge() As Long
Dim o As Obj 'インスタンス作成
Hoge = o.Hoge() 'メソッド呼び出し
End Function
End Class
Class ObjB
Inherits BaseObjB
Public
Function Hoge() As Long
Dim o As Obj 'インスタンス作成
Hoge = o.Hoge() 'メソッド呼び出し
End Function
End Classコード: 全て選択
Class ProtoObj
Function Hoge() As Long
Hoge = TRUE
End Function
End Class
Class BaseObjA
Inherits ProtoObj
Public
' BaseObjAのメソッドを定義
End Class
Class BaseObjB
Inherits ProtoObj
Public
' BaseObjBのメソッドを定義
End Class
Class ObjA
Inherits BaseObjA
End Class
Class ObjB
Inherits BaseObjB
End Classコード: 全て選択
Class Hoge
Function Hoge() As Long
Hoge = TRUE
End Function
End Class
Class ObjA
Inherits BaseObjA
Public
Function Hoge() As Long
Dim h As Hoge
Hoge=h.Hoge()
End Function
End Class
Class ObjB
Inherits BaseObjB
Public
Function Hoge() As Long
Dim h As Hoge
Hoge=h.Hoge()
End Function
End Classサブクラスの追加メソッド内部で、OverTakerさん さんが書きました:> それって、スーパークラスとサブクラスを逆にしてはまずいでしょうか？
コード: 全て選択
Class BaseObjA
Public
Function Method1() As Long
Method1 = TRUE
EndFunction
End Class
Class BaseObjB
Inherits BaseObjA
Public
Function Method2() As Long
Method2 = FALSE
EndFunction
End Class
'-------------------------------------
Class ObjA
Inherits BaseObjA
Public
Function Hoge1() As Long
'追加メンバの定義。ObjAもObjBも同じ物。
Hoge1 = Method1() 'スーパークラスのメソッドを参照
EndFunction
End Class
Class ObjB
Inherits BaseObjB
Public
Sub ObjB()
'コンスタラクタだけは継承クラスにあわせて変更される。
Dim r As Long
r = Method2()
EndSub
Function Hoge1() As Long
'追加メンバの定義。ObjAもObjBも同じ物。
Hoge1 = Method1() 'スーパークラスのメソッドを参照
EndFunction
End Class コード: 全て選択
Class BaseObjA
Function Method1() As Long
End Class
Class BaseObjB
virtual Inherits BaseObjA
Public
Function Method2() As Long
End Class
'-------------------------------------
Class ObjA
Inherits BaseObjA
Public
Function Method1() As Long '追加メソッドはここにのみ記述
End Class
Class ObjB
Inherits BaseObjB
Inherits ObjA
Public
Sub ObjB()
'こちらのクラスでは継承とコンスタラクタの対応のみを行う。
End Class なるほど。Tomorrowさん さんが書きました:> 共有したいメソッドを別のクラスに宣言して、使う側のクラスでインスタンスを作って呼び出すというのはどうでしょう。
↓のようにObjBのフィールドにObjAのインスタンスを持たせて（コンポジション）、ObjAのメソッドを呼び出すようにしてはどうでしょう？> サブクラスの追加メソッド内部で、
> スーパークラスのメソッドを利用しているので、難しいです･･･。
> （蛇足ですが。メソッドとメンバとをまた間違えてました、私＾＾；）
>
> 情報が足りなかったですね。すいません。
> 以下のようなメソッドの参照関係にある継承になります。
コード: 全て選択
Class BaseObjA
Public
Function Method1() As Long
Method1 = TRUE
EndFunction
End Class
Class BaseObjB
Inherits BaseObjA
Public
Function Method2() As Long
Method2 = FALSE
EndFunction
End Class
'-------------------------------------
Class ObjA
Inherits BaseObjA
Public
Function Hoge1() As Long
'追加メンバの定義。ObjAもObjBも同じ物。
Hoge1 = Method1() 'スーパークラスのメソッドを参照
EndFunction
End Class
Class ObjB
Inherits BaseObjB
Private
objA As ObjA
Public
Sub ObjB()
'コンスタラクタだけは継承クラスにあわせて変更される。
Dim r As Long
r = Method2()
EndSub
Function Hoge1() As Long
Hoge1 = objA.Method1() 'ObjAのメソッドを参照
EndFunction
End Classとも書かれています。具体的にはクラスの中に，別クラスのメンバ変数を必要なだけ「所有」し，それで多重継承の代用が可能だということです。
インターフェイスの使い方についてAB風に（といってもまだサポートされてないですが）記述してみると、こんな感じになります。> インターフェースはよく分かりません／汗）
コード: 全て選択
'インターフェイスの宣言（引数と戻り値の型、およびメソッド名の定義）
Interface ObjInterface
Function Hoge() As Long
End Interface
'インターフェイスを実装するクラス
Class ObjA
Inherits BaseObjA 'こちらは通常の継承
Implements ObjInterface 'インターフェイスの実装を宣言（継承に相当）
Public
Function Hoge() As Long 'インターフェイス・メソッドの実装
Hoge = TRUE
End Function
End Class
'クラスを利用する側
'(1)スーパークラスであるObjInterfaceインターフェイスのポインタ型変数pに
'(2)サブクラスであるObjAのインスタンスへの参照を代入できる。
'(3)メソッド呼び出し時においては(2)のNew演算子で指定したクラスのメソッドが呼ばれる。
'例えばObjInterfaceインターフェイスを実装したObjBがあって、それをNewしてpに代入すればObjBに実装したメソッドが呼ばれる。
'つまりpが指し示すインスタンスによって呼び出すべきメソッドが決まる。これがポリモフィズム。
'(4)最後にきちんとインスタンスを削除する。（実はこれが面倒）
Sub Main()
Dim p As *ObjInterface 'インターフェイスポインタ(1)
p = New ObjA 'インスタンス作成(2)
Hoge1 = p->Hoge1() 'メソッド呼び出し(3)
Delete p 'インスタンス削除(4)
End Sub機能A,Bを持っているクラスに機能Cを追加したクラスと、> なぜこのような継承ツリーにしているのか、その意図が理解できていませんので、
ですか。どうもですｗ> なのでメソッドもメンバの一種だと思っています。
ありがとうございます。> インターフェイスの使い方についてAB風に（といってもまだサポートされてないですが）記述してみると、こんな感じになります。
機能と実装を分けるBridgeパターンに解決策のヒントがありそうです。> 機能A,Bを持っているクラスに機能Cを追加したクラスと、
> 機能Aのみを持っているクラスに機能Cを追加したクラス、
> というようように、機能を全て持ったクラスと、機能を限ったクラスというように、
> 作り分けたいのです。大に小を兼ねさせたくないというか。
うーん…。利用側が使いやすいように、というのがオブジェクト指向の思想のようです。（と思っています）> もっとも、これはコード作成側の希望であって、
> 利用側にとっては大が小を兼ねていれば十分という気はします。
インスタンスを生成することではなく、「フィールドにインスタンスを持つ」ことがコンポジションであると理解してます。> う～む。見ていると、継承よりもインスタンスを生成する方が
> （この手法をコンポジションって呼ぶのですか？）好まれているみたいですね。
インターフェイスは継承元の中身がないだけでオーバーライドと変わりない仕組みですよね。> インターフェースの内容は分かりましたが･･･便利さがイマイチ実感できません＾＾；
> オーバーライドと同類っぽい？
> まぁ、そこは使っていく中で覚えるものだと思いますけど。
そうですね。> 機能と実装を分けるBridgeパターンに解決策のヒントがありそうです。
オーバーライドの便利さは、> 違いはインターフェイスを継承してオーバーライドすることは中身のないメソッドの処理の中身を作ることというわけで「実装」と呼ぶ程度のものです。