抽象类实现:VB实现抽象类-vb教程疯狂代码！

抽象类实现:VB实现抽象类-vb教程

现抽象类

玩VB已经有1个星期左右了.觉得VB也是可以用OO

方式来开发应用

VB支持Com

并且提供类模块实现了封装.同时也提供了接口

支持.通过Implements就可以实现接口.

因此也就实现了继承.如果通过组合就可以达到继承

效果.当然者应该算做Adapter模式

了.当然可以通过VB实现大多数面向对象

设计模式.并且也可以通过UML进行建模.

VB支持引用传递消息.同时大多数OO特性也可以模拟实现.这里我介绍

种抽象类

实现

其实只是

个引例.思路方法很简单.就是通过接口定制契约.通过Com不可创建对象实现抽象类

不可创建性.通过Adapter模式模拟继承实现.

例子如下:

´接口部分
Public Function AbstructFun

As String

End Function

´不可创建对象(用来实现抽象思路方法)把Instancing设置为 publicNoCreatable

Implements ImyInterFace

Public Function ImyInterFace_AbstructFun

As String
ImyInterFace_AbstructFun = \"我起床\"
End Function

´实现部分

Implements ImyInterFace

Public Function ImyInterFace_AbstructFun

As String
Dim ac As New AbstructClass
ImyInterFace_AbstructFun = ac.ImyInterFace_AbstructFun & \"我吃早饭\"
End Function

抽象类实现:VB实现抽象类-vb教程