一个演示VBA类和继承例子

时　间:2009-10-19 00:42:46
作　者:朱亦文   ID：61  城市：岳阳
摘　要:如何在VBA中通过接口模拟实现类继承
正　文:

点击下载此附件

在VBA中通过接口模拟实现类继承的实例

 Sub test()
    Dim mCustomer As New CCustomer
    Dim mSender As New CPerson

    With mCustomer
        .CustomerNumber = Me.txtNumber
        .Company = Me.txtCompany
        .Name = Me.txtName
    End With


    With mSender
        .Company = "北风试验室"
        .Name = "海陆空"
    End With


    ' 采用同一接口的约定
    SendFollow mCustomer
    SendFollow mSender
End Sub
 
Function SendFollow(obj As CPerson) As Boolean
    SendFollow = obj.SendFollowUp
    Debug.Print "Obj: " & TypeName(obj)
End Function



注：CCustomer继承于CPerson