Module Module1
Sub Main()
Dim hu As New huyang
hu.name = "mm"
'开始装饰
Console.WriteLine("。。。开始装饰。。。。")
'定义装饰的对象,以及被装饰的人
Dim dc As New DecoratorCool()
Dim dc2 As New DecoratorCool2()
dc.getperson(hu)
dc2.getperson(dc)
dc2.show()
Console.ReadKey()
End Sub
End Module
'抽象人的基类
Public MustInherit Class Person
'具体的人
Protected Shared _name As String = "I"
Public writeonly Property name() As String
Set(ByVal value As String)
_name = value
End Set
End Property
'打扮
MustOverride Sub show()
End Class
Public Class huyang : Inherits Person
Public Overrides Sub show()
Console.WriteLine("{0}穿上外套。。。。",_name)
End Sub
End Class
'定义装饰类
Public Class Decorator : Inherits Person
Protected _person As Person
Public Sub getperson(ByVal person As Person)
_person = person
End Sub
Public Overrides Sub show()
_person.show()
End Sub
End Class'添加酷帅的墨镜效果 Public Class DecoratorCool : Inherits Decorator Public Overrides Sub show() MyBase.show() Console.WriteLine("{0}带上墨镜。。。出门去",_name) End SubEnd Class'添加酷帅的化妆效果 Public Class DecoratorCool2 : Inherits Decorator Public Overrides Sub show() MyBase.show() Console.WriteLine("{0}化妆。。。出门去",_name) End SubEnd Class
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。