implements [界面名称|类]
所需的InterfaceName或Class是与Visual一起使用的类型库中的接口或类的名称
用Basic类一致的方法实现。
说明
接口是表示接口封装的成员(方法和属性)原型的集合。 这意味着只包含成员进程的声明部分。 类提供了一个或多个接口的所有方法和属性的实现方案。 每当类的控制者调用函数时,该函数执行的代码都由类提供。 每个类必须至少实现一个缺省接口。 在
在Visual Basic中,实现的接口中未明确声明的成员是缺省接口的隐式成员。
到了Visual
当Basic类实现接口时,它将提供在接口的类型库中说明的所有公共
进程的版本。 Implements语句不仅提供接口原型与自制进程之间的映射关系,还使类接收到指向给定接口ID的COM
查询界面调用。
请注意,Visual Basic无法实现派生的类或接口。
实现接口或类时,必须包括要使用的公共
过程。 如果在实现接口或类时缺少成员,则会发生错误。 如果正在实现的类的过程中还没有代码,则可以生成相应的错误消息(Const E_NOTIMPL )
=H80004001 ) )允许用户识别成员还没有实现。
输入
语句不能在标准模块中使用。
VB6中面向对象的编程- -类继承的实现
确切地说,VB6不可能实现真正意义上的类继承,如c继承,但关键字Implements也提供了类似的功能。
implements [界面名称|类]
所需的InterfaceName或Class是与Visual一起使用的类型库中的接口或类的名称
用Basic类一致的方法实现。
说明
接口是表示接口封装的成员(方法和属性)原型的集合。 这意味着只包含成员进程的声明部分。 类提供了一个或多个接口的所有方法和属性的实现方案。 每当类的控制者调用函数时,该函数执行的代码都由类提供。 每个类必须至少实现一个缺省接口。 在
在Visual Basic中,实现的接口中未明确声明的成员是缺省接口的隐式成员。
到了Visual
当Basic类实现接口时,它将提供在接口的类型库中说明的所有公共
进程的版本。 Implements语句不仅提供接口原型与自制进程之间的映射关系,还使类接收到指向给定接口ID的COM
查询界面调用。
请注意,Visual Basic无法实现派生的类或接口。
实现接口或类时,必须包括要使用的公共
过程。 如果在实现接口或类时缺少成员,则会发生错误。 如果正在实现的类的过程中还没有代码,则可以生成相应的错误消息(Const E_NOTIMPL )
=H80004001 ) )允许用户识别成员还没有实现。
输入
语句不能在标准模块中使用。
VB6中面向对象的编程- -类继承的实现
确切地说,VB6不可能实现真正意义上的类继承,如c继承,但关键字Implements也提供了类似的功能。
首先创建类模块CBase.cls
代码如下。
代码:
权限管理系统
公共子基础函数(
msgbox“hello世界! ”
结束子
公共属性数据库(byvalvdataas
斯汀)
mvarBaseProperty=VData
结束属性
公共属性获取基础属性() As String
BaseProperty=mvarBaseProperty
结束属性
然后,创建代码与以下代码类似的模块“Cinherit.cls”: 这里有重要的评论
代码:
Implements CBase '注意此关键字
Dim m_BaseProperty As String
请参见----------------------------------------- -
'虚线之间的代码从CBase类继承。
'请注意基类_属性名称(或方法名称)的格式
'该方法的声明关键字public也变为private
privatepropertygetcbase _ base property () as
斯汀
BaseProperty=m_BaseProperty
结束属性
privatepropertyletcbase _ base property (byval vdata
As String )
m_BaseProperty=VData
结束属性
Private Sub CBase_BaseFunction (
MsgBox 'Inherit '
结束子
请参见----------------------------------------- -
'这个方法是继承类本身的方法
公共子输入msg () )。
MsgBox 'my owner msg '
结束子
现在,制作新的表格进行测试。 将测试代码放入Form_Load事件中
测试:
代码:
Dim objTest As CBase
Set objTest=New CBase
带对象
. BaseFunction
结束于
Set objTest=Nothing
表示运行该程序,弹出base,并调用Cbse的BaseFunction函数
测试:
代码:
Dim objTest As CBase
Set objTest=New CInherit
带对象
. BaseFunction
结束于
Set objTest=Nothing
表示运行该程序,弹出Inherit,并调用Cinherit的Base函数
测试:
代码:
Dim objTest As CInherit
Set objTest=New CInherit
带对象
. InheritMsg
结束于
Set objTest=Nothing
运行程序并弹出my owner function,指示继承的类可以使用自己的函数或属性