从我出门来看装饰模式+vb.net实现

说有天有人来找，要出去。倒持了半天。完毕，然后出门。

开始还得先看图：

这个的具体实现可以自己试验一下。

后来又去参加一个什么晚会，要求戴墨镜（带上之后发现天真黑。）上面的那个图显然不能用了，再改吧，把抽象的person类改了？no no no。开闭原则不允许我这么做。

为了能够刷一把帅，只有这样了，看图：

这样就好了。又不用违法，又为以后再添加别的装饰物开辟了空间。哈哈，很好呀。

那么好了，开始具体行动吧：

Module Module1 Sub Main() Dim hu As Person hu = New huyang hu.DressCoat() hu.Dre<a href="https://www.jb51.cc/tag/sst/" target="_blank" class="keywords">sst</a>rouser() hu.DressShoes() '开始装饰 Console.WriteLine("。。。开始装饰。。。。") '定义装饰的对象，以及被装饰的人 Dim dc As New DecoratorCool(hu) dc.DressCoat() dc.Dre<a href="https://www.jb51.cc/tag/sst/" target="_blank" class="keywords">sst</a>rouser() dc.DressShoes() dc.DressCoolly() Console.ReadKey() End Sub End Module '抽象人的基类 Public MustInherit Class Person '穿上外套 MustOverride Sub DressCoat() '穿上裤子 MustOverride Sub Dre<a href="https://www.jb51.cc/tag/sst/" target="_blank" class="keywords">sst</a>rouser() '穿上鞋 MustOverride Sub DressShoes() End Class '具体的人 Public Class huyang : Inherits Person Public Overrides Sub DressCoat() Console.WriteLine("我穿上外套。。。。") End Sub Public Overrides Sub DressShoes() Console.WriteLine("我穿上鞋。。。。。") End Sub Public Overrides Sub Dre<a href="https://www.jb51.cc/tag/sst/" target="_blank" class="keywords">sst</a>rouser() Console.WriteLine("我穿上裤子。。。。") End Sub End Class '定义装饰类 Public Class Decorator : Inherits Person Protected _person As Person '通过构造<a href="https://www.jb51.cc/tag/hanshu/" target="_blank" class="keywords">函数</a>传递人，因为不可能只装饰<a href="https://www.jb51.cc/tag/yige/" target="_blank" class="keywords">一个</a>人。 Public Sub New(ByVal person As Person) _person = person End Sub Public Overrides Sub DressCoat() _person.DressCoat() End Sub Public Overrides Sub DressShoes() _person.DressShoes() End Sub Public Overrides Sub Dre<a href="https://www.jb51.cc/tag/sst/" target="_blank" class="keywords">sst</a>rouser() _person.Dre<a href="https://www.jb51.cc/tag/sst/" target="_blank" class="keywords">sst</a>rouser() End Sub End Class '<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>酷帅的墨镜<a href="https://www.jb51.cc/tag/xiaoguo/" target="_blank" class="keywords">效果</a> Public Class DecoratorCool : Inherits Decorator Public Sub New(ByVal person As Person) MyBase.new(person) End Sub Public Overrides Sub DressCoat() _person.DressCoat() End Sub Public Overrides Sub DressShoes() _person.DressShoes() End Sub Public Overrides Sub Dre<a href="https://www.jb51.cc/tag/sst/" target="_blank" class="keywords">sst</a>rouser() _person.Dre<a href="https://www.jb51.cc/tag/sst/" target="_blank" class="keywords">sst</a>rouser() End Sub Public Sub DressCoolly() Console.WriteLine("我带上墨镜。。。出门去") End Sub End Class

'细心的读者可能发现了其中

那么想想我在买药的那会儿是怎么干的：《通过我买西瓜霜来看外观模式（vb.net实现）》

那就自己去实现吧。

不过还得说一说这个装饰模式

先来看定义：

装饰模式（Decorator），动态地给一个对象添加一些额外的职责，就增加功能来说，装饰模式比生成子类更为灵活。

GoF《设计模式》中说道：动态的给一个对象添加一些额外的职责。就增加功能而言，Decorator模式比生成子类更为灵活。

关于在《大话》中的那个装饰模式的实现，现在也不是很理解。如果你知道，请提示一二……