VBA类的继承多态实例
来源:互联网 发布:电影天堂软件数据为空 编辑:程序博客网 时间:2024/06/11 17:33
打开VB6新建一个工程
'====建立一个类模块,修改名称为:BaseClass
'(菜单:工程-添加类模块,修改右边属性中类名称)
'先建立基类
Public Info as string '这是类的一个属性
Public Sub baseSub() '继承特性
'写你任何对基类方法的定义
End Sub
Private Sub Class_Initialize()
'构造函数
End Sub
Private Sub Class_Terminate()
'析构函数
End Sub
'====建立第二个类模块,修改名称为:ImpClass
'建立BaseClass的派生类
Implements BaseClass
Private Sub BaseClass_BaseSub() '实现基类中BaseSub方法
MsgBox "Hello. This is Imp, inherited form Base Class."
End Sub
'====建立第二个类模块,修改名称为:ImpClass2
'建立BaseClass的派生类
Implements BaseClass
Private Sub BaseClass_BaseSub()
MsgBox "Hello. This is Imp2, inherited form Base Class"
End Sub
'=-=-= 在窗体上放一个Command1按扭,双击加入代码
Private Sub Command1_Click()
Dim xImp As New ImpClass '建立类的对象
Dim xImp2 As New ImpClass2
Dim xBase As BaseClass
Set xBase = xImp '多态特性
xBase.baseSub
Set xBase = xImp2
xBase.baseSub
'使用完后释放所定义的对像
Set xBase = Nothing
Set xImp = Nothing
Set xImp2 = Nothing
End Sub
'从上面代码可以看出VB是如何实现面向象的特性:继承、虚拟以及多态的。
'VB只是将很多细节上的东西隐藏起来了。一样可以派生系统类。
- VBA类的继承多态实例
- C++类的继承实例
- 继承ArrayAdapter类的实例
- PHP 对象继承和多态的实例
- 封装、继承和多态的具体实例
- java的继承和多态,以及实例
- Excel VBA真正的动态数组实例
- excel vba真正的动态数组实例
- VBA: 字典的介绍与实例
- 一个多继承的Python实例
- javascript 类的继承和实例化
- C#中类的继承实例
- c++ 类的继承 小实例
- 继承的经典实例
- 继承实例的实现
- Python笔记-类和实例、继承和多态
- 实例看继承与多态
- 实例讲解 继承封装多态(一)
- 虚拟项目学习git/github原理与基本操作9
- Hadoop分布式文件系统:架构和设计要点
- IIS6中.net ISAPI伪静态重写路径的配置方法
- module license 'unspecified' taints kernel.
- Linux下搭建JDK和TOMCAT环境
- VBA类的继承多态实例
- 大白话解析模拟退火算法
- 孙鑫C++视频教程rmvb格式全20CD完整版精品分享
- My97DatePicker简单使用
- The Android ION memory allocator(有删节)
- hdu 2433 Travel 最短路
- 获取系统进程快照 c语言实现
- 简单的客户端邮件发送系统(winform版)
- linux下怎么启动oracle数据库,命令是什么?