ab.com コミュニティ

コード: 全て選択

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

コード: 全て選択

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 

コード: 全て選択

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