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也提供了类似的功能。
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,说明继承的类可以使用自己的函数或属性