'Visual Basic 2010 Properties Object Oriented Programming
Namespace PropertyExample
    Class Person
        Private m_Name As String
        Public Property Name() As String
            Get                                                            ' (1)
                Name = m_Name
            End Get
            Set(ByVal value As String)                                     ' (2)
                m_Name = value
            End Set
        End Property
    End Class
    Module Client
        Sub Main()
            Dim person1 As Person = New Person
            person1.Name = "John"                                          ' (3)
            Console.WriteLine(person1.Name)                                ' (4)
            '
            Console.ReadLine()
        End Sub
    End Module
End Namespace
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.