Collection Nesnesi

Collection nesnesi Visual Basic dizilerinin nesne yönelimli bir uygulamasıdır. Bununla beraber nesnel olmayan verileri de saklama yeteneğine sahiptir. For…Each…Next yapısı ile nesnenin tüm elemanlarına ulaşılabilir.
Koleksiyona herhangi bir anda ve herhangi bir sırada yeni eleman eklemek mümkündür. Elemanların indisleri otomatik olarak VB tarafından yapılmaktadır. Koleksiyon elemanlarına kendilerine verilen anahtar kelimeler ile ulaşılır.
Collection nesnesi Collection.Add, Collection.Count, Collection.Item, Collection.Remove olmak üzere dört metodu destekler.

Aşağıdaki biçimde kullanılır.

Dim NesneninDeğişkenAdi As New Collection

Örnek:

Dim Urunler As New Collection
Yada;
Dim Urunlar As Collection
Urunler=New Collection

Collection.Add :
Collection Nesnesine yeni bir eleman ekler.
NesneninDeğişkenAdi.Add(ElemanAdi,[,Anahtar,Once,Sonra])

ElemanAdi Kolleksiyone eklenecek elemanın adıdır.
Once Kullanması zorunlu değildir. Listedeki hangi elemandan önce yer alacağını belirtir.
Sonra Kullanması zorunlu değildir. Listedeki hangi elemandan Sonra yer alacağını belirtir.

Örnek :
Dim Urunlar As New Collection
Urunler.Add(“Bilgisayar”)
Urunler.Add(“Telefon”)
Urunler.Add(“Ev Elektironiği”)

İstersek koleksiyondaki elemanlara benzersiz birer tane anahtar kelimede verebiliriz.

Dim Urunlar As New Collection
Urunler.Add(“Bilgisayar”,”pc”)
Urunler.Add(“Telefon”,tel”)
Urunler.Add(“Ev Elektironiği”,”elk”)

Araya Eleman Ekleme :
Aşağıda verilen kullanımda üçüncü satırda işleme giren eleman kollection içinde ikinci sırada yer alacaktır.

Dim Urunlar As New Collection
Urunler.Add(“Bilgisayar”,”pc”)
Urunler.Add(“Telefon”,tel”)
Urunler.Add(“Ev Elektironiği”,”elk”,”tel”)

Koleksiyonun tüm elemanları For…Each…Next döngüsü ile debug penceresine yazdıralım…

For Each n In Urunler
Debug.WriteLine(n)
Next

Eğer eklenecek eleman için önce ve sonra parametreleri kullanılmaza yeni eleman koleksiyonun en sonunda yer alacaktır.

Eğer eklenen elemana anahtar kelime verilmez ise o elemana anahtar kelime ile ulaşılamaz.

Collection.Remove :

Koleksiyon içinde indisi veya anahtar kelimesi verilen elemanı siler.
NesneninDeğişkenAdi.Remove(indis)
NesneninDeğişkenAdi.Remove(anahtar)

Örnek:
Urunler.Remove(1)
Urunler.Remove(“tel”)

Collection.Count :
Koleksiyonun eleman sayısını bulur. Sayı 1 (Bir) den başlar.
MsgBox(urunler.Count)

Collection.Item :
Koleksiyon içinde indisi verilen elemanı bulur.
NesneninDeğişkenAdı.Item(indis)

MsgBox(Urunler.Item(1))
MsgBox(Urunler.Item(2))

Koleksiyon içinde arama yapar.
NesneninDeğişkenAdı.Contains("AranacakIndis")

_{İyi Çalışmalar.}