Mega Code Archive
ArrayList BinarySearch Searches the entire sorted ArrayList for an element using the default comparer
<![CDATA[
Imports System
Imports System.Collections
Imports Microsoft.VisualBasic
Public Class SamplesArrayList
Public Shared Sub Main()
Dim myAL As New ArrayList()
Dim i As Integer
For i = 0 To 4
myAL.Add(i * 2)
Next i
PrintValues(myAL)
Dim myObjectOdd As Object = 3
FindMyObject(myAL, myObjectOdd)
End Sub
Public Shared Sub FindMyObject(myList As ArrayList, myObject As Object)
Dim myIndex As Integer = myList.BinarySearch(myObject)
Console.WriteLine(myIndex)
End Sub
Public Shared Sub PrintValues(myList As IEnumerable)
Dim obj As [Object]
For Each obj In myList
Console.Write(" {0}", obj)
Next obj
Console.WriteLine()
End Sub
End Class
]]>