VB6中的面向对象编程---实现类继承

VB中Implements的作用  

  所需的   InterfaceName   或   Class   是类型库中的接口或类的名称，该类型库中的方法将用与   Visual   Basic   类中相一致的方法来实现。   
    
  说明   
    
  所谓接口就是代表接口封装的成员（方法以及属性）的原型集合；也就是说，它只包含成员过程的声明部分。一个类提供一个或多个接口的所有方法以及属性的一种实现方案。类的控制者每次调用函数时，该函数所执行的代码由类来提供。每个类至少应实现一个缺省接口。在   Visual   Basic   中，一个已实现的接口中任何没有显式声明的成员都是缺省接口的隐式成员。   
    
  当   Visual   Basic   类实现接口时，都会提供该接口的类型库中说明的所有   Public   过程的版本。除了提供接口原型与自编过程之间的映射关系之外，Implements   语句还使这个类接收对指定接口   ID   的   COM   QueryInterface   调用。   
    
  注意   Visual   Basic   不能实现派生出来的类或接口。   
    
  在实现接口或类时，必须包括所用到的   Public   过程。如果在实现接口或类时遗漏了成员，就会产生错误。如果正在实现的类中某个过程还没有代码，则可以产生一个适当的错误信息   (Const   E_NOTIMPL   =   &H80004001)，以便用户意识到该成员还没有实现。   
    
  Implements   语句不能在标准模块中使用。  

VB6中的面向对象编程---实现类继承

确切地说VB6不能实现真正意义上的类继承（如C++中的继承），但是通过其关键字Implements也提供了类似的功能。

Implements   [InterfaceName   |   Class]   
    
  所需的   InterfaceName   或   Class   是类型库中的接口或类的名称，该类型库中的方法将用与   Visual   Basic   类中相一致的方法来实现。   
    
  说明   
    
  所谓接口就是代表接口封装的成员（方法以及属性）的原型集合；也就是说，它只包含成员过程的声明部分。一个类提供一个或多个接口的所有方法以及属性的一种实现方案。类的控制者每次调用函数时，该函数所执行的代码由类来提供。每个类至少应实现一个缺省接口。在   Visual   Basic   中，一个已实现的接口中任何没有显式声明的成员都是缺省接口的隐式成员。   
    
  当   Visual   Basic   类实现接口时，都会提供该接口的类型库中说明的所有   Public   过程的版本。除了提供接口原型与自编过程之间的映射关系之外，Implements   语句还使这个类接收对指定接口   ID   的   COM   QueryInterface   调用。   
    
  注意   Visual   Basic   不能实现派生出来的类或接口。   
    
  在实现接口或类时，必须包括所用到的   Public   过程。如果在实现接口或类时遗漏了成员，就会产生错误。如果正在实现的类中某个过程还没有代码，则可以产生一个适当的错误信息   (Const   E_NOTIMPL   =   &H80004001)，以便用户意识到该成员还没有实现。   
    
  Implements   语句不能在标准模块中使用。  

VB6中的面向对象编程---实现类继承

确切地说VB6不能实现真正意义上的类继承（如C++中的继承），但是通过其关键字Implements也提供了类似的功能。

我们先建一个类模块CBase.cls

代码如下：

 

CODE:

Private mvarBaseProperty As String

Public Sub BaseFunction()

    MsgBox “Hello world!”

End Sub

Public Property Let BaseProperty(ByVal VData As String)

    mvarBaseProperty = VData

End Property

Public Property Get BaseProperty() As String

    BaseProperty = mvarBaseProperty

End Property

接下来我们新建一类模块(Cinherit.cls),代码如下,其间有关键的注释

CODE:

Implements CBase            '注意此关键字

Dim m_BaseProperty As String

'---------------------------------------------------------------------

'虚线间的代码即是从CBase类继承的.

'注意其格式如下：基类_属性名(或方法名)

'其方法的声明关键字public也变为了private

Private Property Get CBase_BaseProperty() As String

    BaseProperty = m_BaseProperty

End Property

Private Property Let CBase_BaseProperty(ByVal VData As String)

    m_BaseProperty = VData

End Property

Private Sub CBase_BaseFunction()

    MsgBox "Inherit"

End Sub

'---------------------------------------------------------------------

'此方法是继承类自己的方法

Public Sub InheritMsg()

    MsgBox "my owner msg"

End Sub

现在我们新建一窗体来做测试,我们把测试代码放在Form_Load事件中

测试一:

CODE:

    Dim objTest As CBase

    Set objTest = New CBase

    With objTest

        .BaseFunction

    End With

    Set objTest = Nothing

运行程序,弹出base,说明是调用Cbse中的BaseFunction函数

测试二:

CODE:

    Dim objTest As CBase

    Set objTest = New CInherit

    With objTest

        .BaseFunction

    End With

    Set objTest = Nothing

       运行程序,弹出Inherit,说明是调用Cinherit中的Base函数

测试三:

CODE:

    Dim objTest As CInherit

    Set objTest = New CInherit

    With objTest

        .InheritMsg

    End With

    Set objTest = Nothing

运行程序,弹出my owner function,说明继承的类可以使用自己的函数或属性.

如果您觉得自己写Cinherit类比较麻烦,您可以用vs6自带的工具Microsoft visual modeler来创建.Cbase类可以通过类生成器生成,其位置在 工程->添加类模块 ->vb类生成器