methodinvocation18.vb

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

Imports System
Imports System.Collections
Imports System.Reflection

Namespace MethodInvocation18
    Class Modifiers
        ReadOnly Property [Is](ByVal index As Integer) As Boolean
            Get

            End Get
        End Property
    End Class
    Class Base
        ReadOnly Property Modifiers() As Modifiers
            Get
            End Get
        End Property
    End Class

    Class Test
        Inherits Base

        ReadOnly Property CanRead() As Boolean
            Get
                Return Modifiers.Is(1)
            End Get
        End Property

        Shared Function Main() As Integer

        End Function
    End Class
End Namespace