شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
إعـــــــلان
تقليص
لا يوجد إعلان حتى الآن.
كيفية انشاء قائمة منسدلة
تقليص
هذا الموضوع مغلق.
X
X
-
المشاركة الأصلية بواسطة azizsoft مشاهدة المشاركة[frame="12 98"]
وبعــــــــــــــــــــــ ــــــــــد
الاخوة مشرفي وأعضاء منتدى الهندسة الصناعية
أهلا وسهلا ومرحبا بكم وأسعد الله أوقاتكم بطاعته ومحبته .
[flash=http://download.mrkzy.com/e/1712_md_13320213676.swf]WIDTH=198 HEIGHT=46[/flash]
هناك عدة طرق لادراج القوائم المنسدلة ببرنامج الأتوبلاي وهو ما يساعد المستخدم على اجتناب اعتماد كثرة الأزرار
يمكن أن يتم ادراج قوائم بأكواد مباشرة أو استدعاء قوائم مثلا عن طريق مستند xml أو ادراج قائمة في
شكل أزرار مع التلاعب في عملية الاخفاء والظهور .
المهم هذه بعض الطرق لادراج قوائم منسدلة ويمكن في هاته الطريقة التحكم بمكان القائمة عبر المحورين السيني والصادي y , x
وكذلك حجم القائمة بحسب عدد العناوين التي لديك .
بدون اطالة مباشرة الى الشرح .
افتح مشروع جديد من project اضغط global functions اضف هذا الكود
كود:function TestyVids() tblMenu = {}; tblMenu[1] ={}; tblMenu[1].Text = "ÇáÓíÑÉ ÇáäÈæíÉ"; tblMenu[1].ID = 100; tblMenu[1].Checked = false; tblMenu[1].Enabled = true; tblMenu[2] ={}; tblMenu[2].Text = "Ýí ÑÍÇÈ ÇáÞÑÂä"; tblMenu[2].ID = 200; tblMenu[2].Checked = false; tblMenu[2].Enabled = true; tblMenu[3] ={}; tblMenu[3].Text = "ÎÑæÌ"; tblMenu[3].ID = 300; tblMenu[3].Checked = false; tblMenu[3].Enabled = true nTrayMenu = Application.ShowPopupMenu(570, 40, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true); if nTrayMenu ~= "" then if nTrayMenu == 100 then --ÊäÝíÐ ÃãÑ ãÚíä -- elseif nTrayMenu == 200 then --ÊäÝíÐ ÃãÑ ãÚíä -- elseif nTrayMenu == 300 then Application.Exit(0); end end end
لاحظ اني اعتمدت في المثال المرفق عدد 3 عناصر من القائمة وتستطيع أن تضاعف العدد
الى ما تشاء بما يتناسب ومشروعك مثلا .
الان اضف زر اضغط عليه مرتين في الحدث on click استدعي المتغير
كود:TestyVids()
بقي أمر التحكم في مكان القائمة سهل هذا يعود الى المحورين x و y بالتعديل في قيم الاحداثيات
راجع الكود التالي في الملف المفتوح وستلاحظ اختلاف الارقام
كود:nTrayMenu = Application.ShowPopupMenu(60, 40, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);
في ما يلي تطبيق سريع على الموضوع
[flash=http://download.mrkzy.com/e/1712_md_13320199946.swf]WIDTH=670 HEIGHT=517[/flash]
الملف المفتوح في المرفقات وأي استفسار تحت الطلب .
في نتظار أن نجتمع ثانية على الخير ان شاء الله .
لاتنسونا بصالح الدعاء فلكم الأجر بالمثل .
والسلام عليكم ورحمة الله وبركاته
[/frame]
فعلا مميز
تعليق
مواضيع تهمك
تقليص
المنتدى: القسم العام نشرت بواسطة: Reem2Rabeh الوقت: 04-23-2025 الساعة 04:27 PM
المنتدى: ضبط وتوكيد الجودة نشرت بواسطة: HeaD Master الوقت: 04-15-2025 الساعة 09:30 AM
المنتدى: التصنيع والانتاج نشرت بواسطة: HeaD Master الوقت: 04-11-2025 الساعة 01:08 PM
المنتدى: القسم العام نشرت بواسطة: نوال الخطيب الوقت: 03-19-2025 الساعة 03:07 AM
المنتدى: الكمبيوتر والإنترنت نشرت بواسطة: عوض السوداني الوقت: 03-18-2025 الساعة 07:22 AM
تعليق