defaultproph.vb

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

'Author:
'   V. Sudharsan ([e-mail])
'
' (C) 2005 Novell, Inc.

Class Class2
    ' Define a local variable to store the property value.
    Private PropertyValues(10) As Integer
    ' Define the default property.
    Default Public Property Prop1(ByVal Index As Integer) As Integer
        Get
            Return PropertyValues(Index)
        End Get
        Set(ByVal Value As Integer)
            PropertyValues(Index) = Value
        End Set
    End Property
End Class


Module M
    Function main() As Integer
        Dim C As New Class2()
        ' The first two lines of code access a property the standard way.
        C.Prop1(0) = 10 ' Property assignment.
        System.Console.WriteLine(C.Prop1(0)) ' Property retrieval.

        ' The following two lines of code use default property syntax.
        C(1) = 20 ' Property assignment.
        System.Console.WriteLine(C(1))  ' Property retrieval.
    End Function
End Module