VB6中的面向对象编程---实现类继承--打印文章

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

作者：武汉SEO闵涛文章来源：敏韬网点击数1985 更新时间：2009/4/23 15:04:00 文章录入：mintao 责任编辑：mintao

Set objTest = Nothing

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

测试三:

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类生成器