'Visual Basic 2010 Inleiding Object Oriented Programming Object Oriented Programming
Class Person
    Private m_Name As String                                             ' (1)
    Public Function GetName() As String                                  ' (2)
        GetName = m_Name
    End Function
    Public Sub SetName(ByVal value As String)                            ' (3)
        m_Name = value
    End Sub
End Class
Module Client1
    Sub Main()
        Dim person1 As New Person                                        ' (4)
        person1.SetName("John")                                          ' (5)
        Console.WriteLine(person1.GetName())                             ' (6)
        '
        Dim person2 As New Person
        person2.SetName("Jane")
        Console.WriteLine(person2.GetName())
        '
        Console.ReadLine()
    End Sub
End Module
Module Client2
    Sub Main()
        Dim person1 As Person
        person1.SetName("John")                                            ' (1)
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.