كيفية القيام بما يلي: إنشاء مجموعة من الكائنات

مقالة
11/01/2010

كما يتم مع أي كائن، لتقوم بالتصريح عن متغير اضغط على الكائن، ومن ثم إنشئ مجموعة الكائن و تعيينها إلى متغير.

بالنسبة كائن مجموعة، يمكنك استخدام إما الفئة Collection أو فئة مجموعة .NET Framework. وبشكل خاص، يمكنك إنشاء مجموعة عامة باستخدام أحد الفئات في مساحة الاسم System.Collections.Generic. مجموعة عامة مفيدة عندما يحتوي كل عنصر في المجموعة على نفس نوع بيانات. مجموعات عامة تفرض كتابة قوي وذلك بالسماح فقط في المطلوب بنوع البيانات لتتم إضافته. لمزيد من المعلومات، راجع كيفية القيام بما يلي: تعريف مجموعات نوع آمن.

حالما يتم إنشاء كائن مجموعة يمكن إضافة و إزالة العناصر ثم الوصول إلى العناصر في المجموعة.

اثنين الأمثلة حول إلى إنشاء مجموعات اتباع. تحتوي كل مجموعة العناصر String ثم إقران المفتاح String مع كل عنصر. الإجراءات الأولين في إنشاء مجموعة باستخدام فئة المجموعة Visual Basic. الإجراءات الأخيرتين من إنشاء مجموعة باستخدام فئة مجموعة .NET Framework عامة.

لإنشاء مجموعة باستخدام فئة مجموعة Visual Basic

قم بتعريف و إنشاء متغير Visual Basic Collection، كما في المثال التالي.
```
Dim sampleVisualBasicColl As New Microsoft.VisualBasic.Collection()
```
المجموعة في sampleVisualBasicColl يمكنها قبول العناصر من أي نوع من البيانات.
استخدم الأسلوب Add لإضافة عناصر إلى مجموعة. ينشئ المثال التالي أربعة عناصر String و يضيف لهم مجموعة. يقوم بإنشاء قيمة فريدة String كمفتاح لكل عنصر جديد و تمرير القيمة للأسلوب Add.
```
Dim item1, item2, item3, item4 As String
item1 = "Items"
item2 = "In"
item3 = "A"
item4 = "Collection"
sampleVisualBasicColl.Add(item1, "firstkey")
sampleVisualBasicColl.Add(item2, "secondkey")
sampleVisualBasicColl.Add(item3, "thirdkey")
sampleVisualBasicColl.Add(item4, "fourthkey")
```
الوسيطة Key اختيارية في مجموعة Visual Basic.
إذا أردت إزالة عنصر من مجموعة, يمكنك استخدام اسلوب Remove لتعريف العنصر إما عن طريق الفهرس الموضعية أو عن طريق المفتاح اختياري. فيما يلي مثال يوضّح ذلك.
```
' Remove the first element of the Visual Basic collection.
sampleVisualBasicColl.Remove(1)
' Remove the element with the key "secondkey".
sampleVisualBasicColl.Remove("secondkey")
```
لاحظ أنه عند إزالة عنصر من Visual Basic Collection، يتم إعادة ترقيم قيم الفهرس من 1 إلى القيمة خاصية Count.

لاستخدام عملية "عن كل... التالي" لمعالجة عناصر مجموعة Visual Basic

قم بالتصريح عن متغير من نوع مخزن في المجموعة. على سبيل المثال السابق للتصريح عن متغيّر من نوع String، كما في المثال التالي.
```
' Insert code from the preceding example.
Dim aString As String
```
استخدم عبارة Visual Basic) For Each...Next) لفحص عنصر كل مجموعة. المثال التالي يبحث عن سلسلة معيّنة وتقوم بعرضه إذا تم العثور عليها.
```
For Each aString in sampleVisualBasicColl
    If aString = "Collection" Then
        MsgBox(aString)
    End If
Next aString
```

لإنشاء مجموعة باستخدام فئة مجموعة عامة

قم بتعريف و إنشاء متغير .NET Framework System.Collections.Generic.Dictionary<TKey, TValue>، كما في المثال التالي.
```
Dim sampleGenericColl As New System.Collections.Generic.Dictionary(Of String, String)
```
المتغير sampleGenericColl يحتوي على مجموعة نوع - آمن يقبل العناصر ومفاتيح فقط من نوع String.
استخدم الأسلوب Dictionary<TKey, TValue>.Add لإضافة عناصر إلى مجموعة. ينشئ المثال التالي أربعة عناصر String و يضيف لهم مجموعة. يقوم بإنشاء قيمة فريدة String كمفتاح لكل عنصر جديد و تمرير القيمة للأسلوب Add.
```
Dim item1, item2, item3, item4 As String
item1 = "Items"
item2 = "In"
item3 = "A"
item4 = "Collection"
sampleGenericColl.Add("firstkey", item1)
sampleGenericColl.Add("secondkey", item2)
sampleGenericColl.Add("thirdkey", item3)
sampleGenericColl.Add("fourthkey", item4)
```
الوسيطة Key مطلوبة في هذة المجموعة العامة.
لإزالة عنصر من المجموعة، استخدم الأسلوب IDictionary<TKey, TValue>.Remove. يجب توفير المفتاح للتعرف على العنصر للإزالة. فيما يلي مثال يوضّح ذلك.
```
If Not sampleGenericColl.Remove("thirdkey")
    ' Insert code to handle "thirdkey" not found in collection.
End If
```
يمكنك استخدام عبارة For Each...Next لتنفيذ حلقات عبر و عملية يوضح عناصر مجموعة من الإجراءات التالية.

لاستخدام عملية "عن كل... التالي" لمعالجة عناصر مجموعة Visual Basic

قم بالتصريح عن متغير من نوع مخزن في المجموعة. على سبيل المثال السابق للتصريح عن متغيّر من نوع String، كما في المثال التالي.
```
' Insert code from the preceding example.
Dim aPair As KeyValuePair(Of String, String)
```
استخدم عبارة Visual Basic) For Each...Next) لفحص عنصر كل مجموعة. المثال التالي يبحث عن سلسلة معيّنة وتقوم بعرضه إذا تم العثور عليها.
```
For Each aPair In sampleGenericColl
    If aPair.Value = "Items" Then
        MsgBox(aPair.Key & " -- " & aPair.Value)
    End If
Next aPair
```