| الصفحات المتعددة MultiPage control | |
|
+30مهدي عثمان alazmi777 arsalanamin Adel200 ليلى محمد المبروك مصطفى AZIDAN Essam رشيد معشي LYAZID2012 ayhah يسرون بركات مساهم ALI@ALI الأستاذ ناصر عراقى الليثى moya99 hamid med هاوي برمجه maikelyahya ALRAiQ omar.hosa mtoussa muhamed elsheimi yemen205 moez khairi مجدى يونس 34 مشترك |
|
كاتب الموضوع | رسالة |
---|
عراقى الليثى
عدد المساهمات : 2 تاريخ التسجيل : 26/03/2020
| موضوع: رائع الجمعة مارس 27, 2020 10:09 pm | |
| | |
|
| |
الأستاذ ناصر
عدد المساهمات : 8 تاريخ التسجيل : 09/01/2020
| موضوع: رد: الصفحات المتعددة MultiPage control الجمعة مارس 27, 2020 10:15 pm | |
| | |
|
| |
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
| موضوع: رد: الصفحات المتعددة MultiPage control الخميس أبريل 09, 2020 11:26 am | |
| _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك | |
|
| |
ALI@ALI
عدد المساهمات : 4 تاريخ التسجيل : 11/04/2020
| موضوع: رد: الصفحات المتعددة MultiPage control السبت أبريل 11, 2020 4:15 pm | |
| شكراً استاذ مجدي على مجهودك وجعلها الله في ميزان حسناتك | |
|
| |
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
| موضوع: رد: الصفحات المتعددة MultiPage control السبت أبريل 18, 2020 1:27 pm | |
| شكرا لك _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك | |
|
| |
مساهم
عدد المساهمات : 5 تاريخ التسجيل : 09/06/2020
| موضوع: رد: الصفحات المتعددة MultiPage control الثلاثاء يونيو 09, 2020 3:09 pm | |
| السلام عليكم إني عضوجد يد في هذا المنتدي أرجو التوجيه كي أساهم في نفع الأخرين | |
|
| |
مساهم
عدد المساهمات : 5 تاريخ التسجيل : 09/06/2020
| موضوع: رد: الصفحات المتعددة MultiPage control الثلاثاء يونيو 09, 2020 3:12 pm | |
| | |
|
| |
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
| موضوع: رد: الصفحات المتعددة MultiPage control الخميس يونيو 11, 2020 4:13 am | |
| اهلا بك لو عندك ملفات ممكن تفتح موضوع جديد وتنزلها ليستفيد منها الاخرين _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك | |
|
| |
بركات
عدد المساهمات : 127 تاريخ التسجيل : 30/05/2020
| موضوع: رد: الصفحات المتعددة MultiPage control الثلاثاء يونيو 23, 2020 10:59 pm | |
| | |
|
| |
يسرون
عدد المساهمات : 9 تاريخ التسجيل : 30/06/2020
| موضوع: شكرا السبت يوليو 04, 2020 2:11 am | |
| | |
|
| |
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
| موضوع: رد: الصفحات المتعددة MultiPage control الثلاثاء يوليو 14, 2020 8:34 am | |
| شكرا لكم _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك | |
|
| |
ayhah
عدد المساهمات : 4 تاريخ التسجيل : 19/08/2020
| موضوع: شكر وتقدير الثلاثاء أغسطس 25, 2020 3:27 pm | |
| استاذي الجليل بارك الله فيك وفي أعمالك وفي صحتك ودمتم لنا بكل خير وصحه | |
|
| |
LYAZID2012
عدد المساهمات : 25 تاريخ التسجيل : 08/04/2020
| موضوع: رد: الصفحات المتعددة MultiPage control الخميس أغسطس 27, 2020 1:35 pm | |
| | |
|
| |
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
| موضوع: رد: الصفحات المتعددة MultiPage control الأربعاء سبتمبر 09, 2020 4:24 pm | |
| وبارك فيك _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك | |
|
| |
معشي
عدد المساهمات : 46 تاريخ التسجيل : 02/10/2020
| موضوع: رد: الصفحات المتعددة MultiPage control الجمعة أكتوبر 02, 2020 7:20 am | |
| | |
|
| |
معشي
عدد المساهمات : 46 تاريخ التسجيل : 02/10/2020
| موضوع: رد: الصفحات المتعددة MultiPage control الجمعة أكتوبر 02, 2020 7:49 am | |
| | |
|
| |
رشيد
عدد المساهمات : 34 تاريخ التسجيل : 23/07/2019
| موضوع: رد: الصفحات المتعددة MultiPage control الإثنين أكتوبر 19, 2020 12:36 pm | |
| | |
|
| |
Essam
عدد المساهمات : 10 تاريخ التسجيل : 12/04/2017
| موضوع: رد: الصفحات المتعددة MultiPage control السبت نوفمبر 21, 2020 8:49 pm | |
| | |
|
| |
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
| موضوع: رد: الصفحات المتعددة MultiPage control الأربعاء نوفمبر 25, 2020 9:28 am | |
| _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك | |
|
| |
بركات
عدد المساهمات : 127 تاريخ التسجيل : 30/05/2020
| موضوع: رد: الصفحات المتعددة MultiPage control الأحد ديسمبر 27, 2020 9:21 pm | |
| | |
|
| |
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
| موضوع: رد: الصفحات المتعددة MultiPage control السبت يناير 02, 2021 6:30 am | |
| شكرا لك _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك | |
|
| |
AZIDAN
عدد المساهمات : 2 تاريخ التسجيل : 19/02/2021
| موضوع: رد: الصفحات المتعددة MultiPage control الجمعة فبراير 19, 2021 1:31 pm | |
| | |
|
| |
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
| موضوع: رد: الصفحات المتعددة MultiPage control الثلاثاء مارس 02, 2021 10:02 am | |
| العفو _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك | |
|
| |
المبروك مصطفى
عدد المساهمات : 1 تاريخ التسجيل : 09/03/2021
| موضوع: رد: الصفحات المتعددة MultiPage control الثلاثاء مارس 09, 2021 10:48 am | |
| - مجدى يونس كتب:
تطبيقات عملية للخصائص المتقدمة لأداة التحكم
(الصفحات المتعددة - MultiPage control )
وكيفية التحكم فيها بأكثر من طريقة مثـال (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 ضع رد لظهور الملف
| |
|
| |
ليلى محمد
عدد المساهمات : 8 تاريخ التسجيل : 16/03/2021
| موضوع: رد: الصفحات المتعددة MultiPage control الثلاثاء مارس 16, 2021 6:57 pm | |
| | |
|
| |
| الصفحات المتعددة MultiPage control | |
|