012Visual Basic适配器模式

 

1.Target（这是客户所期待的接口。目标可以是具体的或抽象的类，也可以是接口）

'这是客户所期待的接口。目标可以是具体的或抽象的类，也可以是接口
Public Class Target
    Public Overridable Sub Request()
        Console.WriteLine("普通请求")
    End Sub
End Class

2.Adaptee（需要适配的类）

'需要适配的类
Public Class Adaptee
    Public Sub SpecificRequest()
        Console.WriteLine("特殊请求")
    End Sub
End Class

 3.  Adapter（通过在内部包装一个Adaptee对象，把源接口转换成目标接口）

'适配器，通过在内部包装一个Adaptee对象，把源接口转换成目标接口
Public Class Adapter
    Inherits Target
    Private myAdaptee As New Adaptee
    Public Overrides Sub Request()
        myAdaptee.SpecificRequest()
    End Sub

End Class

4.客户端
 

Module Module1

    Sub Main()
        Dim myTarget As Target = New Adapter
        myTarget.Request()

        Console.Read()

    End Sub

End Module