一个演示VBA类和继承例子-朱亦文
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


一个演示VBA类和继承例子

发表时间:2009/10/19 0:42:46 评论(1) 浏览(15365)  评论 | 加入收藏 | 复制
   
摘 要:如何在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

Access软件网交流QQ群(群号:198465573)
 
 相关文章
VBA类库对象操作(实例演示)  【江羽  2010/3/3】
VBA类模块完全教程(上篇)   【周芳(转)  2013/2/5】
VBA类模块完全教程(中篇)   【周芳(转)  2013/2/11】
VBA类模块完全教程(下篇)   【周芳(转)  2013/2/19】
VBA类模块完全教程(完结篇)  【周芳(转)  2013/2/26】
常见问答
技术分类
相关资源
文章搜索
关于作者

朱亦文

文章分类

文章存档

友情链接