بسم الله الرحمن الرحيم
اهلا بحضراتك متابعى موقع عالم الاوفيس
نقوم اليوم بشرح سلسلة كاملة من ادوات Active X contorle
والتى تحتوى على مجموعة من الادوات المهمة التى نستخدمها مثل :
1- Textbox
2-Listbox
3-Combobox
4- Check box
5- Option button
6- Spin button
7- Label
8- Image
9-Command button
Text Box
التكست بوكس (مربع النص ) هو حقل فارغ يمكن للمستخدم القيام بملء هذا التكست بوكس وهو ايضا يستخدم فى ادخال البيانات
كيف ندرج Textbox فى ورقة العمل لخاصة بنا
1- فى علامة تبويب المطور Developer tab ونضغط على ادراج Insert
2- من مربع Active X contorle نختار ادراج مربع نص Text Box
3- نقوم برسم التكست بوكس على ورقة العمل ومن ثم نقوم بظبط خصائص التكست بوكس من قائمة الخصائص
List Box
الليست بوكس هى قائمة يقوم المستخدم باختيار اى عنصر من عناصر هذة القائمة
للادراج ليست بوكس نتبع الاتى
1- فى علامة تبويب المطور Developer tab ونضغط على ادراج Insert
2- من مربع Active X contorle نختار ادراج Listbox
3- نقوم برسم الاداة على ورقة العمل
وهنا عندنا ملاحظة: يمكنك ايضا تغيير اسم عنصر التحكم بالنقر بزر الماوس الأيمن على عنصر التحكم (تأكد من تحديد وضع التصميم) ثم النقر فوق "خصائص". Properties ولكن الآن ، سنترك ListBox1 كاسم مربع القائمة.
إنشاء كود فى حدث فتح الملف . سيتم تنفيذ التعليمات البرمجية المضافة إلى الحدث Open Workbook بواسطة Excel VBA عند فتح المصنف.
4. نفتح محرر Visual Basic.
5. اثم ننقر Dubbole Click فوق هذا المصنف في Project Explorer.
6. اختر مصنف من القائمة المنسدلة اليمنى واختر فتح من القائمة المنسدلة اليمنى.
7- ولكى نضيف بعض العناصر الى الليست بوكس نقوم بكتابة الكود التالى
With Sheet1.ListBox1
.AddItem "Egypt"
.AddItem "Cairo"
.AddItem "Giza"
End With
ولتفريغ الليست بوكس نكتب الكود التالى
ListBox1.clear
وسنقوم ان شاء الله فى الدروس القادمة بشرح بقية الادوات