مهند عبادي قام بنشر يونيو 10, 2004 مشاركة قام بنشر يونيو 10, 2004 (معدل) السلام عليكم هذه الفكرة بالأساس كنت أطوّرها لأجل أحد البرامج .. ولكني ارتأيت أن أضعها في موضوع مستقل نظراً لفائدتها الكبيرة للجميع .. ولأنها تعد مثالاً متقدماً ونادراً في النموذج الموجود في القاعدة المرفقة يوجد 6 أزرار .. كل زرين بجانب بعضهما من نفس الصنف أول زرين : عند الضغط يتغيّر صورتهما ثاني زرّين : عند الضغط عليهما يعطيان تأثير الضغط المعروف ثالث زرين : عند مرور الفأرة فوقهما يتغير لونهما .. وعند الضغط عليهما يعطيان تأثير الضغط المعروف . كل هذا يفعله النموذج بدون أن يحتوي على أي تعليمة أو حدث .. فقط سطر واحد في حدث عند التحميل هو : PutButtons Me أسلوب التصميم : 1= نرى في هذا النموذج وجود أدوات تسمية نضعها فوق الأزرار وبنفس الحجم تماماً .. وعندما نريد أن ننفذ حدث عن النقر على الزر .. ينبغي أن نكتبه في حدث عند النقر على هذه التسميات 2= نضع في خاصية علامة لكل أداة تسمية اسم أداة الصورة التي تكون تحتها 3= نضع في خاصية علامة لكل أداة صورة رقم يدل على نوع التأثير .. إما 0 أو 1 أو 2 كما أرفقت صور الأزرار كي تتم الاستفادة بشكل كامل أرجو أن يكون بها فائدة للجميع تحياتي لكم Test Buttons.rar تم تعديل يونيو 12, 2004 بواسطه مهند عبادي رابط هذا التعليق شارك More sharing options...
rami3520 قام بنشر يونيو 10, 2004 مشاركة قام بنشر يونيو 10, 2004 استاذى العزيز الفاضل هل بالامكان توضيح اكثر عن كيفيه فتح الملف المرفق وكيف ارفاقه بالاكسل اخوك / rami352 مع جزيل الشكر رابط هذا التعليق شارك More sharing options...
أبو أفنان قام بنشر يونيو 10, 2004 مشاركة قام بنشر يونيو 10, 2004 جهد رائع جداً وتشكر على ذلك ولكن رجائي شرح مفصل لأنه الكود غريب جداَ فقط قمت بتغيير بعض المسميات ويعمل الكود بدون مشاكل كيف يكون ذلك ثم ما الطريقة للأستفادة من هذه الازرة والاحداث لك التحية رابط هذا التعليق شارك More sharing options...
مهند عبادي قام بنشر يونيو 10, 2004 الكاتب مشاركة قام بنشر يونيو 10, 2004 أخي rami3520 .. هذا الكود مكتوب للأكسس ولكي يعمل على الإكسل يحتاج إلى تعديلات أخي أبو أفنان الكود غريب جداَ فقط قمت بتغيير بعض المسميات ويعمل الكود بدون مشاكل كيف يكون ذلك ما الذي غيرته بالضبط ؟؟ ثم ما الطريقة للأستفادة من هذه الازرة والاحداث ضع هذه الأزرار في برنامجك بدل الأزرار العادية .. وضع كا تريد تنفيذه عند الضغط على الزر في حدث عند النقر لأداة التسمية الموجودة فوق الزر رابط هذا التعليق شارك More sharing options...
Anwar قام بنشر يونيو 11, 2004 مشاركة قام بنشر يونيو 11, 2004 الااستاذ الكبير مهند لوسمحت هل ممكن تقول لنا علي التعديلات الزامة لكي تعمل هذة الازرار في الاكسيل وذلك للحاجة ارجوك رابط هذا التعليق شارك More sharing options...
egyptian_eg قام بنشر يونيو 12, 2004 مشاركة قام بنشر يونيو 12, 2004 السلام عليكم جزاك الله خيرا فكرة جميلة جدا بالنسبة لللأخوة الذين لم يعمل معهم الكود يرجي اضافة مرجع DAO الي التطبيق Microsoft Activex Objects 2.5 Library بالنسية للاكسيل لكي تستقيد منه ربما يجب كون الازرار فى User Form و ليس زر عادي فى ورقة العمل و هذا استخدام نادر فى الاكسيل و لكن في الحالتين يمكنكم المحاولة للاستفادة من الكود كفكرة و محاولة التطبيق ، و اذا لم يكن أقترح طرح مشاركة مستقلة فى قسم الاكسيل رابط هذا التعليق شارك More sharing options...
مهند عبادي قام بنشر يونيو 13, 2004 الكاتب مشاركة قام بنشر يونيو 13, 2004 أخوتي الأعزاء كان يوجد خطأ بسيط في المثال المرفق السابق .. وهو يحدث عندما يتم النقر بسرعة فو الزر فإنه يرتفع للأعلى تدريجياً .. وقد نبهني الأخ أبو هادي مشكوراً على هذا الخطأ .. فقمت بتعديل الكود لتلافيه وهذا هو المثال بعد التصحيح الأخ egyptian_eg : بالنسبة لللأخوة الذين لم يعمل معهم الكوديرجي اضافة مرجع DAO الي التطبيق Microsoft Activex Objects 2.5 Library هذا لا يلزم .. فالمثال لا يحتاج إلى مكتبات إضافية Test Buttons.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.