设计模式与VB .net实现 适配器模式

这是看Design Patterns in C#同步的心得记录.里头记录了VB的实现代码,还有一些感性认识,另外,忽略一些C#的特性和不太相关的东西.
这本书买了有两年了,开始时看不懂.直到近来才有所体会.

第一部分 接口型模式

简介

接口型模式,通俗的说就是使用一种约定好的接口,来完成两个类之间的调用.先不管这中约定是为什么而来.
接口为什么而来的问题,将会对应产生不同的接口型模式.
接口和抽象类的区别,我认为最本质的是:接口是一种约定,而抽象类是一种真实的抽象,它是某一类东西的具体表现.而接口?则什么都不是,只是一种方面的描述.
抽象类是必将会产生一个真实的对象,而不管这个对象是在继承链的那一层.
接口仅仅只是一个方面的描述.
这样就能够明白,什么地方要使用接口,什么地方要使用抽象类.又为什么VB中一个类可以实现多个接口,而只能继承一个类.

适配器模式

我们有一个现成的类Supply用来记录供应商 ,另外一个开发者Perry也生成一类似于Supply的类叫:SuperSupply,它实现了某一个接口 CompanyInterface(记录相关往来公司信息的接口).功能和Supply差不多,但Perry不能让这个类的成员和Supply成员取一样的名称(觉得Supply中成员名称取的太次了,没一点儿水平.最重要的是,定义CompanyInterface 的人,完全没看到Supply,这人该被罚买王老吉一箱).于是,Perry决定适配 Supply类,因为Supply中的代码还过的去,能完成任务,不出错,

其实,适配就是将Supply包装一下,换个名称,用另一个成员名称调用其成员.就象给一辆两厢轿车装个吉普的外壳.当然,现实中这样的车很难有吉普的表现,但计算机却无所不能.请看:




Public Interface CompanyInterfaceInterface CompanyInterface




Function getRank()Function getRank() As Integer '返回相关公司的级别


'......




End Interface






Public Class SuperSupplyClass SuperSupply 'Perry编写的类,它实现了接口:CompanyInterface,能被客户调用


Implements CompanyInterface




Private mSupply As Supply '被适配的类,它提供了一些要求的具体实现




Sub New()Sub New()


mSupply = New Supply


End Sub






Public Function getRank1()Function getRank1() As Integer Implements CompanyInterface.getRank '将被客户调用的方法:getRank1


Dim mRank As Integer = -1


'........


mRank = mSupply.SupplyRank '实际上是间接调用了Supply中的方法:SupplyRank


'........


Return mRank


End Function


End Class






Public Class SupplyClass Supply '无名英雄,因为它没有实现接口CompanyInterface,不能被客户调用




Public Function SupplyRank()Function SupplyRank() As Integer


Dim mRank As Integer = -1


'.......


Return mRank


End Function


End Class

造成这种现象的原因通俗来比喻,就是:有了一辆两厢车,但越野赛只能让吉普车参加.没办法.这里头:
越野赛的规定是客户端的请求约定:必须要有四轮驱动,大排汽口什么的.(CompanyInterface)
吉普车的外壳就是一个适配器,用来适配这些要求和供应者(SuperSupply)
两厢车就是被适配的对象(Supply).
这样一来,这个车就能参加比赛了,因为他能跑,而且看上去和别的吉普车没什么区别.如果驾驶员Perry水平高的话,说不定跑的还快...

适配器模式,书中说了两种类型:类适配器,对象适配器.上面的事例代码是对象适配器,因为Supply类是作为一个对象,来提供被适配的成员.而类适配器是:




Public Interface CompanyInterfaceInterface CompanyInterface




Function getRank()Function getRank() As Integer '返回相关公司的级别


'......




End Interface






Public Class SuperSupplyClass SuperSupply 'Perry编写的类,它实现了接口:CompanyInterface,能被客户调用


Inherits Supply '从supply中派生出来,继承了Supply的所有特性


Implements CompanyInterface




'Private mSupply As Supply '被适配的类,它提供了一些要求的具体实现




Sub New()Sub New()


'mSupply = New Supply


End Sub






Public Function getRank1()Function getRank1() As Integer Implements CompanyInterface.getRank '将被客户调用的方法:getRank1


Dim mRank As Integer = -1


'........


'mRank = mSupply.SupplyRank '实际上是间接调用了Supply中的方法:SupplyRank


mRank = SupplyRank()


'........


Return mRank


End Function


End Class






Public Class SupplyClass Supply '无名英雄,因为它没有实现接口CompanyInterface,不能被客户调用




Public Function SupplyRank()Function SupplyRank() As Integer


Dim mRank As Integer = -1


'.......


Return mRank


End Function


End Class



和对象适配器不同的是,它直接从Supply中派生,不用有Supply的实例成员变量.他们各有各的不好之处:
类适配器在SupplySuper要从其他类中派生时,就不能使用了,因为单继承.
对象适配器,要有一个Supply的事例成员,可能有一些额外的工作如销毁,异常.

外观模式

待续...