في هذا القسم، دعونا نمارس ذلك. قم أولاً بإنشاء كائن COM، ثم استخدمه، وأخيرًا فكر في التحسينات.
قم أولاً بالخطوتين التاليتين:
قم بتشغيل Visual Basic؛ حدد نوع المشروع "StandardEXE"؛ نظرًا لأن كائنات COM تعتمد على الفئات، فإن الفئات هي في الواقع حزم، تمامًا مثل التعليمات البرمجية الموجودة في الوحدة النمطية. لذا:
حدد "PRoject"->"AddClassModule"؛ عندما يظهر مربع الحوار المقابل، حدد ""ClassModule"، ثم انقر فوق الزر "فتح".
بهذه الطريقة، يتم عرض نموذج على سطح المكتب، بالإضافة إلى Class1 الموجود في Project1.
بعد ذلك، قم بتغيير اسم الفئة الفارغة:
في نافذة خصائص الفئة، قم بتغيير خاصية اسم الفئة إلى CDog.
تجدر الإشارة إلى أنه من أجل التمييز، فإن كل اسم كائن له بادئة مقابلة، على سبيل المثال، كائن TextBox يسبقه "txt"، والنموذج يسبقه "frm"، ويمكن أن يسبق الفئة بالأحرف الكبيرة الحرف "C" أو الحرف الصغير "cls" "، ولكن يتم استخدام الأول هنا.
دعونا نضيف بعض التعليمات البرمجية لاختباره:
في قسم الإعلان العام لفئة CDog، أضف تعريف المتغير:
ثم قم بفتح Form1;
إضافة زر أمر إلى النموذج؛
افتح نافذة التعليمات البرمجية وأضف التعليمة البرمجية التالية إلى زر الأمر:
دعونا نشرح معنى الكود أعلاه:
يتم استخدام سطر البيان هذا لإعلام Visual Basic لتعيين مسافة بت لكائن CDog ومع ذلك، لا يمكن استخدام الكائن في هذا الوقت ويجب الانتظار حتى العبارة التالية:
يتم استخدامه لإنشاء مثيلات CDog. وهذا يعني أن قالب MyDog الفارغ مسبقًا يصبح كائن CDog يمكن استخدامه الآن.
يتم استخدام السطر الأول من التعليمات البرمجية أعلاه لتعيين متغير الاسم لـ MyDog، ويتم استخدام السطر الثاني من البيانات لعرض محتويات المتغير في مربع حوار الرسالة. أخيرا:
يستخدم لإفراغ كائن MyDog ببساطة.
اضغط F5 للتشغيل والاختبار.
ماذا عن ذلك؟ لكن في الوقت نفسه، لا يسعنا إلا أن نسأل، ما الفرق بين الوحدات القياسية والوحدات الصفية؟ لننظر إلى المثال التالي مرة أخرى:
قم بتغيير رمز زر الأمر إلى:
يختلف الكود هنا عن الكود السابق، حيث يحدد في الواقع كائنين، MyDog وMyDog2، وهما كائنان مستقلان يعتمدان على CDog.
اضغط F5 للتشغيل والاختبار.
ماذا كانت النتيجة؟ هل يظهر مربعا حوار هذه المرة؟ أحدهما يقول "بيلي مور" والآخر يقول "سادي مور".
باستثناء الاسم، لا يحتوي كل كائن محدد أعلاه على أي سمات فعلية، لذلك ستتم إضافة العملية التالية:
فتح Class1 السابق؛
قم بتعريف المتغيرات العامة التالية:
فتح Form1 السابق;
قم بتغيير رمز زر الأمر إلى:
الكود مشابه للكود السابق، فيما عدا أنه يتم استخدام متغير العمر هنا.
اضغط F5 للتشغيل والاختبار.
يجب أن يظهر مربعا حوار للرسالة يوضحان محتويات الاسم والعمر.
حاول الآن ضبط القيمة العمرية لأحد العناصر على 1000 أو 30000. انظر كيف اتضح؟ لا يزال البرنامج يعمل بشكل طبيعي لأن الحد الأقصى لقيمة المتغير الصحيح المحدد يمكن أن يصل إلى 32767، لكن عمر الكلب الفعلي (الكلب) ليس 30000 عام.
إذن، كيف ينبغي التعامل مع هذا الوضع؟
->