设计模式利剑13-适配器模式

定      义：将一个类的接口变换成客户端所期待的另一种接口，从而使原本因接口不匹配而无法在一起共走的两个类能够在一起工作

优      点：

            1、适配器模式可以让连个没有任何关系的类在一起运行，只要适配器这个角色能够搞定他们就成

            2、增加了类的透明性

            3、提高了类的复用度

            4、灵活非常好用

使用场景：新需求中提出的改进，原设计模式无法满足，可通过适配器模式来加以解决

使用案例：

              先来看看通用类图吧：

               首先来看看一个案例，获得连个不同系统的用户信息

              

Public Interface IUserInfoFunction getName() As StringFunction getTel() As StringFunction getAddress() As StringEnd Interface ' IUserInfoPublic Class UserInfoImplements IUserInfo Private _name As String Private _tel As String Private _address As String Public Sub New(ByVal name As String, ByVal tel As String, ByVal address As String) _name = name _tel = tel _address = address End Sub Public Function getName() As String Implements IUserInfo.getName Return _name End FunctionPublic Function getTel() As String Implements IUserInfo.getTel Return _telEnd FunctionPublic Function getAddress() As String Implements IUserInfo.getAddress Return _addressEnd FunctionEnd Class ' UserInfoPublic MustInherit Class IOutUser Public MustOverride Function name() As String Public MustOverride Function phone() As String Public MustOverride Function address() As StringEnd Class ' IOutUserPublic Class OutUserInherits IOutUser Private _name As String Private _phone As String Private _address As String Public Sub New(ByVal __name As String, ByVal __phone As String, ByVal __address As String) _name = __name _phone = __phone _address = __address End SubPublic Overrides Function name() As String Return _nameEnd FunctionPublic Overrides Function phone() As String Return _phoneEnd FunctionPublic Overrides Function address() As String Return _addressEnd FunctionEnd Class ' OutUserPublic Class OutUserInfoInherits OutUserImplements IUserInfo Public Sub New(ByVal name As String, ByVal phone As String, ByVal address As String) MyBase.New(name, phone, address) End SubPublic Function getName() As String Implements IUserInfo.getName Return name()End Function Public Function getAddress() As String Implements IUserInfo.getAddress Return address() End FunctionPublic Function getTel() As String Implements IUserInfo.getTel Return phone()End Function Public Overrides Function name() As String Return "外借人员：" & MyBase.name() End Function Public Overrides Function phone() As String Return MyBase.phone End FunctionPublic Overrides Function address() As String Return MyBase.addressEnd FunctionEnd Class ' OutUserInfoModule Client Sub Main() Dim _arraylist As ArrayList = New ArrayList Dim _IuserInfo As IUserInfo _IuserInfo = New UserInfo("张三", "101010", "深圳市") _arraylist.Add(_IuserInfo) _IuserInfo = New UserInfo("李四", "122212", "深圳市") _arraylist.Add(_IuserInfo) _IuserInfo = New UserInfo("小五", "222222", "深圳市") _arraylist.Add(_IuserInfo) _IuserInfo = New OutUserInfo("六字", "222222", "深圳市") _arraylist.Add(_IuserInfo) For i As Integer = 0 To _arraylist.Count - 1 Console.WriteLine(CType(_arraylist.Item(i), IUserInfo).getName & " " & CType(_arraylist.Item(i), IUserInfo).getTel & " " & CType(_arraylist.Item(i), IUserInfo).getAddress) Next Console.Read() End SubEnd Module