会员登录 - 用户注册 - 网站地图 Office中国(office-cn.net),专业Office论坛
当前位置:主页 > 技巧 > Access技巧 > 编程心得绝招 > 实际编程 > 正文

一个演示VBA类和继承例子

时间:2009-10-21 08:30 来源:网络 作者:朱亦文 阅读:
正 文:

点击下载此附件

 

在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

(责任编辑:admin)

顶一下
(0)
0%
踩一下
(0)
0%
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价: