Excel VBA インターフェースを使う

Base.cls

Option Explicit

Public Function getName() As String
    getName = "base class"
End Function

Deliv.cls

Option Explicit
Implements Base

Private Function Base_getName() As String
    Base_getName = "derived class"
End Function

呼出

Dim b As Base
Set b = New Deliv
Debug.Print b.getName

結果

derived class

指定されたパートは存在しません。

YAGI Hiroto (piroto@a-net.email.ne.jp)
twitter http://twitter.com/pppiroto