أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





مسح محتويات أدوات التحكم في الفورم

السلام عليكم ورحمة الله وبركاته إخواني الكرام من يتعامل مع الفورم وبرمجة الفورم سيحتاج لهذا الكود بشكل كبير ، فبفرض أن ..



26-08-2017 11:13 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 

السلام عليكم ورحمة الله وبركاته


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

نذهب لمحرر الأكواد عن طريق الضغط على Alt + F11
نقوم بإدراج فورم UserForm من خلال قائمة Insert ثم نختار UserForm
نقوم بوضع ثلاثة أدوات تحكم TextBox1 و ListBox1 و ComboBox1 و CommandButton1 ، ثم نقوم بتغيير بعض الخصائص من خلال نافذة الخصائص .. 
نقوم بتغيير خاصية العنوان Caption لزر الأمر عن طريق تحديد زر الأمر والدهاب لنافذة الخصائص ومن الخاصية Caption نكتب كلمة Clear
نحدد التكست بوكس ثم من خاصية Text نكتب أي قيمة نصية وليكن Hello
MjgwNTYx001
الآن ننتقل لوضع الأكواد ويكون ذلك عن طريق كليك يمين على اسم الفورم من نافذة المشروع ثم اختر View Code كما بالصورة
Mjg0MzgxMQ9595002
قم بوضع الأكواد التالية والتي تقوم بتعبئة الكومبوبوكس والليست بوكس ببعض القيم ، والكود الثاني هو كود لزر الأمر CommandButton1 والذي يقوم باستدعاء كود المسح
Option Explicit

Private Sub UserForm_Initialize()
    'تعبئة الكومبوبوكس ببعض القيم
    With ComboBox1
        .AddItem "A"
        .AddItem "B"
        .AddItem "C"
    End With

    'تعبئة الليست بوكس ببعض القيم
    With ListBox1
        .AddItem "D"
        .AddItem "E"
        .AddItem "F"
    End With

    'اختيار أول اختيار في الكومبوبوكس
    ComboBox1.ListIndex = 0
End Sub

Private Sub CommandButton1_Click()
    'استدعاء الكود الذي يقوم بمسح أدوات التحكم يليه اسم الكائن
    'المطلوب التعامل معه ، والكائن هنا هو الفورم ويتم الإشــارة
    'أو [UserForm1] إلى الفـورم عن طريق اسـم الفورم بهذا الشكل
    'للإشارة للفورم نفسه الذي بـه الكـود [Me] يمكن استخدام كلمة
    ResetUserFormControls Me
End Sub


الآن قم بإدراج موديول جديد من قائمة Insert ثم Module وضع الكود التالي فيه
Option Explicit

Sub Show_Form()
    'مع إمكانية التعامل مع ورقة العمل [UserForm1] إظهار الفورم المسمى
    'بدلاً من الصفر [vbModeless] يمكن استخدام كلمة
    UserForm1.Show 0
End Sub

Sub ResetUserFormControls(obj As UserForm)
'هذا هو الإجراء العام الذي يقوم بعمل حلقة تكرارية لأدوات التحكم
'الموجـودة داخل الفـورم ثم يقوم بمسـح محتوياتها وتشمـل الأدوات
'التكست بوكـس والكومبوبوكـس والليست بوكـس ثم يوضع مؤشر الماوس
'في التكست بوكس رقم 1 ويمكن حذف السطر الأخير -لك حرية التعديل
    Dim c As Control

    For Each c In obj.Controls
        Select Case TypeName(c)
            Case "TextBox"
                c.Text = vbNullString
            Case "ListBox", "ComboBox"
                c.ListIndex = -1
                c.Clear
        End Select
    Next c
    obj.TextBox1.SetFocus
End Sub


الأكواد عليها تعليقات فيها شرح للأسطر الموجودة ...
وأخيراً يمكنك رسم زر أمر على ورقة العمل ، ثم كليك يمين على الزر ثم اختر Assign Macro وحدد الكود المسمى Show_Form والذي يقوم بإظهار الفورم
بمجرد النقر على هذا الزر وتشغيل الكود سيتم تعبئة الكومبوكس والليست بوكس ، قم بالنقر على زر الأمر Clear وستجد أن كل أدوات التحكم قد تم مسح محتوياتها

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

