'Visual Basic 2010 Inheritance ( Overerving ) - Inherits Object Oriented Programming
Module Exercise2Solution
    Sub Main()
        Dim france As Republic = New Republic
        france.Capital = "Paris"
        france.President = "Sarkozy"
        '
        Dim unitedKingdom As Monarchy = New Monarchy
        unitedKingdom.Capital = "London"
        unitedKingdom.Monarch = "Elizabeth"
    End Sub
End Module
Class Country
    Private m_Capital As String
    Public Property Capital() As String
        Get
            Capital = m_Capital
        End Get
        Set(ByVal value As String)
            m_Capital = value
        End Set
    End Property
End Class
Class Monarchy : Inherits Country
    Private m_Monarch As String
    Public Property Monarch() As String
        Get
            Monarch = m_Monarch
        End Get
        Set(ByVal value As String)
            m_Monarch = value
        End Set
    End Property
End Class
Class Republic : Inherits Country
    Private m_President As String
    Public Property President() As String
        Get
            President = m_President
        End Get
        Set(ByVal value As String)
            m_President = value
        End Set
    End Property
End Class
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.