'Visual Basic 2010 Static Binding via MyClass Static Typing en Dynamic Binding
Namespace StaticBinding2
    Class Class1
        Public Sub New()
            Console.WriteLine(getValue())
        End Sub
        Public Overridable Function Value() As String
            Value = getValue()
        End Function
        Private Function getValue() As String
            getValue = "Class1"
        End Function
    End Class
    Class Class2 : Inherits Class1
        Public Sub New()
            m_Values = New String() {"Class2.Value(0)", _
                                     "Class2.Value(1)", _
                                     "Class2.Value(2)"}
        End Sub
        Private m_Values As String()
        Public Overrides Function Value() As String
            Value = m_Values(1)
        End Function
    End Class
    Class Example16
        Public Shared Sub Main()
            Dim object1 As Class1 = New Class1
            Dim object2 As Class2 = New Class2
            '
            Console.ReadLine()
        End Sub
    End Class
End Namespace
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.