الإرشادات التفصيلية: تعريف الفئات

توضح هذه المعاينة كيفية تعريف الفئات و التي يمكنك استخدامها بعد ذلك لإنشاء الكائنات. كما توضح كيفية إضافة خصائص و أساليب إلى الفئة الجديدة , و توضح كيفية تهيئة الكائن.

ملاحظة

قد تختلف مربعات الحوار و أوامر القائمة التى تشاهدها عن تلك الموصوفة في التعليمات ، و ذلك اعتماداً على إعداداتك النشطة أو الإصدار الخاص بك. لتغيير الإعدادات اضغط Import and Export إعدادات ضمن أدواتالقائمة. لمزيد من المعلومات، راجع العمل مع إعدادات.

لتعريف الفئة

1. إنشاء مشروع عن طريق النقر فوق مشروع جديد على ملف قائمة . يظهر مربع الحوار مشروع جديد.

2. تحديد تطبيقات ال Windows من قائمة قوالب المشروع Visual Basic لعرض مشروع جديد.

3. إضافة فئة جديدة إلى المشروع عن طريق النقر فوق إضافة فئة على مشروع قائمة . يظهر مربع الحوار Add New Item.

4. حددفئة القالب.

5. قم بتسمية الفئة الجديدة UserNameInfo.vb، ثم انقر فوق إضافة لعرض التعليمات البرمجية للفئة الجديدة.

   Public Class UserNameInfo
   End Class
   

   ملاحظة

   يمكنك استخدامVisual Basic  محرر التعليمات البرمجية لإضافة فئة إلى نموذج بدء التشغيل و ذلك بكتابة الكلمة الأساسية Class متبوعة باسم الفئة الجديدة. ال محرر التعليمات البرمجية يوفر الكشف المطابق End Class نيابة عنك.

6. عرِف حقل خاص للفئة عن طريق إضافة التعليمات البرمجية التالية بين Class و كشف End Class :

   Private userNameValue As String
   

   تعرِيف الحقل كـ Private يعني أنه يمكن استخدامها فقط داخل الفئة. يمكنك جعل الحقول متاحة من خارج الفئة باستخدام معدلات الوصول مثل Public و التي توفر وصول أكثر. لمزيد من المعلومات، راجع مستويات الوصول في Visual Basic.

7. تعريف خاصية الفئة عن طريق إضافة التعليمات البرمجية التالية:

   Public Property UserName() As String
       Get
           ' Gets the property value.
           Return userNameValue
       End Get
       Set(ByVal Value As String)
           ' Sets the property value.
           userNameValue = Value
       End Set
   End Property
   

8. تعريف أسلوب الفئة عن طريق إضافة التعليمات البرمجية التالية:

   Public Sub Capitalize()
       ' Capitalize the value of the property.
       userNameValue = UCase(userNameValue)
   End Sub
   

9. عرّف معلمات الدالة الإنشائية للفئة الجديدة عن طريق إضافة إجراء باسم Sub New:

   Public Sub New(ByVal UserName As String)
       ' Set the property value.
       Me.UserName = UserName
   End Sub
   

   مُنشئ ال Sub New يتم استدعاؤه تلقائياً عند إنشاء كائن يستند على هذه الفئة . يعين هذا المُنشئ قيمة الحقل الذي يحتوي على اسم المستخدم.

لإنشاء زر لاختبار الفئة

1. تغيير نموذج بدء التشغيل إلى وضع التصميم بواسطة النقر بزر الماوس الأيمن فوق اسمه في مستكشف الحلول ثم النقر فوق عرض المصمّم. افتراضياً ، يسمى نموذج بدء التشغيل لمشاريع تطبيقات الWindows ب Form1.vb. ثم يظهر النموذج الرئيسي.

2. أضف زراً للنموذج الرئيسي و انقر نقراً مزدوجاً فوقه لعرض التعليمات البرمجية لمعالج الأحداث Button1_Click . قم بإضافة التعليمات البرمجية التالية ليتصل إجراء الاختبار:

   ' Create an instance of the class.
   Dim user As New UserNameInfo("Moore, Bobby")
   ' Capitalize the value of the property.
   user.Capitalize()
   ' Display the value of the property.
   MsgBox("The original UserName is: " & user.UserName)
   ' Change the value of the property.
   user.UserName = "Worden, Joe"
   ' Redisplay the value of the property.
   MsgBox("The new UserName is: " & user.UserName)
   

لتشغيل التطبيق الخاص بك

1. شغِل التطبيق الخاص بك عن طريق الضغط على F5. انقر فوق الزر في النموذج ليتصل إجراء الاختبار. يعرض رسالة تفيد أن UserName الأصلي هو "MOORE ، BOBBY" ، لأن الإجراء استدعى أسلوب الCapitalize للكائن.

2. انقر فوق موافق لإغلاق مربع الرسالة. إجراء ال Button1 Click يغير القيمة لخاصية ال UserName ثم يعرض رسالة تفيد أن القيمة الجديدة ل UserName هي "Worden, Joe".

راجع أيضًا:

المبادئ

برمجة كائن-مهيأ (C# و Visual Basic)

موارد أخرى

كائنات و فئات في Visual Basic