VBA - إضافة عناصر التحكم بشكل حيوي إلى Userform

لإنشاء دعم لهذا العرض التوضيحي ، استخدمنا مثال الحاسبة ، ولكن هذه المرة قمنا بإنشاء جميع عناصر التحكم ديناميكيًا.

عند إنشاء عناصر تحكم بشكل حيوي على Userform ، لا يتعرف Excel على أسماء عناصر التحكم. هذا يعني أن الأحداث التي تم إنشاؤها بواسطة عناصر التحكم الخاصة بك وخصائصها لن تكون متاحة عن طريق الأسماء المخصصة. على سبيل المثال ، عندما تنشئ زرًا بالشفرة التالية:

Set Bouton = Me.Controls.Add ("Forms.CommandButton.1"، "Bt" & i، True)

سيكون اسم الزر (في حالة i = 1) BT1

ولكن لن يتم إنشاء حدث Private Sub BT1_Click (). لمعالجة هذه المشكلة ، استخدمت مجموعة من الكائنات للخصائص ومجموعات من الفئات للأحداث. لا تحتوي مجموعات الكائنات على عنصر التحكم فحسب ، بل تحتوي أيضًا على مفتاح للإشارة إليه. من خلال تكوين خاصية Tag لعناصر التحكم مع الفهرس المرغوب ، يمكن لمجموعة الفصل إرجاع فهرس يتيح لك أيضًا معرفة عنصر التحكم الذي كان موضوع هذا الحدث.

لا يوجد التحكم في تصميم UserForm. يتم إنشاء جميع عناصر التحكم ديناميكية الحاسبة ، بما في ذلك حاوية الإطارات. يعطي العرض التوضيحي أيضًا طريقة لدمج الأزرار في الإطارات