استفاده از لیست آرایه ArrayList

توسعه دهندگان (همون برنامه نویسان خودمون) اغلب نیاز دارند تا گروهی از شیء های مرتبط با هم را ذخیره کنند.

مثل ساختن یک دفتر تلفن و یا دفتر پست الکترونیکی که در آن نیاز دارید که هم عکس و هم متن و شاید هم صدای ذخیره شده طرف را ذخیره کنید.

در دات نت فضایی (NAMESPACE) ای به نام System.Collections وجود دارد که انواع مختلف داده را پشتیبانی میکند

دسته اول از این نوع داده ها عبارتند از:

•  ArrayList
• Queue
• Stack
• StringCollection
• BitArray

Imports System.Collections

Imports System.IO ' For use FileStream

Dim al As New ArrayList()

al.Add("Hello")
al.Add("World")
al.Add(5)
al.Add(New FileStream("delemete", FileMode.Create))
MsgBox("The array has " & al.Count.ToString & " items:")
For Each s As Object In al
     ListBox1.Items.Add(s.ToString())
Next

نمونه دیگر برای ArrayList  و استفاده از دستورات Insert و Remove و Sort در آن

Dim al As New ArrayList()
al.Add("Hello")
al.Add("World")
al.Add("this")
al.Add("is")
al.Add("a")
al.Add("test")
al.Remove("test")
al.Insert(4, "not")
al.Sort()
For Each s As Object In al
     ListBox1.Items.Add(s.ToString())
Next

خروجی:

A
Hello
is
not
this
World

برای ReverSeSort ( مرتب کردن برعکس ) می توانیم از کلاس زیر استفاده کنیم:

Public Class reverseSort
     Implements IComparer
     Private Function Compare(ByVal x As Object, ByVal y As Object) _
     As Integer Implements IComparer.Compare
          Return ((New CaseInsensitiveComparer()).Compare(y, x))
     End Function
End Class

و در ادامه در متن اصلب برنامه از قطعه کد زیر استفاده میکنیم:

Dim al As New ArrayList()
al.AddRange(New String() {"Hello", "world", "this", "is", "a", "test"})
al.Sort(New reverseSort())
For Each s As Object In al
     ListBox1.Items.Add(s.ToString())
Next

جستجو در ArrayList:

MsgBox(al.BinarySearch("this"))