点击下载此附件

在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

(责任编辑：admin)

• ·解决没有保存属性在关闭窗体时
• ·Access加快窗体显示【技巧】
• ·access vba代码太长，换行的方法解释
• ·Access2010错误＂该表是“一对多”关系
• ·vba设置子窗体字体格式的方法
• ·Access如何提高程序的显示速度
• ·两种计价方式集成实例
• ·[源码]用代码添加和删除主键
• ·[示例]到期天数计算
• ·一个简单的透视图实例
• ·Access不编程生成菜单，自定义菜单如何
• ·让命令按钮全变为不可用
• ·VBA编程自动导出生成Excel表
• ·如何统计某一行某几个字段的个数？
• ·如何替换Access启动时的背景图片
• ·如何禁止Access自动保存