صباح الخير على الجميع

_ بداية أود الاعتذار على عدم مشاركتى فى المنتدى منذ فترة ...واليوم سأقدم لكم درس بسيط للغاية ولكنه مهم جدا وهو عن المجموعات .....حيث يدعم الفيجوال بيسك عدد من هياكل البيانات و التى تسمى مجموعات collections التي تخزين البيانات و استراجعها بطرق مختلفة مثل ArrayList، HashTable، Stack , Queue  .....الخ


1_ ArrayList

هي واحدة من بنية البيانات الأكثر مرونة من مجموعات VB.NET....حيث يمكنك إضافة عناصر إلى ArrayList الخاص بك بشكل ديناميكي وأنه يقبل قيمة فارغة كقيمة صحيحة ويسمح أيضا بعناصر مكررة. كما تسمح لك بالوصول إلى العناصر المخزنة باستخدام من خلال الرقم المفهرس index أو مفتاح السلسلة

_ إضافة عناصر الى ArrayList .....ويتم ذلك عن طريق الشفرة التالية :

الكود:

ArrayList.add(Item)

مثال توضيحى /

الكود:

Dim ItemList As New ArrayList()
        ItemList.Add("Item4")
        ItemList.Add("Item5")
        ItemList.Add("Item2")
        ItemList.Add("Item1")
        ItemList.Add("Item3")
        MsgBox("Shows Added Items")
        For i = 0 To ItemList.Count - 1
            MsgBox(ItemList.Item(i))
        Next

_ إدراج عنصر الى ArrayList

الكود:

ArrayList.insert(index,item)

حيث أن /
index ....هو موقع العنصر فى ArrayList الذى تريد إضافته
Item ...هو العنصر المراد إضافته

مثال توضيحى

الكود:

ItemList.Insert(3, "Item6")

_ حذف عنصر من ArrayList

يمكنك حذف أحد عناصر المجموعة ArrayList أما من خلال قيمة العنصر نفسه أو من خلال رقم العنصر المفهرس index ....وذلك على النحو التالى :

الكود:


ArrayList.Remove(item)
ArrayList.RemoveAt(index)


مثال توضيحى

الكود:

ItemList.Remove("Item1")
        'remove item from a specified index
        ItemList.RemoveAt(3)

_ ترتيب عناصر ArrayList ....وذلك باستخدام الجملة التالية :

الكود:


ArrayList.Sort()

2_ HashTable

يقوم HashTable بتخزين البيانات بإستخدام القيمة و مفتاح لتلك القيمة.و يمكننا استرداد العناصر من hashTable من خلال هذا المفتاح ....وذلك على النحو التالى :

_ إنشاء و إضافة بيانات فى HashTable ....ويتم ذلك عن طريق الشفرة التالية :

الكود:

HashTable.Add(Key,Value)

حيث أن :
Key هو المفتاح الذى سيستخدم فى الوصول للبيانات المخزنة
Value هى قيمة البيانات المراد تخزينها

مثال توضيحى /

الكود:

Dim weeks As New Hashtable
        Dim day As DictionaryEntry
        weeks.Add("1", "Sun")
        weeks.Add("2", "Mon")
        weeks.Add("3", "Tue")
        weeks.Add("4", "Wed")
        weeks.Add("5", "Thu")
        weeks.Add("6", "Fri")
        weeks.Add("7", "Sat")
        'Display a single Item
        MsgBox(weeks.Item("5"))
        'Search an Item
        If weeks.ContainsValue("Tue") Then
            MsgBox("Find")
        Else
            MsgBox("Not find")
        End If

_ حذف عنصر فى HashTable ....ويتم ذلك عن طريق الشفرة التالية :

الكود:

HashTable.Remove(Key)

_ و يمكنك استخدام الشفرات التلية للتأكد من وجود عنصر سواء من خلال قيمته او من خلال الرقم المفهرس و ذلك على النحو التالى :

الكود:

HashTable.ContainsKey(key)

الكود:

HashTable.ContainsValue(Value)

متايعة لتكملة الدرس