أخوكم في الله / ياسر خليل أبو البراء
 
 







26-08-2017 11:36 مساء
مشاهدة مشاركة منفردة [1]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 639
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 534
قوة السمعة : 6873
الاعجاب : 246
 Online 
look/images/icons/i1.gif مسح محتويات أدوات التحكم في الفورم
بارك الله فيك أستاذ ياسر على هذا لشرح الرائع
الحمد لله تم التطبيق على الملف الخاص بنجاح
تقبل تحياتى





27-08-2017 12:04 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif مسح محتويات أدوات التحكم في الفورم
جزيت خيراً أخي الحبيب محمد الدسوقي والحمد لله الذي بنعمته تتم الصالحات
تقبل وافر تقديري واحترامي





07-10-2017 11:54 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif مسح محتويات أدوات التحكم في الفورم
وهذا رابط لموضوع مشابه للأخ طلعت محمد حسن
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب





16-10-2017 02:51 مساء
مشاهدة مشاركة منفردة [4]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1712
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17640
الاعجاب : 327
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif مسح محتويات أدوات التحكم في الفورم

جزاكم الله خيرا ابوبراء موضوع رائع 142





توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



16-10-2017 02:56 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif مسح محتويات أدوات التحكم في الفورم
وجزيت خيراً بمثل ما دعوت لي وزيادة أخي وحبيبي في الله حسام خطاب
تقبل وافر تقديري واحترامي





16-10-2017 08:15 مساء
مشاهدة مشاركة منفردة [6]
Kamel meraghni
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 105
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 637
الاعجاب : 8
 offline 
look/images/icons/i1.gif مسح محتويات أدوات التحكم في الفورم
بسم الله ما شاء الله  دائما مبدع اخي ياسر اللهم لا حسد



توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142




16-10-2017 08:34 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif مسح محتويات أدوات التحكم في الفورم
تسلم أخي العزيز كامل ومشكور على مرورك العطر





10-12-2018 10:33 صباحا
مشاهدة مشاركة منفردة [8]
fady_dd
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-11-2018
رقم العضوية : 9298
المشاركات : 114
الجنس : ذكر
تاريخ الميلاد : 27-6-1985
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 106
الاعجاب : 3
 offline 
look/images/icons/i1.gif مسح محتويات أدوات التحكم في الفورم
بارك الله فيك





13-12-2018 09:09 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif مسح محتويات أدوات التحكم في الفورم
مشكور على مرورك أخي الكريم فادي





14-12-2018 12:47 مساء
مشاهدة مشاركة منفردة [10]
khaledabz
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-04-2018
رقم العضوية : 5550
المشاركات : 40
الجنس : ذكر
تاريخ الميلاد : 20-5-1985
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 64
الاعجاب : 0
 offline 
look/images/icons/i1.gif مسح محتويات أدوات التحكم في الفورم
دائم الابداع





16-12-2018 02:48 مساء
مشاهدة مشاركة منفردة [11]
abdulwahed catran
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 219
المشاركات : 161
الجنس : ذكر
تاريخ الميلاد : 10-2-1968
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 266
الاعجاب : 8
 offline 
look/images/icons/i1.gif مسح محتويات أدوات التحكم في الفورم
جزاكم الله خيرا





16-12-2018 04:25 مساء
مشاهدة مشاركة منفردة [12]
Excelawy
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 30
المشاركات : 325
الجنس : ذكر
تاريخ الميلاد : 9-12-1989
يتابعهم : 6
يتابعونه : 9
قوة السمعة : 576
الاعجاب : 31
 offline 
look/images/icons/i1.gif مسح محتويات أدوات التحكم في الفورم
دائما مبدع أستاذى الغالى / ياسر خليل
 







الكلمات الدلالية
لا يوجد كلمات دلالية ..


 







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



الساعة الآن 09:49 مساء

أعلن هنا
أعلن هنا
أعلن هنا