اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

السلام عليكم

هذه الفكرة بالأساس كنت أطوّرها لأجل أحد البرامج .. ولكني ارتأيت أن أضعها في موضوع مستقل نظراً لفائدتها الكبيرة للجميع ..

ولأنها تعد مثالاً متقدماً ونادراً

في النموذج الموجود في القاعدة المرفقة يوجد 6 أزرار .. كل زرين بجانب بعضهما من نفس الصنف

أول زرين : عند الضغط يتغيّر صورتهما

ثاني زرّين : عند الضغط عليهما يعطيان تأثير الضغط المعروف

ثالث زرين : عند مرور الفأرة فوقهما يتغير لونهما .. وعند الضغط عليهما يعطيان تأثير الضغط المعروف .

كل هذا يفعله النموذج بدون أن يحتوي على أي تعليمة أو حدث ..

فقط سطر واحد في حدث عند التحميل هو :

  PutButtons Me

أسلوب التصميم :

1= نرى في هذا النموذج وجود أدوات تسمية نضعها فوق الأزرار وبنفس الحجم تماماً .. وعندما نريد أن ننفذ حدث عن النقر على الزر .. ينبغي أن نكتبه في حدث عند النقر على هذه التسميات

2= نضع في خاصية علامة لكل أداة تسمية اسم أداة الصورة التي تكون تحتها

3= نضع في خاصية علامة لكل أداة صورة رقم يدل على نوع التأثير .. إما 0 أو 1 أو 2

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

أرجو أن يكون بها فائدة للجميع

تحياتي لكم

Test Buttons.rar

تم تعديل بواسطه مهند عبادي
قام بنشر

استاذى العزيز الفاضل

هل بالامكان توضيح اكثر عن كيفيه فتح الملف المرفق وكيف ارفاقه بالاكسل

اخوك / rami352

مع جزيل الشكر :fff::fff:

قام بنشر

جهد رائع جداً وتشكر على ذلك ولكن

رجائي شرح مفصل لأنه الكود غريب جداَ فقط قمت بتغيير بعض المسميات ويعمل الكود بدون مشاكل كيف يكون ذلك

ثم ما الطريقة للأستفادة من هذه الازرة والاحداث

لك التحية

قام بنشر

أخي rami3520 .. هذا الكود مكتوب للأكسس ولكي يعمل على الإكسل يحتاج إلى تعديلات

أخي أبو أفنان

الكود غريب جداَ فقط قمت بتغيير بعض المسميات ويعمل الكود بدون مشاكل كيف يكون ذلك

ما الذي غيرته بالضبط ؟؟

ثم ما الطريقة للأستفادة من هذه الازرة والاحداث

ضع هذه الأزرار في برنامجك بدل الأزرار العادية .. وضع كا تريد تنفيذه عند الضغط على الزر في حدث عند النقر لأداة التسمية الموجودة فوق الزر

قام بنشر

الااستاذ الكبير مهند لوسمحت هل ممكن تقول لنا علي التعديلات الزامة لكي تعمل هذة الازرار في الاكسيل

وذلك للحاجة ارجوك

قام بنشر

السلام عليكم

جزاك الله خيرا

فكرة جميلة جدا

بالنسبة لللأخوة الذين لم يعمل معهم الكود

يرجي اضافة مرجع DAO الي التطبيق

Microsoft Activex Objects 2.5 Library

بالنسية للاكسيل

لكي تستقيد منه ربما يجب كون الازرار فى User Form

و ليس زر عادي فى ورقة العمل

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

و لكن في الحالتين يمكنكم المحاولة للاستفادة من الكود كفكرة و محاولة التطبيق ، و اذا لم يكن أقترح طرح مشاركة مستقلة فى قسم الاكسيل

قام بنشر

أخوتي الأعزاء

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

وقد نبهني الأخ أبو هادي مشكوراً على هذا الخطأ .. فقمت بتعديل الكود لتلافيه

وهذا هو المثال بعد التصحيح

الأخ egyptian_eg :

بالنسبة لللأخوة الذين لم يعمل معهم الكود

يرجي اضافة مرجع DAO الي التطبيق

Microsoft Activex Objects 2.5 Library

هذا لا يلزم .. فالمثال لا يحتاج إلى مكتبات إضافية

Test Buttons.rar

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information