琢磨一下以下代码,对你可能会有帮助! 建三个类模块 模块1:Base Public Sub BaseSub() '虚拟特性,BaseSub在子类中实现 End Sub 模块2:impclass1 Implements base Private Sub base_BaseSub() '实现基类中的BaseSub方法 MsgBox "Hello. This is Imp. inherited from BaseClass" End Sub 模块3:impclass12 Implements base Private Sub base_BaseSub() '实现基类中的BaseSub方法 MsgBox "Hello. This is Imp2. inherited from BaseClass" End Sub 然后在其他地方调用如下语句试试: Dim xImp As New impclass1 Dim xIMp2 As New impclass2 Dim xBase As base Set xBase = xImp '多态特性 xBase.BaseSub Set xBase = xIMp2 xBase.BaseSub Set xBase = Nothing Set xImp = Nothing Set xIMp2 = Nothing结果会给你答案的!呵呵
VB.NET 继承一直以来对Visual Basic特性的要求中呼声最高的就是对继承的支持。在Internet时代的开发要求快速地组装和大量的重用。Visual Basic现在完全实现继承,包括可视化窗体的继承。开发人员可以使用新的关键字Inherits从一个已存在的类中派生。Class1Function GetCustomer()...End FunctionClass2Inherits Class1Function GetOrders()...End Function继承语句支持所有与继承相关的性质。派生类的实例支持所有基类所支持的方法和接口。当然,派生类可以扩展基类所支持的方法和接口的集合。派生类可以使用Overrides关键字来替代基类中定义的方法。为减少编程错误,Visual Basic会防止意外的替代一个函数。只有声明为“可替代”的函数被允许在派生类中被替代。重载Visual Basic现在允许函数重载,这使开发人员具有建立一个拥有相同名称,但参数类型不同的过程或函数的能力。当对象模型中规定了要使用名称相近但操作于不同类型的数据之上的过程时,继承尤其有用。例如:一个可能表现为几种不同数据类型的类可以有这样一个Display过程:Overloads Sub Display (theChar As Char)...Overloads Sub Display (theInteger As Integer)...Overloads Sub Display (theDouble As Double)如果没有继承,你就需要为每个过程使用不同的名称或使用Variant参数。重载提供了一种更为清晰、更为有效的方法来处理多种数据类型。
建三个类模块
模块1:Base
Public Sub BaseSub() '虚拟特性,BaseSub在子类中实现 End Sub
模块2:impclass1
Implements base
Private Sub base_BaseSub() '实现基类中的BaseSub方法
MsgBox "Hello. This is Imp. inherited from BaseClass"
End Sub
模块3:impclass12
Implements base
Private Sub base_BaseSub() '实现基类中的BaseSub方法
MsgBox "Hello. This is Imp2. inherited from BaseClass"
End Sub
然后在其他地方调用如下语句试试:
Dim xImp As New impclass1
Dim xIMp2 As New impclass2
Dim xBase As base Set xBase = xImp '多态特性
xBase.BaseSub
Set xBase = xIMp2
xBase.BaseSub
Set xBase = Nothing
Set xImp = Nothing
Set xIMp2 = Nothing结果会给你答案的!呵呵
继承一直以来对Visual Basic特性的要求中呼声最高的就是对继承的支持。在Internet时代的开发要求快速地组装和大量的重用。Visual Basic现在完全实现继承,包括可视化窗体的继承。开发人员可以使用新的关键字Inherits从一个已存在的类中派生。Class1Function GetCustomer()...End FunctionClass2Inherits Class1Function GetOrders()...End Function继承语句支持所有与继承相关的性质。派生类的实例支持所有基类所支持的方法和接口。当然,派生类可以扩展基类所支持的方法和接口的集合。派生类可以使用Overrides关键字来替代基类中定义的方法。为减少编程错误,Visual Basic会防止意外的替代一个函数。只有声明为“可替代”的函数被允许在派生类中被替代。重载Visual Basic现在允许函数重载,这使开发人员具有建立一个拥有相同名称,但参数类型不同的过程或函数的能力。当对象模型中规定了要使用名称相近但操作于不同类型的数据之上的过程时,继承尤其有用。例如:一个可能表现为几种不同数据类型的类可以有这样一个Display过程:Overloads Sub Display (theChar As Char)...Overloads Sub Display (theInteger As Integer)...Overloads Sub Display (theDouble As Double)如果没有继承,你就需要为每个过程使用不同的名称或使用Variant参数。重载提供了一种更为清晰、更为有效的方法来处理多种数据类型。