说到继承这里首先说下类成员访问的方式，有三种，public，private， friend

Public是完全公开的，外部可以随时进行修改，这个不是很安全，所以类里使用公有变量安全性差，若改为私有的，是找不到数据成员的；private是只有本模块可以访问的；而Friend介于是private和public之间,本类和工程都可访问，但其他的工程不可以访问。

所以这里介绍一种比public安全的方式 定义 :属性过程

属性过程（两种情况，写入，读取）

读属性过程的格式如下

Public (static) property get name(arglist) as type(读属性）

Statement

Name=expression

Exit property

Statements

Name=expression （属性名）

End property

写属性过程有两种方式 let 与set

写对象属性set ；数值属性，字符串，整数，浮点用let

Public (static) propertyLet name(arglist) as type(读属性）

Statement

Name=expression

Exit property

Statements

Name=expression （属性名）

End property

注意：属性过程名是真正的属性名，变量是中间存错的媒介，将一个属性设置为一个对象的时候用property set。

以上是背景交代。

下面步入话题。

一个程序是由多个类，多个程序实现的，而类中有继承和多态，vb又是基于多态的，下面说下

继承的实现

方法：1 继承与类的展开（flatten）flatten方法是将基类的都拿到派生类中，即将代码复制到本类中

2 对象做为成员

展开说明 Flatten方法事都放在另一个类中，为派生类(方法简单，但要求是源代码是必须有的，然而很多情况是不具有源代码，这样就需要对象成员)

用对象作为成员 首先对象要实例化初始化，实例化方法说明如下

Private sub class_initialize（）

Set name=new classname

End sub

对象结束时要释放

Private sub class_terminate()

Set name=nothing

End sub

期间可以添加自己的属性过程，如读属性，写属性，方式如开始介绍的。

多态的实现

Vb中的多态是不同的对象，接受相同的消息，产生不同的结果如同样都是水果他们的保存方式几乎是不一样的。同样都是保存，结果是不同的方式。

Vb中使用接口和实现构成多态

接口和实现是不一样的

接口只是描述什么功能，不关心怎样实现

实现，是具体的变现完成某些功能

多态的实现有三部分构成分别是

定义接口类

定义实现类

给接口添加属性

首先定义接口类（在类模块中定义）

Public Sub save() '定义了（保存）接口类

End Sub

Implements '实现接口类型定义（实现类）是必须有的

这里还可以增加其他的方法

如开始说道的类的属性过程定义

可以定义读属性，写属性，只读，只写属性

Public Property Let color(clr As Long) ' 定义了写的颜色属性

End Property