Overridable、Overrides、Shadows的用法

Module Module1


    Sub Main()
        '1
        'Dim c As TheBase
        'c = New TheBase()
        'c.over()                                   '   输出  TheBase  
        'c = New TheInherited()
        'c.over()                                   '   输出  TheInherited  
        'c = New TheShadowed()
        'c.over()


        '2
        'Dim c As TheInherited
        'c = New TheBase()
        'c.over()                                   '   错误！无效的转换。  
        'c = New TheInherited()
        'c.over()                                   '   输出  TheInherited  
        'c = New TheShadowed()
        'c.over()
        'Dim c As TheShadowed
        'c = New TheBase()
        'c.over()                                   '   错误！无效的转换。  
        'c = New TheInherited()
        'c.over()                                   '   错误！无效的转换。  
        'c = New TheShadowed()
        'c.over()                                   '   输出  TheShadowed
        '      此例说明Overridable、Overrides、Shadows的用法。   
        '请注意TheBase里面的Overridable， 如果没有这一句， 后面类TheInherited将无法声明同名过程over()， 而TheShadows仍然可以。  
        'Overridable 的意思是 ： 可以被重写的。  
        'Overrides 的意思是 ： 重写原来的。  
        'Shadows 的意思是 ： 这个函数/ 过程 / 变量跟我的父类没有任何关系， 它是一个全新的过程。  


        '在运行的例子中我们可以清晰地看到， 无论变量c的定义是什么， VB.NET都会尽量寻找到最后被定义的那个成员。也就是说， 如果被重写了， 那么就找“从变量类型开始，到这个变量所指对象实际上的类为止，最后一次被重写（Overrides）的那个成员”。（当然， 如果找不到， 那么还会往变量类型的祖先那个方向上去找。）  


        '简单点讲就是说， 无论c怎么定以， 如果他指向的是一个TheBase， 他就找“到TheBase为止最后一次被重写的那个Sub   over()”。如果他指向的是一个TheInherited， 就找“到TheInherited为止最后一次被重写的那个Sub   over()”， 也就是TheInherited里面的那个。  


        '对于TheShadowed来说， 情况稍微复杂一点
        '由于TheShadowed里面所写的那个over()被声明为Shadows的，也就是说这个over()跟TheBase和TheInherited里面的没有关系，于是从变量c的基类（TheBase）开始找，一直找到变量所指对象的类型TheShadowed，发现变量c的类型（无论是TheBase还是TheInherited）里面的那个over()最后一次被重写是在TheInherited里面（注意：TheShadows里面的over()跟它没关系），于是只要c不是Dim   ..   As   TheShadows，那么就会选择调用TheInherited里面的over()了。  转载：http : //blog.sina.com.cn/s/blog_7aab5c6b0100urws.html
    End Sub
    Public Class TheBase
        Public Overridable Sub over()
            Debug.WriteLine("TheBase")
        End Sub
    End Class


    Public Class TheInherited : Inherits TheBase
        Public Overrides Sub over()
            Debug.WriteLine("TheInherited")
        End Sub
    End Class


    Public Class TheShadowed : Inherits TheInherited
        Public Shadows Sub over()
            Debug.WriteLine("TheShadowed")
        End Sub
    End Class
End Module