overridenproperty1.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 22 行

Class OverridenProperty1
    Class Base
        Overridable ReadOnly Property Test() As Integer
            Get
                Return 1
            End Get
        End Property
    End Class
    Class Derived
        Inherits base
        Overrides ReadOnly Property Test() As Integer
            Get
                Return 0
            End Get
        End Property
    End Class

    Shared Function Main() As Integer
        Dim d As New derived
        Return d.test
    End Function
End Class