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
