defaultproperty1.vb

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

Class DefaultProperty1
    Private m_Value As String
    Default Property Test(ByVal Index As Integer) As String
        Get
            Return m_Value
        End Get
        Set(ByVal value As String)
            m_Value = value
        End Set
    End Property
End Class