Determine the index of the first occurrence of a specified element. : ArrayList « Collections « VB.Net Tutorial

1. VB.Net Tutorial
2. Collections
3. ArrayList

Imports System
Imports System.Collections
Imports Microsoft.VisualBasic

Public Class MainClass
    Public Shared Sub Main()
         Dim myAL As New ArrayList()
        myAL.Add("the")
        myAL.Add("quick")
        myAL.Add("brown")
        myAL.Add("fox")
        myAL.Add("jumps")
        myAL.Add("over")
        myAL.Add("the")
        myAL.Add("lazy")
        myAL.Add("dog")
        myAL.Add("in")
        myAL.Add("the")
        myAL.Add("barn")

        Console.WriteLine("The ArrayList contains the following values:")
        PrintIndexAndValues(myAL)

        Dim myString As [String] = "the"
        Dim myIndex As Integer = myAL.IndexOf(myString)
        Console.WriteLine("The first occurrence of ""{0}"" is at index {1}.", myString, myIndex)

        myIndex = myAL.IndexOf(myString, 4)
        Console.WriteLine(myIndex)

        myIndex = myAL.IndexOf(myString, 6, 6)
        Console.WriteLine(myIndex)

        myIndex = myAL.IndexOf(myString, 11)
        Console.WriteLine(myIndex)



    End Sub

    Public Shared Sub PrintIndexAndValues(ByVal myList As IEnumerable)
        Dim i As Integer
        Dim obj As [Object]
        For Each obj In myList
            Console.WriteLine("[{0}]:{1}", i, obj)
            i = i + 1
        Next obj
    End Sub
End Class