الصفحات المتعددة MultiPage control

يتألف عنصر تحكم الصفحات المتعددة من واحد أو أكثر من الكائنات صفحة، تحتوي كل منها على مجموعتها الخاصة من الضوابط. يتم استخدام متعدد أفضل عندما كنت ترغب في التعامل مع كمية كبيرة من البيانات التي يمكن تصنيفها إلى فئات متعددة، حيث يمكن إنشاء صفحة منفصلة لكل فئة. وترد جميع الضوابط التي تمت إضافتها إلى صفحة في عنصر تحكم متعدد الصفحات، في وتصبح جزءا من هذه الصفحة والذي يميز عناصر التحكم من تلك التي هي على خلاف ذلك جزء من في UserForm. عنصر تحكم متعددة لديها العديد من الصفحات، حيث اختيار صفحة يجعلها واحدة الحالية (مما يجعلها مرئية) في الوقت الذي يختبئ الآخرين. كل صفحة من عنصر تحكم متعدد الصفحات لديها ترتيب الجدولة الخاصة. يتم ترقيم الصفحات من صفر، ولتحديد الصفحة الأولى في عنصر تحكم متعدد الصفحات، استخدم التعليمات البرمجية: MultiPage1.Value = 0. افتراضيا، عنصر تحكم متعدد الصفحات لديه 2. لإضافة صفحات، انقر بزر الماوس الأيمن على علامة التبويب واختر الصفحة جديد ((حدد حذف الصفحة لحذف صفحة) ملاحظة: كل صفحة من عنصر التحكم المتعددMultiPage سوف يكون منفصل ويمكن استخدام مجموعة او اكثر من  ا OptionButtons، بغض النظر عن ما إذا كانت جميع OptionButtons (عبر كل الصفحات ) لها نفس اسم مجموعة.  

أدعوا الله سبحانه وتعالي

ان اكون وفقت في تبسيط المعلومة وسردها وشرحها بما يتناسب مع جميع المستويات

درسنا اليوم سوف نشرح به اداة اخري من ادوات الفورم

وانا عن نفسي اسميها بالاداة السحرية لما تتمتع به من قدرات علي التحكم بالفورم وقدرات مذهلة حقا في الابداع والابتكار في التصميم

الاداة هي الصفحات المتعددة     MultiPage control

نبدا علي بركة الله
بسم الله الرحمن الرحيم
يتألف عنصر تحكم الصفحات المتعددة من واحد أو أكثر من الكائنات صفحة، تحتوي كل منها على مجموعتها الخاصة من الضوابط. يتم استخدام متعدد أفضل عندما كنت ترغب في التعامل مع كمية كبيرة من البيانات التي يمكن تصنيفها إلى فئات متعددة، حيث يمكن إنشاء صفحة منفصلة لكل فئة. وترد جميع الضوابط التي تمت إضافتها إلى صفحة في عنصر تحكم متعدد الصفحات، في وتصبح جزءا من هذه الصفحة والذي يميز عناصر التحكم من تلك التي هي على خلاف ذلك جزء من في UserForm. عنصر تحكم متعددة لديها العديد من الصفحات، حيث اختيار صفحة يجعلها واحدة الحالية (مما يجعلها مرئية) في الوقت الذي يختبئ الآخرين. كل صفحة من عنصر تحكم متعدد الصفحات لديها ترتيب الجدولة الخاصة. يتم ترقيم الصفحات من صفر، ولتحديد الصفحة الأولى في عنصر تحكم متعدد الصفحات، استخدم التعليمات البرمجية: MultiPage1.Value = 0. افتراضيا، عنصر تحكم متعدد الصفحات لديه 2. لإضافة صفحات، انقر بزر الماوس الأيمن على علامة التبويب واختر الصفحة جديد ((حدد حذف الصفحة لحذف صفحة) ملاحظة: كل صفحة من عنصر التحكم المتعددMultiPage سوف يكون منفصل ويمكن استخدام مجموعة او اكثر من  ا OptionButtons، بغض النظر عن ما إذا كانت جميع OptionButtons (عبر كل الصفحات ) لها نفس اسم مجموعة.  


"إستخدام الأسلوب Add: بناء الجملة: تعيين M = MultiPage1.Pages.Add ( pageCaption، pageIndex). pageIndex (اختياري) هو عدد صحيح الذي يحدد موقف للصفحة التي ستدرج لاحقا، بدءا من صفر لأول صفحة / يتم تعيين اسم للصفحة، pageCaption يحدد تسمية توضيحية. كلاهما اختياري التحديد. مثال علي ذلك

     

Set m = MultiPage1.Pages.Add("Page5", "NewPage", 1)

هذا السطر يضيف صفحة جديدة مع اسم Page5 والتسمية التوضيحية NewPage، مثل الصفحة الثانية (المركز الثاني في ترتيب الصفحات).
   

MultiPage1.Pages.Add "Page3";    MultiPage1.Pages(2).Caption = "NewPage"

لاضافة صفحة جديدة ,وتعيين التسمية التوضحية  newPage

ويمكن نستخدم امر مباشر بسيط MultiPage1.Pages.Add لاضافة صفحة جديدة

ولازالة صفحة MultiPage1.Pages.Remove (pageIndex).

مثال

MultiPage1.Pages.Remove (1)

وذلك لازالة الصفحة الثانية      

لتغيير أو تعيين خصائص الصفحة في وقت التشغيل، يتعين علينا أن نحدد أن الصفحة في عنصر تحكم متعدد الصفحات، التي يمكن أن يتم بطرق مختلفة. للوصول إلى صفحة فردية في عنصر تحكم متعدد الصفحات، بعد طرق التحكم في الصفحات            

     

1. مؤشر رقمي (باستخدام مجموعة صفحات): 0 مؤشر يشير إلى الصفحة الأولى، مؤشر 1 إلى الصفحة الثانية، وهلم جرا. رمز لتعيين تسمية توضيحية -. MultiPage1.Pages      
     

2. الطريقة البند (باستخدام مجموعة صفحات): البند 0 مؤشر يشير إلى الصفحة الأولى، مؤشر البند 1 إلى الصفحة الثانية، وهلم جرا. رمز لتعيين تسمية توضيحية -. MultiPage1.Pages.Item (ItemIndex) التعليق      
   
3. اسم الصفحة:. رمز لتعيين تسمية توضيحية - MultiPage1.Pages ("[PageName") تسمية توضيحية أو MultiPage1.Pages.Item ("[PageName") تسمية توضيحية      
 
4. كائن الصفحة: رمز لتعيين تسمية توضيحية - MultiPage1.PageName.Caption      
 
5. SelectedItem : رمز لتعيين تسمية توضيحية - MultiPage1.SelectedItem.Caption      
 
مثال : تغيير خصائص كل صفحة من عنصر تحكم متعددة، وذلك باستخدام أساليب مختلفة من الصفحة التحديد.  
مثال  عملي    

في حال كنت ترغب في عمل فورم لادخال  البيانات بشكل تسلسلي (أي خطوة واحدة تلو الأخرى)، ثم بدلا من استخدام UserForms المتعددة (أكثر من فورم)  فمن الأفضل لاستخدام عنصر تحكم الصفحات المتعددة لإنشاء صفحات متعددة في UserForm واحدة. يمكن جعل الصفحة التالية يمكن الوصول إليها إلا بعد أن تم ملؤها في الصفحة السابقة ودخلت. وتبين لنا كيفية إنشاء واجهة معالج يتكون من 4 صفحات، على النحو المبين أدناه.       
سوف نستخدم عنصر تعدد الصفحات في انشاء فورم طلب توظيف ونستعرض معا كل مرحلة ونقوم بمراجعة خصائص المجموعة المشتركة في الاطارات واضافة عناصر الي الليست بوكس والكمبو بوكس      
 
     الاعداد للفورم (طلب توظيف)

الصفحة الاولي والتي سوف نقوم فيها بادخال الأسم

ولا يمكن لنا الانتقال للصفحة التالية الا بعد استكمال البيانات

الصفحة الثانية والتي سوف نقوم فيها باختيار النوع والعمر

الصفحة الثالثة والتي سوف نقوم فيها باختيار الحالة الأجتماعية والجنسية

الصفحة الرابعة والتي سوف نختار منها مجال العمل والمستوي التعليمي

   وسوف نستخدم الكود التالي في حدث انطلاق الفورم لضبط اعدادات الصفحات وتسميتها وتسمية الاطارات

وفي حدث

Private Sub MultiPage1_Change() 

سوف نقوم بوضع الكود التالي لضبط الانتقال بين الصفحات بواسطة مفتاحي التالي والسابق وضبط مفتاح الحفظ كالتالي
   
برمجة مفتاح السابق للتنقل بين الصفحات

برمجة مفتاح (التالي) للتنقل بين الصفحات

وفي النهاية كود مفتاحي الحفظ والخروج  
 
أدعوا الله سبحانه وتعالي

ان اكون وفقت في تبسيط المعلومة وسردها وشرحها بما يتناسب مع جميع المستويات

الاكواد مشروحة سطر سطر مع الفورم والتطبيق بالمرفقات
ضع رد لرفع الملف
الشرح منقول

مثـال (1)

سنقوم بانشاء يوزر فورم بسيط واضافة عنصر الصفحات المتعددة MultiPage  وسوف نتعرف معا علي كيفية اعطاء اسم لكل صفحة عن طريق الكود  والانتقال بين الصفحات عن طريق اداة الــ ( SpinButton ) وكذلك اضافة عنوان يتغير مع تغيير الصفحة .

اولا :-  في حدث التغيير Change  لاداة الصفحات المتعددة  MultiPage1 نضيف الكود التالي لتحديد اسماء الصفحات وكذلك لتغير العنوان مع كل صفحة بالضافة لعرض اسم الصفحة اعلي الفورم

Private Sub MultiPage1_Change()
'لتغير بيانات العنوان وعنوان الفورم مع تغيير الصفحة
Select Case MultiPage1.Value
Case 0
Lb_Information.Caption = "شاشة أدخال البيانات"
Me.Caption = MultiPage1.Pages(0).Caption
Case 1
Lb_Information.Caption = "شاشة البحث"
Me.Caption = MultiPage1.Pages(1).Caption
Case 2
Lb_Information.Caption = "شاشة التقارير والطباعة"
Me.Caption = MultiPage1.Pages(2).Caption
End Select
End Sub

ثانيا :- في حدث تشغيل الفورم UserForm_Activate نحدد الحد الادني والاعلي لاداة التحكم SpinButton

Private Sub UserForm_Activate()
'في حدث تشغيل الفورم
'تعين الحد الادني والاقصي لمفتاح التنقل
 With SpinButton1
   .Min = 0
   .Max = MultiPage1.Pages.Count
 End With

End Sub

ثالثا:- في حدث الـChange لاداة التحكم SpinButton1

Private Sub SpinButton1_Change()
'في حدث التغير لمفتاح الانتقال
  MultiPage1.Value = SpinButton1.Value - 1
End Sub

رابعا :- في حدث انطلاق الفورم نحدد صفحة البداية ولتكن مثلا الصفحة الاولي -  للصفحات المتعددة

Private Sub UserForm_Initialize()
'في حدث انطلاق الفورم
'لتحديد صفحة البداية الصفحة الاولي
MultiPage1.Value = 0
    End Sub

مثال (2)

سوف نتعرف من خلاله علي كيفية التحكم في عرض الصفحات عن طريق زر (التالي والسابق)

اولا: - نضيف زرأمر CommandButton ونخصصه لوظيفة (التالي) وأخر نخصصه لزر (السابق)

ثانيا:- حدث الضغط علي زر امر (التالي) نضيف مايلي

Private Sub cmdNext_Click()
'في حدث الضفط علي زر التالي
Dim idxPage As Integer
  idxPage = Me.MultiPage1.Value + 1
  If idxPage = 3 Then Exit Sub
  Me.MultiPage1.Value = idxPage
End Sub

ثالثا:- في حدث الضغط علي زر أمر (السابق)

Private Sub cmdPrevious_Click()
'في حدث الضغط علي زر السابق
 If Me.MultiPage1.Value = 0 Then
   Exit Sub
  Else
    Me.MultiPage1.Value = Me.MultiPage1.Value - 1
  End If

End Sub
مثال(3)

استخدام زر امر واحد للتنقل بين الصفحات
 
Private Sub Cmb_Move_Click()
'في حدث الضغط علي زر التحرك بين الصفحات
Dim idxPage As Integer
  idxPage = Me.MultiPage1.Value + 1
  If idxPage = 3 Then idxPage = 0
  Me.MultiPage1.Value = idxPage
End Sub
مثال (4)

الانتقال بين الصفحات باستخدام الـVBA مع اخفاء جميع الصفحات واظهار صفحة محددة وربطها بزر امر

اولا :- نضيف كود اخفاء الصفحات خلال تشغيل الفورم

WFNBB3.png

Sub CtrlPages()
'لاخفاء جميع الصفحات
With Me
For Each pPage In .MultiPage1.Pages
   pPage.Visible = 0
Next pPage
'لتحديد استايل عرض الصفحات بدون عنواين
.MultiPage1.Style = fmTabStyleNone
End With: End Sub

ثانيا:-  نقوم باضافة عدد 3 زر امر

1- زر امر مثلا لشاشة الادخال وفي حدث الكليك نضيف الكود التالي


Private Sub Cmb_Entry_Click()
With Me
'استدعاء كود الاخفاء
CtrlPages
'اظهار الصفحة الأولي
.MultiPage1.Pages(0).Visible = True
.MultiPage1.Value = 0
End With: End Sub

2- زرامر للصفحة الثانية  مثلا لشاشة البحث

Private Sub Cmb_Search_Click()
With Me
CtrlPages
'اظهار الصفحة الثالثة
.MultiPage1.Pages(1).Visible = True
.MultiPage1.Value = 1
End With: End Sub

3- زر امر للصفحة الثالثة مثلا التقارير

Private Sub Cmb_Repors_Click()
With Me
CtrlPages
'اظهار الصفحة الثانية
.MultiPage1.Pages(2).Visible = True
.MultiPage1.Value = 2
End With: End Sub

ثالثا:- تعين الصفحة الاولي كصفحة البداية عند تشغيل الفورم

Private Sub UserForm_Activate()
'جعل صفحة بداية الفتح الصفحة الاولي
Cmb_Entry_Click
End Sub
ضع رد لظهور الملف

بارك الله فيك استاذ مجدي

وبارك فيك

الف شكر

جزاك الله خيراً

الف شكر

thnks

thnks

عمل ممتاز

وفقك الله لما فيه خدمة المسلمين

الف شكرلك

مشكور استاذنا

اى خدمة

مشكور

اى خدمة

شكرا

عفوا

شكرا لك على المعلومات

الله يرزقك الجنة

شكرا للدعاء