في تقنية وتطبيقات فئات Visual Basic 6.0 (الجزء الأول) (المشار إليها فيما يلي بما ورد أعلاه)، ناقشنا نظرية الفئات وإنشاء الفئات وممارسة البرمجة لأساليب الفصول الدراسية يمكن استخدامه على نطاق واسع في هندسة البرمجيات. أهم شيء في التطبيق هو أنه يمكن إغلاقه بشكل مريح للغاية إن تثبيت العديد من السمات المطلوبة للبرمجة لا يسمح للمبرمجين بالتغلب على التعقيد في تصميم التحكم (ocx) ومكتبة الارتباط (dll) وتصحيح الأخطاء إلى حد معين فحسب، بل يعمل أيضًا على تحسين بساطة وكفاءة كود البرنامج - ستناقش هذه المقالة الفصل الكامل البرمجة، بما في ذلك الأساليب والخصائص والأحداث الأساسية.
(1) خصائص وتعريفات سمات الطبقة ؛
على غرار خصائص عناصر التحكم القياسية، تسمح خصائص الفئة للمستخدم بتعيين قيم ضمن نطاق بيانات محدد، وتتم مشاركة هذه القيم بواسطة أجزاء مختلفة من التعليمات البرمجية داخل الفئة. يجب برمجة عملية الحصول على السمات ونقلها من خلال عبارات PRpertyLet وPropertyGet. بالطبع، نحتاج أولاً إلى تحديد المتغيرات المقابلة على المستوى العام أو مستوى الوحدة في الفصل.
(2) السمات والتعاريف الأساسية للأحداث ؛
كما هو الحال مع أحداث النموذج، تحتوي الفئات أيضًا على حدثين أساسيين، Class_Initialize (يتم تشغيله عند تحميل الفصل) وClass_Terminate (يتم تشغيله عند إلغاء تحميل الفصل)، وكلاهما خاص. في الواقع، يمكننا تجاهل هذين الحدثين تمامًا - طالما أنك تتذكر إكمال أساليب وخصائص الفصل.
يمكن للفئات أيضًا تحديد الأحداث الخاصة بها، والتي تشبه تنسيق برمجة الأساليب، باستثناء أن الكلمة الأساسية WithEvents مطلوبة لإعلان المعلمة، ولا يمكن أن يحتوي الحدث على أي معلمات مسماة أو معلمات اختيارية، ولا يحتوي على قيمة إرجاع.
في الواقع، يمكن للأساليب والخصائص جيدة التنظيم أن تحل محل أحداث الفئات ذات البنية المعقدة تمامًا.
(3) أمثلة برمجة لأساليب الفصل والأحداث والخصائص ؛
الغرض من هذا البرنامج هو التحكم في جميع الأحرف الكبيرة والصغيرة والفرز العكسي لمحتويات مربع النص في النموذج من خلال الفئات.
لتسهيل كتابة واستدعاء التعليمات البرمجية، قمت بمراجعة طريقة برمجة التعداد في الفصل.
الكود التالي موجود في الفئة Class1:
خيار صريح
PrivateWithEventsmyTXTAsTextBox
"واجهة معلمة الطريقة."
PublicEnumsTYLE
سمة Lcaseit الصغيرة
سمة الكتابة بالأحرف الكبيرة Lbigit
سمة الفرز العكسي لـ Nlogoit
EndEnum
'التعداد المخصص، يستخدم لتنفيذ التعيين التلقائي للسمات
PrivatemvarBiaozhiAssTYLE
'تنفيذ اتصال ثوابت التعداد
PublicFunctiondONE()AsString'
'يتم استخدام طريقة DONE لتعيين
'قم بإجراء عمليات تحويل الأحرف المقابلة في مربع نص النموذج
'وإرجاع السلسلة المحولة
IfmvarBiaozhi=NlogoitThen
dONE=StrReverse(myTXT)
'الفرز العكسي
ElseIfmvarBiaozhi=LcaseitThen
dONE=LCase(myTXT)
'فرض التحويل بالأحرف الصغيرة
آخر
dONE=UCase(myTXT)
'فرض التحويل بالأحرف الكبيرة
EndIf
وظيفة النهاية
'تنتهي طريقة DONE
PublicPropertyLetBiaozhi(ByValvDataAssTYLE)
'احصل على القيمة المخصصة للسمة
mvarBiaozhi=vData
EndProperty
PublicPropertyGetBiaozhi()AssTYLE
"نقل قيم السمات إلى الفصل."
SetBiaozhi=mvarBiaozhi
EndProperty
PublicSubAttach(itTEXTAsTextBox)
"طريقة فئة الاتصال
SetmyTXT=itTEXT
EndSub
PrivateSubClass_Initialize()
'يتم تنشيط هذا الحدث عند تحميل الفصل
MsgBox "مرحباً! هذا البرنامج يعرض لك تقنيات البرمجة باستخدام أساليب وخصائص وأحداث الفصل!"
EndSub
PrivateSubClass_Terminate()
'يتم تنشيط هذا الحدث عندما يتم إلغاء تحميل الفصل
MsgBox "مرحباً! تذكر إدخال رمز إلغاء الكائن في Class_Terminate!"
EndSub
"لقد انتهى رمز الفصل في كل مكان."
(4) البرمجة المرجعية لرمز النموذج ؛
قم بإضافة عنصر تحكم النص TEXT1 وعنصر تحكم القائمة المنسدلة COMBO1 وزر الأمر COMMAND1 (CAPTION = "بدء التحويل") لتكوين النموذج FORM1، ثم قم بضبط عناصر التحكم الثلاثة على المواضع المناسبة.
DimmyTAsNewClass1
"مرجع الطبقة
PrivateSubForm_Load()
كومبو1.واضح
Combo1.AddItem"تحويل الأحرف الكبيرة للسلسلة"
Combo1.AddItem "تحويل الأحرف الصغيرة للسلسلة"
Combo1.AddItem "سلسلة الفرز العكسي"
Combo1.ListIndex=0
'أضف خيارات السمات إلى مربع القائمة
EndSub
PrivateSubCommand1_Click()
'قم بتنشيط الفصل عند الضغط على زر الأمر
myT.AttachText1
'طريقة اتصال المعلمة
SelectCaseCombo1.ListIndex
الحالة0
myT.Biaozhi=Lbigit
الحالة1
myT.Biaozhi=Lcaseit
الحالة2
myT.Biaozhi=Nlogoit
EndSelect
'وفقًا للاختيار الموجود في مربع القائمة، قم بتعيين قيمة لسمة Biaozhi للفئة
'لاحظ أنه في بيئة البرمجة، تتم إضافة قيم السمات المذكورة أعلاه تلقائيًا
Text1.Text=myT.dONE
'أعد السلسلة بعد الفرز
EndSub
PrivateSubForm_Unload(CancelAsInteger)
SetmyT=لا شيء
نهاية
"عادات البرمجة الجيدة."
EndSub
ماذا عن ذلك، يبدو الكود الخاص بنا موجزًا للغاية، ويبدو الأمر وكأنه يستخدم عنصر تحكم، والذي لا يمكن استدعاؤه حسب الرغبة فحسب، بل يمكن أيضًا استخدام وظيفة المطالبة التلقائية لـ VB بشكل ملائم.
(5) ملخص لتقنيات البرمجة الصفية ؛
بالمعنى الدقيق للكلمة، تعد الفصول الدراسية تقنية مفيدة للغاية في برمجة VB، كما أنه من الصعب تعلمها وإتقانها. ومع ذلك، يتم استخدامها على نطاق واسع وفعال في مشاريع البرمجيات واسعة النطاق، من أجل تحسين البرمجيات لتحقيق الكفاءة ووضوح التعليمات البرمجية، يجب عليك تجنب استخدام المزيد من الوحدات النمطية للفصل وعناصر التحكم ومكتبات الاتصال واستبدالها بالوحدات النمطية القياسية.
مثال التعليمات البرمجية الموجود في هذه المقالة بسيط نسبيًا، ولكنه يغطي جميع جوانب تقنية برمجة الوحدات النمطية، وآمل أن يتعلم منه المبتدئون وأن يتمكن المبرمجون من مناقشته معًا. يجب أن نؤمن أنه بغض النظر عن مدى تعقيد المباني الشاهقة، فهي كلها مصنوعة من الطوب العادي. وبالمثل، بغض النظر عن مدى تعقيد المشاريع البرمجية، فهي تتكون من بيانات برمجية أساسية ومبرمجين المحلل هو أن البرامج التي تم إنشاؤها بنفس بيانات البرنامج مختلفة. ->