VB6 怎么实现多重接口继承

VB6 如何实现多重接口继承
直接来代码

VB code

'类C1public sub C()end Sub'类C2Implements C1public sub C1_C()end Sub'C3Implements C2'C3要如何实现C2和C1中的接口？

VB code

'---------------------------------------------------' Module    : Class1' Author    : Anna' Date      : 2009-9-20' Purpose   : Abstract class'---------------------------------------------------Option ExplicitPublic Sub M1()End Sub
[解决办法]
探讨

但是Class3就不能继承Class2里的实现了。

打个比方说，Class1是动物类，有个方法叫做吃（M1）；Class2是哺乳动物类，Class2继承吃的方法（Class1_M1），加入自己的实现“弄死了再吃”；Class3是人，它要继承吃的方法，比较省力的办法是继承Class2的“弄死了再吃”的步骤，自己再加一个语句叫“烧熟了再吃”就可以了。

可是，在VB中并不支持这样的爷孙继承。

Class3如果直接继承Class2的话，它就不能继承Class2吃的方法。因为在Class2里，它继承的Class1的吃的方法是私有的（Private Sub Class1_M1）。所以，它只能直接继承Class1的M1方法，并且只好重复写上“弄死再吃”、然后加上“烧熟再吃”。

[解决办法]
Implements与聚合配合是可以实现继承功能的.

class1代码:
VB code
Option ExplicitPublic Sub M1()    Debug.Print "吃"End Sub
[解决办法]
又完善了一下:

Class1代码:
VB code
Option ExplicitPublic Sub M1()    Debug.Print "吃"End Sub
[解决办法]
Implements 语句
指定要在包含该语句的类模块中实现的接口或类。
语法
Implements [InterfaceName | Class]
所需的 InterfaceName 或 Class 是类型库中的接口或类的名称，该类型库中的方法将用与 Visual Basic 类中相一致的方法来实现。
说明
所谓接口就是代表接口封装的成员（方法以及属性）的原型集合；也就是说，它只包含成员过程的声明部分。一个类提供一个或多个接口的所有方法以及属性的一种实现方案。类的控制者每次调用函数时，该函数所执行的代码由类来提供。每个类至少应实现一个缺省接口。在 Visual Basic 中，一个已实现的接口中任何没有显式声明的成员都是缺省接口的隐式成员。
当 Visual Basic 类实现接口时，都会提供该接口的类型库中说明的所有 Public 过程的版本。除了提供接口原型与自编过程之间的映射关系之外，Implements 语句还使这个类接收对指定接口 ID 的 COM QueryInterface 调用。

注意 Visual Basic 不能实现派生出来的类或接口。

在实现接口或类时，必须包括所用到的 Public 过程。如果在实现接口或类时遗漏了成员，就会产生错误。如果正在实现的类中某个过程还没有代码，则可以产生一个适当的错误信息 (Const E_NOTIMPL = &H80004001)，以便用户意识到该成员还没有实现。