كيفية عمل Scrollable UserForm

كيفية إنشاء Scrollable UserForm. يسمح لك هذا بوضع أشرطة التمرير في النموذج بحيث يمكنه الاحتفاظ بالمعلومات التي يمكن الوصول إليها عندما يقوم المستخدم بالتمرير لأسفل أو إلى اليمين.

إنشاء Scrollable UserForm

فى البداية نقوم بفتح محرر الاكواد من خلال الضغط على . تاب المطور او developer للانتقال إلى نافذة VBA >
ثم بعد ذلك انقر نقرًا مزدوجًا فوق UserForm من نافذة المشروع (Ctrl+R إذا كنت لا ترى تلك النافذة)
ثم تأكد من تحديد النموذج نفسه وليس عنصر تحكم داخل النموذج؛ قم بذلك عن طريق النقر فوق شريط العنوان الموجود أعلى النموذج.
تأكد أيضًا من ظهور نافذة الخصائص، وإذا لم تكن كذلك، فاضغط على F4 لعرضها.
في الوقت الحالي، اجعل النموذج كبيرًا بما يكفي لعرض كافة محتوياته؛ ثم انظر إلى نافذة الخصائص ولاحظ رقم خاصية الارتفاع:

القيمة 236.25 هي القيمة المطلوبة لعرض كل شيء في النموذج وسيتم استخدام هذا الرقم لاحقًا في البرنامج التعليمي.

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

انتقل إلى خيار ScrollBars.

انقر فوق الخيار الموجود على اليمين حتى تظهر القائمة.

اختر الاختيار الصحيح:
يعني fmScrollBarsHorizontal أن أشرطة التمرير من اليسار إلى اليمين ستظهر.
يعني fmScrollBarsVertical أن أشرطة التمرير لأعلى ولأسفل ستظهر - وهو الاختيار الأكثر شيوعًا.
يعني fmScrollBarsBoth أن أشرطة التمرير الأفقية والعمودية ستظهر.

خذ الرقم الذي حصلت عليه من الخطوة 1 وضعه في خاصية ScrollHeight إذا كنت تستخدم أشرطة التمرير العمودية و/أو إذا كنت تستخدم أشرطة التمرير الأفقية، فضع القيمة من خاصية Width في خاصية ScrollWidth.

في هذا المثال سوف نستخدم فقط أشرطة التمرير العمودية.

ستلاحظ أيضًا أنه بمجرد إدخال الرقم الخاص بخاصية ScrollHeight أو ScrollWidth، سيظهر شريط التمرير في النموذج، كما ترون في الصورة أعلاه.

تأكد من تعيين قيم ScrollLeft وScrollTop على 0. تتيح لك هذه الخصائص أن يكون لديك نموذج يمثل جزءًا من طريقة التمرير افتراضيًا؛ إذا كان هذا يبدو مربكًا، فما عليك سوى الانتظار حتى تعمل أشرطة التمرير واختبار بعض القيم لهذا الحقل، على سبيل المثال 20، ثم قم بتشغيل النموذج وسوف تفهم.

قم بتغيير حجم النموذج بحيث يكون بالحجم الذي تريده، والذي يجب أن يكون أصغر مما كان عليه في الخطوة 1. بمجرد القيام بذلك، ستلاحظ أن بعض عناصر التحكم لن تكون مرئية بعد الآن.

أنت الآن جاهز لاختبار النموذج!

قم بتشغيل النموذج لرؤية النتائج:

إذا لاحظت مساحة فارغة كبيرة جدًا في أسفل النموذج، فما عليك سوى الرجوع إلى نافذة الخصائص وضبط قيمة خاصية ScrollHeight حتى تظهر لك بشكل صحيح - افعل الشيء نفسه بالنسبة للعرض إذا كنت تستخدم أشرطة التمرير الأفقية.

ملحوظة

إن إضافة أشرطة التمرير إلى UserForms ليس بالأمر الصعب، فهو أمر مزعج بعض الشيء لأنه لا يعمل بشكل حدسي كما يبدو.

فقط تذكر أنه لضبط هذه الخصائص:

أشرطة التمرير

ارتفاع التمرير و/أو عرض التمرير

ScrollLeft و/أو ScrollTop

نادرًا ما يتم استخدام خاصيتي ScrollLeft وScrollTop، لأن النماذج تبدأ عادةً من الموضع العلوي الأيسر.

كيفية عمل Scrollable UserForm

إنشاء Scrollable UserForm

ملحوظة

قد يعجبك ايضا