كل ما تريد معرفتة عن Multipage فى اليوزرفورم Userform
السلام عليكم ورحمة الله وبركاتة
اهلا بكم متابعى موقع عالم الاوفيس
فى هذا المقال سنلقي نظرة على برنامج في Excel VBA يقوم بإنشاء
Userform يحتوي على صفحات متعددة Multipage. ويحتوي ايضا هذا الفورم على كيفية عرض الصور ,
يحتوي Multipage
على صفحتين. في الصفحة 1 ، يمكن للمستخدم ملء معلوماته الشخصية. في
الصفحة 2 ، يمكن للمستخدم تحديد اللوحة التي يحبها أكثر من غيرها.
لإنشاء Userform هذا ، قم بتنفيذ الخطوات التالية.
1. افتح محرر Visual Basic. إذا لم يكن Project Explorer مرئيًا
، فانقر فوق عرض ، مستكشف المشاريع Project Explorer.
2. انقر فوق إدراج ، Userform. إذا لم يظهر Toolbox تلقائيًا
، فانقر فوق عرض ، مربع الأدوات. يجب إعداد شاشتك على النحو التالي.
3. أضف عنصر Multipage ، والتسميات
، ومربعات النص (أولاً في الأعلى ، والثاني أسفل الأول) ، والإطار ، وأزرار الخيار
(أولاً على اليسار ، والثاني على اليمين) ، ومربع القائمة ، والتحكم في الصورة ، وزر
الأمر. بمجرد اكتمال ذلك ، يجب أن تكون النتيجة متسقة مع الإصدار الفارغ من Userform الموضح
سابقًا. على سبيل المثال ، قم بإنشاء عنصر تحكم Multipage بالنقر
فوق Multipage من Toolbox. بعد ذلك ، يمكنك سحب عنصر تحكم Multipage
في Userform.
4. يمكنك تغيير الأسماء والتعليقات التوضيحية
من عناصر التحكم. يتم استخدام الأسماء في كود Excel
VBA. التسميات التوضيحية هي تلك
التي تظهر على شاشتك. يُعد تغيير أسماء عناصر التحكم ممارسة جيدة ، ولكن هذا ليس ضروريًا
هنا لأن لدينا عددًا قليلاً من عناصر التحكم في هذا المثال. لتغيير التسمية التوضيحية
لـ Userform و Multipage tabs
والتسميات والإطار وأزرار الخيارات وزر الأمر ، انقر فوق View و Properties Window وانقر فوق
كل عنصر تحكم.
سنقوم الآن بإنشاء Sub UserForm_Initialize. عند استخدام الأسلوب Show لـ Userform ، سيتم
تنفيذ هذا الفرعي تلقائيًا.
6. افتح محرر Visual Basic.
7. في Project
Explorer ، انقر
بزر الماوس الأيمن فوق UserForm1
ثم انقر فوق "عرض الرمز".
8. اختر Userform
من القائمة المنسدلة اليسرى. اختر تهيئة من القائمة المنسدلة اليمنى.
9. أضف الاكواد البرمجية التالية:
Private Sub UserForm_Initialize()
With ListBox1
.AddItem "Mountains"
.AddItem "Sunset"
.AddItem "Beach"
.AddItem "Winter"
End With
End Sub
ولتحميل الصور الموجودة عندى على الجهاز نقوم بادراج الاكواد الاتية
Private Sub ListBox1_Click()
If ListBox1.ListIndex = 0 Then
Image1.Picture =
LoadPicture("C:\test\Mountains.jpg")
End If
If ListBox1.ListIndex = 1 Then
Image1.Picture =
LoadPicture("C:\test\Sunset.jpg")
End If
If ListBox1.ListIndex = 2 Then
Image1.Picture =
LoadPicture("C:\test\Beach.jpg")
End If
If ListBox1.ListIndex = 3 Then
Image1.Picture =
LoadPicture("C:\test\Winter.jpg")
End If
End Sub