'Visual Basic 2010 Shadowing - Shadows Static Typing en Dynamic Binding
Namespace FragileBaseClass1
    Class CharString
        Private m_Items As Char() = {}
        Public Overridable Sub Add(ByVal aChar As Char)
            ReDim Preserve m_Items(m_Items.Length)
            m_Items(m_Items.Length - 1) = aChar
        End Sub
        Public Overridable Sub AddAll(ByVal chars As Char())
            For Each charElement As Char In chars
                Add(charElement)
            Next
        End Sub
        Public Overrides Function ToString() As String
            If m_Items IsNot Nothing Then
                For Each charElement As Char In m_Items
                    ToString &= charElement
                Next
            End If
        End Function
    End Class
End Namespace
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.