كيفية القيام بما يلي: التكرار عبر قائمة تعداد في Visual Basic

مقالة
11/01/2010

قائمة التعدادات توفر طريقة ملائمة للعمل مع مجموعات من الثوابت ذات الصلة, و لإقران القيم الثابتة مع الأسماء. للتكرار خلال قائمة تعداد, يمكنك نقله إلى صفيف باستخدام أسلوب GetValues. يمكن أيضاً التكرار خلال قائمة تعداد باستخدام عبارة For...Each باستخدام أسلوب GetNames أو GetValues لاستخراج السلسلة أو القيمة الرقمية.

للتكرار خلال قائمة تعداد

قم بتعريف صفيف ثم قم بتحويل قائمة التعداد إليه مع أسلوب GetValues قبل تمرير الصفيف كأي متغير أخر. يعرض المثال التالي كل عضو في قائمة التعداد FirstDayOfWeek كما يتم تكراره خلال قائمة التعداد.
```
Dim items As Array
items = System.Enum.GetValues(GetType(FirstDayOfWeek))
Dim item As String
For Each item In items
    MsgBox(item)
Next
```