点击下载此附件

在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