'Visual Basic 2008/2010 Collecties - Inleiding Object Oriented Programming
Module SentenceTestFixture
    Sub Main()
        Dim sentence1 As Sentence = New Sentence
        Console.WriteLine(sentence1.Count = 0)
        Console.WriteLine(sentence1.IndexOf("Hello") = -1)
        Console.WriteLine(sentence1.Contains("Hello") = False)
        '
        sentence1.Add("Hello")
        Console.WriteLine(sentence1.Count = 1)
        Console.WriteLine(sentence1.Item(0) = "Hello")
        Console.WriteLine(sentence1.IndexOf("Hello") = 0)
        Console.WriteLine(sentence1.Contains("Hello") = True)
        Console.WriteLine(sentence1.IndexOf("World") = -1)
        Console.WriteLine(sentence1.Contains("World") = False)
        '
        sentence1.Add("World")
        Console.WriteLine(sentence1.Count = 2)
        Console.WriteLine(sentence1.Item(0) = "Hello")
        Console.WriteLine(sentence1.Item(1) = "World")
        Console.WriteLine(sentence1.IndexOf("Hello") = 0)
        Console.WriteLine(sentence1.Contains("Hello") = True)
        Console.WriteLine(sentence1.IndexOf("World") = 1)
        Console.WriteLine(sentence1.Contains("World") = True)
        '
        Console.ReadLine()
    End Sub
End Module
Class Sentence
    Private m_Words As String() = New String() {}
    Public ReadOnly Property Count() As Integer
        Get
            Count = m_Words.Length
        End Get
    End Property
    Default Public ReadOnly Property Item(ByVal index As Integer) As String
        Get
            If index >= 0 AndAlso index < Count Then Item = m_Words(index)
        End Get
    End Property
    Public Sub Add(ByVal word As String)
        ReDim Preserve m_Words(Count)
        m_Words(Count - 1) = word
    End Sub
    Public Function IndexOf(ByVal word As String) As Integer
        IndexOf = -1
        If Count > 0 Then
            Dim found As Boolean
            Do
                IndexOf += 1
                found = (Item(IndexOf) = word)
            Loop Until found OrElse IndexOf = Count - 1
            If Not found Then IndexOf = -1
        End If
    End Function
    Public Function Contains(ByVal word As String) As Boolean
        Contains = (IndexOf(word) <> -1)
    End Function
End Class
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2010 - Alle rechten voorbehouden.