Visual Basic Online Course - Enum

بسم الله الرحمن الرحيم

و Enum هى اختصار لـ Enumeration أو اللوائح أو القوائم و يتم كتابة كود الـ Enum فى موديول Module أو General Declaration كالتالى :

Enum MyEnum

-

-

-

-

End Enum

أو

Public Enum MyEnum

-

-

-

End Enum

باستخدام Access Modifiers أو بدون .

- يقدم الفيجوال بيزك 6 قوائم جاهزة مثل vbDayOfWeek و يمثل أسماء أيام الأسبوع و يمكنك تجربة ذلك فى مشروع جديد فى الفورم Form_Load اكتب vbDayOfWeek ثم (.) ستجد قائمة بها اسماء أيام الأسبوع .

- اذا يستخدم الـ Enum فى عمل قائمة عرض بثوابت أسميه و ثوابت اسميه مثل أسماء أيام الأسبوع و نوعها String و يمكنك عمل Enum لثوابت Long و Integer و أى نوع من أنواع البيانات DataType .

- و فى الـ Enum يتم ترتيب الثوابت بحسب ترتيب كتابتها فى الكود حيث اذا اردت عرض أسماء ايام الأسبوع بالترتيب فى برنامجك فيجب عليك عمل كود الـ Enum بالترتيب الذى تود العرض به .... كالتالى :

	'Visual Basic 6.0 Enum
	Enum MyDayOfWeek
	Saturday = 0
	SunDay = 1
	MonDay = 2
	TuesDay = 3
	WednesDay = 4
	ThursDay = 5
	FriDay = 6
	End Enum

view raw gistfile1.vb hosted with ❤ by GitHub

- يعامل الفيجوال بيزك جميع عناصر الـ Enum على أنها Long Integer و اذا قمت بتخصيص علامع عشريه لثابت من ثوابت الـ Enum فان الفيجوال بيزك يقوم بتقريبها الى أقرب رقم صحيح .

- و لتفادى رسالة الخطأ Reference Ambiguous Name يمكنك كتابة رقم الثابت الاسمى Constant كما فى المثال السابق .

- ثم يمكنك تخزين قيمة الثوابت فى متغيرات لاستخدامها فى البرنامج كالتالى :

	'Visual Basic 6.0 Enum
	Dim WorkDays As MyDayOfWeek
	'WorkDays = 0 or WorkDays = SaturDay
	If WorkDays > 0 Then
	MsgBox "Invalid WorkDay"
	End If

view raw gistfile1.vb hosted with ❤ by GitHub

مصادر :

1) MSDN - Enum

مع تحياتى Evry1falls

---

♥ Visual Basic 6.0 Course Online :

• Automate MS-Access Database in Visual Basic 6.0 though a network
• Visual Basic 6.0 Analog Clock
• Visual Basic 6.0 Temperature Convertor
• Visual Basic 6.0, MS-Access 2003 and Crystal Reports - Phone book
• Visual Basic 6.0, MS-Access 2003 Database and DataGridView
• Visual Basic 6.0  FTP full application source code
• Visual Basic 6.0 Color Picker tool source code
• Visual Basic 6.0 TreeView Control lesson (Part1 - Part 2 - Part3 - Part4 - Part5) Arabic.
• Visual Basic 6.0 - Introduction to Graphics (Part1 - Part2 - Part3)  
• Visual Basic 6.0 and MS-Excel 2003 tutorials (Part1 - Part2 - Part3 - Part4 - Part5 - Part6)